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