anchor.diff:    ((arguments)))
   
   (def unwalker lambda-function-form (arguments body declares)
  -  `#'(lambda ,(unwalk-lambda-list arguments)
  +  `#'(lambda ,(unwalk-ordinary-lambda-list arguments)
          ,@(unwalk-declarations declares)
          ,@(recurse-on-body body)))
   
  
positive.code: (def unwalker rest-function-argument-form (name)
    name)
  
  (defun unwalk-lambda-list (arguments)
    (let (optional-p rest-p keyword-p)
      (mapcan #'(lambda (form)
                  (append
                   (typecase form
                     (optional-function-argument-form
                      (unless optional-p
                        (assert (not keyword-p))
                        (assert (not rest-p))
                        (setq optional-p t)
                        '(&optional)))
                     (rest-function-argument-form
                      (unless rest-p
                        (assert (not keyword-p))
                        (setq rest-p t)
                        '(&rest)))
                     (keyword-function-argument-form
                      (unless keyword-p
                        (setq keyword-p t)
                        '(&key))))
                   (list (unwalk-form form))))
              arguments)))
  
  ;;;; FLET/LABELS
  
  
negative.code: (def (class* e) specialized-function-argument-form (required-function-argument-form)
    ((specializer)))
  
  (def function walk-specialized-argument (form parent env)
    (declare (ignore env))
    (make-form-object 'specialized-function-argument-form parent
                      :name (if (listp form)
  