- (defmacro ,name ,@rest)
- ,(let ((uncrossed-args `(,(uncross name) ,@rest)))
- (if (boundp '*delayed-def!macros*)
- `(push (make-delayed-def!macro :args ',uncrossed-args)
- *delayed-def!macros*)
- `(sb!xc:defmacro ,@uncrossed-args))))
+ (defmacro ,name ,@rest)
+ ,(let ((uncrossed-args `(,(uncross name) ,@rest)))
+ (if (boundp '*delayed-def!macros*)
+ `(push (make-delayed-def!macro :args ',uncrossed-args)
+ *delayed-def!macros*)
+ `(sb!xc:defmacro ,@uncrossed-args))))