defsetf is always expanded with keyword arguments present even when not passed by the user

[dkochmanski]

context: https://codeberg.org/McCLIM/McCLIM/issues/1162

repro:

(DEFSETF MY-POINT-POSITION
    (POINT &KEY ((:COORDINATES COORDINATES) NIL G7615))
    (NX NY)
  (LET ((FUN-OPTS7613 (APPEND))
        (FUN-KEYS7614 (APPEND (AND G7615 `(:COORDINATES ,COORDINATES)))))
    `(format t "(setf) ~s~%" (list ,nx ,ny ,point ,@FUN-OPTS7613 ,@FUN-KEYS7614))))

ccl:

> (setf (my-point-position 42) (values 1 2))
(setf) (1 2 42 :COORDINATES NIL)

ecl, sbcl, lw

CL-USER> (setf (my-point-position 42) (values 1 2))
(setf) (1 2 42)

[dkochmanski]

I've tried to make a workaround by destructuring rest args, but that revealed another bug

(DEFSETF MY-POINT-POSITION
    (POINT &rest args &KEY ((:COORDINATES COORDINATES) NIL G7615))
    (NX NY)
  (LET ((FUN-OPTS7613 (APPEND))
        (FUN-KEYS7614 (APPEND (AND G7615 `(:COORDINATES ,COORDINATES)))))
    `(format t "(setf) ~s ~s~%" (list ,nx ,ny ,point ,@FUN-OPTS7613 ,@FUN-KEYS7614)
             ',args)))

(setf (my-point-position 42 :coordinates 3) (values 1 2))
;; (setf) (1 2 42 :COORDINATES 3) #:ARGS

should be

;; (setf) (1 2 42 :COORDINATES 3) (:coordinates 3)