anchor.diff:        (with-form-object (arg 'keyword-function-argument-form parent
                                :name name
                                :keyword-name keyword
  -                             :supplied-p-parameter supplied-p-parameter)
  +                             :supplied-p-parameter-name supplied-p-parameter-name)
           (when default-value-supplied?
             (setf (default-value-of arg) (walk-form default-value :parent arg :environment env)))))))
   
  -(def unwalker keyword-function-argument-form (keyword-name name default-value supplied-p-parameter)
  +(def unwalker keyword-function-argument-form (keyword-name name default-value supplied-p-parameter-name)
     (bind ((default-value (awhen (default-value-of -form-)
                             (recurse it))))
  -    (cond ((and keyword-name name supplied-p-parameter)
  -           `((,keyword-name ,name) ,default-value ,supplied-p-parameter))
  -          ((and name supplied-p-parameter)
  -           `(,name ,default-value ,supplied-p-parameter))
  +    (cond ((and keyword-name name supplied-p-parameter-name)
  +           `((,keyword-name ,name) ,default-value ,supplied-p-parameter-name))
  +          ((and name supplied-p-parameter-name)
  +           `(,name ,default-value ,supplied-p-parameter-name))
             ((and name default-value)
              `(,name ,default-value))
             (name name)
  
positive.code: 
  (def unwalker rest-function-argument-form (name)
    name)
  
  (def (function e) unwalk-ordinary-lambda-list (arguments)
    (bind ((optional-seen? nil)
  
negative.code:         (augment-walkenv! env :variable (name-of parsed) parsed)))
      result))
  
  (def (class* ea) function-argument-form (named-walked-form)
    ())
  
  (def print-object function-argument-form
    (format t "~S" (name-of -self-)))
  
  (def (class* ea) required-function-argument-form (function-argument-form)
    ())
  
  (def unwalker required-function-argument-form (name)
    name)
  
  (def (class* ea) specialized-function-argument-form (required-function-argument-form)
    ((specializer)))
  
  (def function walk-specialized-argument (form parent env)
  