Optimize MAKE-ARRAY on unknown element-type.

[sbcl.git] / src / code / cross-io.lisp

diff --git a/src/code/cross-io.lisp b/src/code/cross-io.lisp
index 0121256..de76ce3 100644 (file)
--- a/src/code/cross-io.lisp
+++ b/src/code/cross-io.lisp
@@ -20,7 +20,6 @@
 
 (defmacro with-fast-read-byte ((type stream &optional (eof-error-p t) eof-value)
                                &body body)
-  (declare (ignore type))
   (let ((f-stream (gensym "STREAM"))
         (f-eof-error-p (gensym "EOF-ERROR-P"))
         (f-eof-value (gensym "EOF-VALUE")))