Method: (EFFECTIVE-KEYWORD-NAME KEYWORD-FUNCTION-ARGUMENT-FORM)

Source

(defmethod effective-keyword-name ((k keyword-function-argument-form))
  (or (keyword-name k)
      (intern (symbol-name (name k)) :keyword)))