anchor.diff:  					       (loop
   						  with env = env
   						  for (name . lambda) in (binds flet)
  -						  do (setf env (register env :flet name lambda))
  +						  do (extend env :flet name lambda)
   						  finally (return env))
   					       :declare t)))))
   
  
positive.code: 		 (extend-env ((var list) newdeclare &rest datum)
  		   `(dolist (,var ,list)
  		      (when ,newdeclare (push ,newdeclare declares))
  		      (setf environment (register environment :declare ,@datum)))))
  	(destructuring-bind (type &rest arguments)
  	    declaration
  	  (case type
  
negative.code: 
  (defwalker-handler tagbody (form parent env)
    (with-form-object (tagbody tagbody-form :parent parent :source form :body (cdr form))
      (extend env :tagbody 'enclosing-tagbody tagbody)
      (flet ((go-tag-p (form)
               (or (symbolp form) (integerp form))))
        ;; the loop below destructuivly modifies the body of tagbody,
  