projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.32.12: Fix slot-value on specialized parameters in SVUC methods
[sbcl.git]
/
src
/
code
/
macros.lisp
diff --git
a/src/code/macros.lisp
b/src/code/macros.lisp
index
731d81f
..
6adf8ef
100644
(file)
--- a/
src/code/macros.lisp
+++ b/
src/code/macros.lisp
@@
-303,11
+303,7
@@
invoked. In that case it will store into PLACE and start over."
(cond
,@(nreverse clauses)
,@(if errorp
(cond
,@(nreverse clauses)
,@(if errorp
- `((t (error 'case-failure
- :name ',name
- :datum ,keyform-value
- :expected-type ',expected-type
- :possibilities ',keys))))))))
+ `((t (case-failure ',name ,keyform-value ',keys))))))))
) ; EVAL-WHEN
(defmacro-mundanely case (keyform &body cases)
) ; EVAL-WHEN
(defmacro-mundanely case (keyform &body cases)