X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Freader.impure.lisp;h=a518f25e9a20a035a809a5626b471cd702c9236c;hb=4e3b57699314dbd3883470d9b196287b178f3e6d;hp=23ccb4c4b2eb284679321308813b20fbe144026e;hpb=68c539ab90bb39f342229e68bf9286f63824597a;p=sbcl.git

diff --git a/tests/reader.impure.lisp b/tests/reader.impure.lisp
index 23ccb4c..a518f25 100644
--- a/tests/reader.impure.lisp
+++ b/tests/reader.impure.lisp
@@ -18,9 +18,8 @@
 ;;; Bug 30, involving mistakes in binding the read table, made this
 ;;; code fail.
 (defun read-vector (stream char)
+  (declare (ignorable char))
   (coerce (read-delimited-list #\] stream t) 'vector))
-(set-syntax-from-char #\[ #\() ; do I really need this? -- MNA 2001-01-05
-(set-syntax-from-char #\] #\)) ; do I really need this? -- MNA 2001-01-05
 (set-macro-character #\[ #'read-vector nil)
 (set-macro-character #\] (get-macro-character #\)) nil)
 (multiple-value-bind (res pos)