- (let ((whole-thing (gensym "OPTIONAL-SUBLIST-")))
- (push-sub-list-binding whole-thing
- `(if ,supplied-var ,path ,init-form)
- value-var name error-kind error-fun)
- (parse-defmacro-lambda-list value-var whole-thing name
- error-kind error-fun)))
- ((symbolp value-var)
- (push-let-binding value-var path nil supplied-var init-form))
- (t
- (error "illegal optional variable name: ~S" value-var))))
+ (let ((whole-thing (gensym "OPTIONAL-SUBLIST-")))
+ (push-sub-list-binding whole-thing
+ `(if ,supplied-var ,path ,init-form)
+ value-var name context error-fun)
+ (parse-defmacro-lambda-list value-var whole-thing name
+ context error-fun)))
+ ((symbolp value-var)
+ (push-let-binding value-var path nil supplied-var init-form))
+ (t
+ (error "illegal optional variable name: ~S" value-var))))