projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
1.0.6.9: micro-optimize portions of the reader
[sbcl.git]
/
src
/
code
/
macros.lisp
diff --git
a/src/code/macros.lisp
b/src/code/macros.lisp
index
bd9714b
..
3da5529
100644
(file)
--- a/
src/code/macros.lisp
+++ b/
src/code/macros.lisp
@@
-176,7
+176,7
@@
invoked. In that case it will store into PLACE and start over."
(case-kind :initarg :case-kind
:reader case-warning-case-kind)
(occurrences :initarg :occurrences
- :type (cons (integer 0) (cons t null))
+ :type list
:reader duplicate-case-key-warning-occurrences))
(:report
(lambda (condition stream)