X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fbug-doug-mcnaught-20030914.lisp;h=1b14dd6e050a97e193fcb71dd8c7ddfb567b0855;hb=1cba0af01f5107ab384d0d8b94b1f6330b3d0ef4;hp=6c4a8e20299d10d5cbed9175a0ba75374b0a4aea;hpb=45e4225c7ceae7328b6951770f654932438ed266;p=sbcl.git diff --git a/tests/bug-doug-mcnaught-20030914.lisp b/tests/bug-doug-mcnaught-20030914.lisp index 6c4a8e2..1b14dd6 100644 --- a/tests/bug-doug-mcnaught-20030914.lisp +++ b/tests/bug-doug-mcnaught-20030914.lisp @@ -4,7 +4,7 @@ (set-macro-character #\] (get-macro-character #\))) (set-dispatch-macro-character #\# #\[ - #'(lambda (s c n) (declare (ignore c)) + #'(lambda (s c n) (declare (ignore c)) (let* ((type (if n `(unsigned-byte ,n) '(unsigned-byte 8))) (list (read-delimited-list #\] s nil))