- (typecase fun
- ;; ordinary (SETF FOO) case
- (symbol (values t fun))
- ;; reasonable (SETF (QUUX BAZ)) case [but not (SETF (SETF
- ;; FOO))]
- (cons (unless (eq (car fun) 'setf)
- (valid-function-name-p fun))))))))
+ (typecase fun
+ ;; ordinary (SETF FOO) case
+ (symbol (values t fun))
+ ;; reasonable (SETF (QUUX BAZ)) case [but not (SETF (SETF
+ ;; FOO))]
+ (cons (unless (eq (car fun) 'setf)
+ (valid-function-name-p fun))))))))