* (defun foo (a b) (funcall #'(setf schar) #\a a b))
; in: DEFUN FOO
; (FUNCALL #'(SETF SCHAR) #\a NEW-EVAL::A NEW-EVAL::B)
; (SB-C::%FUNCALL #'(SETF SCHAR) #\a NEW-EVAL::A NEW-EVAL::B)
; caught STYLE-WARNING:
; defining as a SETF function a name that already has a SETF macro:
; (SETF SCHAR)
; compilation unit finished
; caught 1 STYLE-WARNING condition
What? I'm not defining (SETF SCHAR).
I don't think this used to happen.