:environment environment)
(let ((def `(lambda (,whole ,environment)
,@local-decs
:environment environment)
(let ((def `(lambda (,whole ,environment)
,@local-decs
(debug-name (debug-namify "DEFINE-COMPILER-MACRO ~S" name)))
`(eval-when (:compile-toplevel :load-toplevel :execute)
(sb!c::%define-compiler-macro ',name
(debug-name (debug-namify "DEFINE-COMPILER-MACRO ~S" name)))
`(eval-when (:compile-toplevel :load-toplevel :execute)
(sb!c::%define-compiler-macro ',name
(multiple-value-bind (forms decls) (parse-body forms-decls nil)
(if string
`(let ((,var (make-fill-pointer-output-stream ,string)))
(multiple-value-bind (forms decls) (parse-body forms-decls nil)
(if string
`(let ((,var (make-fill-pointer-output-stream ,string)))