projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.31.22: improved SAP-{REF,SET}-* for x86-64
[sbcl.git]
/
src
/
code
/
macros.lisp
diff --git
a/src/code/macros.lisp
b/src/code/macros.lisp
index
b3e3c03
..
6adf8ef
100644
(file)
--- a/
src/code/macros.lisp
+++ b/
src/code/macros.lisp
@@
-152,9
+152,9
@@
invoked. In that case it will store into PLACE and start over."
;; FIXME: warn about incompatible lambda list with
;; respect to parent function?
(setf (sb!xc:compiler-macro-function name) definition)
;; FIXME: warn about incompatible lambda list with
;; respect to parent function?
(setf (sb!xc:compiler-macro-function name) definition)
- (setf (fdocumentation name 'compiler-macro) doc)
,(when set-p
,(when set-p
- `(setf (%fun-lambda-list definition) lambda-list
+ `(setf (%fun-doc definition) doc
+ (%fun-lambda-list definition) lambda-list
(%fun-name definition) debug-name))
name))))
(progn
(%fun-name definition) debug-name))
name))))
(progn
@@
-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)