X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-io.lisp;h=de76ce37b4ac308b775f57f45987e01613c8f94d;hb=829ced3e78a23ba153ba4db64e6ea6984c2313b6;hp=012125680fe0eb368c207a29a46ccaf62ec133ef;hpb=a3706c5d9d95ebb5a14e7ab7313c5781e5c86713;p=sbcl.git

diff --git a/src/code/cross-io.lisp b/src/code/cross-io.lisp
index 0121256..de76ce3 100644
--- 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")))