From 797adba286e375271dce12a95b8551fdbed18f98 Mon Sep 17 00:00:00 2001
From: "Pierre R. Mai" <pmai@pmsf.de>
Date: Sat, 9 Oct 2010 03:46:03 +0200
Subject: [PATCH] Change fix for ecl bug in bit-stream-read-bits for improved
 performance.

The previous fix in 929d3f9bc91015c96ed7450349cf7a320a38ad01 has worse
performance than not declaring any type on bits, so we now remove the
declaration completely.
---
 deflate.lisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/deflate.lisp b/deflate.lisp
index 67ec31d..0c0ce17 100644
--- a/deflate.lisp
+++ b/deflate.lisp
@@ -287,8 +287,7 @@
 
 (declaim (inline bit-stream-read-bits))
 (defun bit-stream-read-bits (stream bits)
-  (declare (type bit-stream stream) (type #-ecl (unsigned-byte 8)
-					  #+ecl (signed-byte 8) bits))
+  (declare (type bit-stream stream) #-ecl (type (unsigned-byte 8) bits))
   "Read single or multiple bits from the given bit-stream."
   (loop while (< (bit-stream-bit-count stream) bits)
         do