- `(progn
- (setf (sb!xc:macro-function ',name)
- ,(let ((whole (gensym "WHOLE-"))
- (environment (gensym "ENVIRONMENT-")))
- (multiple-value-bind (new-body local-decs doc)
- (parse-defmacro lambda-list whole body name 'defmacro
- :environment environment)
- (declare (ignore doc))
- `(lambda (,whole ,environment)
+ (let ((whole (gensym "WHOLE-"))
+ (environment (gensym "ENVIRONMENT-")))
+ (multiple-value-bind (new-body local-decs doc)
+ (parse-defmacro lambda-list whole body name 'defmacro
+ :environment environment)
+ `(progn
+ (setf (sb!xc:macro-function ',name)
+ (lambda (,whole ,environment)