anchor.diff:  (deflisp1-walker function-binding-form (binds body)
     ;; Add all the bindings to the function namespace to be sharp
     ;; quoted.
  -  (with-funs-bound (mapcar #'car binds)
  +  (with-bound-funs (mapcar #'car binds)
       (new (class-name-of form)
   	 :binds (lisp1b binds)
   	 :body  (lisp1s body))))
  
positive.code:   "Define a method with BODY written in Lisp-1 style.
  
  This is just like DEFMETHOD."
    (with-vars-bound (extract-argument-names args :allow-specializers t)
      `(defmethod ,name ,args
         ,(lisp1 `(block ,name ,@body)))))
  
  
negative.code:   ;; For any function-form (ie lambda), we just transform the body.
    ;; We also must add the parameters to the variable namespace, and
    ;; remove the parameters from the function namespace.
    (with-bound-vars (mapcar #'name arguments)
      (new 'lambda-function-form
  	 :arguments arguments
  	 :body      (lisp1s body))))
  