;; FIXME: warn about incompatible lambda list with
;; respect to parent function?
(setf (sb!xc:compiler-macro-function name) definition)
- #-sb-xc-host
- (setf (%fun-doc definition) doc)
,(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