From f29dcbc716f2e19dd7fe19775bb9ff7c258f8df4 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Sat, 2 Feb 2013 00:17:36 +0200 Subject: [PATCH] remove bogus IGNORE declaration from XC version of WITH-FAST-READ-BYTE --- src/code/cross-io.lisp | 1 - 1 file changed, 1 deletion(-) 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"))) -- 1.7.10.4