projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix a regression in sb-safepoint.
[sbcl.git]
/
tests
/
bug-doug-mcnaught-20030914.lisp
diff --git
a/tests/bug-doug-mcnaught-20030914.lisp
b/tests/bug-doug-mcnaught-20030914.lisp
index
6c4a8e2
..
1b14dd6
100644
(file)
--- 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 #\# #\[
(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))
(let* ((type (if n `(unsigned-byte ,n)
'(unsigned-byte 8)))
(list (read-delimited-list #\] s nil))