(defun foo (a b
            &optional (c 'c) d
            &rest keys
            &key (e 'e) ((:x f) 0 f-present-p) g
            &allow-other-keys)
  (list a b c d e (list f f-present-p) g keys))

(foo 0 1 2 3 :g 4 :x 5 :z 123)

(0 1 2 3 E (5 T) 4 (:G 4 :X 5 :Z 123))