From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Fri, 1 Feb 2013 22:17:36 +0000 (+0200)
Subject: remove bogus IGNORE declaration from XC version of WITH-FAST-READ-BYTE
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=f29dcbc716f2e19dd7fe19775bb9ff7c258f8df4;p=sbcl.git

remove bogus IGNORE declaration from XC version of WITH-FAST-READ-BYTE
---

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")))