- (parse-defmacro-lambda-list lambda-list arg-list-name name
- error-kind error-fun (not anonymousp)
- nil env-arg-name)
- (values `(let* ,(nreverse *system-lets*)
- ,@(when *ignorable-vars*
- `((declare (ignorable ,@*ignorable-vars*))))
- ,@*arg-tests*
- (let* ,(nreverse *user-lets*)
- ,@declarations
- ,@forms))
- `(,@(when (and env-arg-name (not env-arg-used))
- `((declare (ignore ,env-arg-name)))))
- documentation
- minimum
- maximum)))))
+ (parse-defmacro-lambda-list lambda-list arg-list-name name
+ context error-fun (not anonymousp)
+ nil)
+ (values `(let* (,@(when env-arg-used
+ `((,*env-var* ,env-arg-name)))
+ ,@(nreverse *system-lets*))
+ ,@(when *ignorable-vars*
+ `((declare (ignorable ,@*ignorable-vars*))))
+ ,@*arg-tests*
+ (let* ,(nreverse *user-lets*)
+ ,@declarations
+ ,@(if wrap-block
+ `((block ,(fun-name-block-name name)
+ ,@forms))
+ forms)))
+ `(,@(when (and env-arg-name (not env-arg-used))
+ `((declare (ignore ,env-arg-name)))))
+ documentation
+ minimum
+ maximum)))))