:environment environment)
(let ((def `(lambda (,whole ,environment)
,@local-decs
:environment environment)
(let ((def `(lambda (,whole ,environment)
,@local-decs
,body))))
`(sb!c::%define-compiler-macro ',name #',def ',lambda-list ,doc)))))
(defun sb!c::%define-compiler-macro (name definition lambda-list doc)
,body))))
`(sb!c::%define-compiler-macro ',name #',def ',lambda-list ,doc)))))
(defun sb!c::%define-compiler-macro (name definition lambda-list doc)