anchor.diff:  
   (def unwalker named-lambda-function-form (special-form name arguments body declares)
     `(function
  -    (,special-form ,name ,(unwalk-lambda-list arguments)
  +    (,special-form ,name ,(unwalk-ordinary-lambda-list arguments)
        ,@(unwalk-declarations declares)
        ,@(recurse-on-body body))))
   
  
positive.code:                       (nthcdr 3 -form-) -environment-)))
  
  (def unwalker function-definition-form (form name arguments body declares)
    `(defun ,name ,(unwalk-lambda-list arguments) 
       ,@(unwalk-declarations declares)
       ,@(recurse-on-body body)))
  
  
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)
  