- (dolist (i keys)
- (typecase i
- (symbol)
- (cons
- (destructuring-bind (var-or-kv &optional init-form supplied-p) i
- (declare (ignore init-form supplied-p))
- (if (consp var-or-kv)
- (destructuring-bind (keyword-name var) var-or-kv
- (declare (ignore keyword-name))
- (need-symbol var "&KEY parameter name"))
- (need-symbol var-or-kv "&KEY parameter name"))))
- (t
- (compiler-error "&KEY parameter is not a symbol or cons: ~S"
- i))))))
+ (dolist (i keys)
+ (typecase i
+ (symbol)
+ (cons
+ (destructuring-bind (var-or-kv &optional init-form supplied-p) i
+ (declare (ignore init-form supplied-p))
+ (if (consp var-or-kv)
+ (destructuring-bind (keyword-name var) var-or-kv
+ (declare (ignore keyword-name))
+ (need-symbol var "&KEY parameter name"))
+ (need-symbol var-or-kv "&KEY parameter name"))))
+ (t
+ (compiler-error "&KEY parameter is not a symbol or cons: ~S"
+ i))))))