anchor.diff:  (deflisp1-walker variable-binding-form (binds body)
     ;; Add all the bindings to the variable namespace so they aren't
     ;; sharp-quoted.
  -  (with-vars-bound (mapcar #'car binds)
  +  (with-bound-vars (mapcar #'car binds)
       (new (class-name-of form)
   	 :binds (lisp1b binds)
   	 :body  (lisp1s body))))
  
positive.code: (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)
      (new (class-name-of form)
  	 :binds (lisp1b binds)
  	 :body  (lisp1s body))))
  
negative.code:   "Define a function with BODY written in Lisp-1 style.
  
  This is just like DEFUN."
    (with-bound-vars (extract-argument-names args :allow-specializers nil)
      `(defun ,name ,args
         ,(lisp1 `(block ,name ,@body)))))
  
  