anchor.diff:  
   (defun pass1-tagbody (form env)
     (let* ((tb (make-instance 'tagbody-information
  +                            :optimize (optimize-qualities-in-environment env)
                               :name (gensym "TAGBODY")
                               :definition-point *current-lambda*))
            (parsed-body (parse-tagbody-body (rest form)))
            (go-tags (loop
                        for (name form) in parsed-body
                        collect (let ((tag (make-instance 'go-tag
  +                                                       :optimize (optimize-qualities-in-environment env)
                                                          :name name
                                                          :tagbody tb)))
                                  (push tag (tagbody-information-go-tags tb))
  
positive.code:                 env)))
  
  (defun pass1-quote (form env)
    (declare (ignore env))
    (destructuring-bind (thing) (cdr form)
      (make-instance 'ast-quote :value thing)))
  
  (defun pass1-return-from (form env)
    (destructuring-bind (name &optional result) (cdr form)
  
negative.code:             (let ((var (make-variable name declares)))
                (check-variable-bindable var)
                (setf (body inner) (make-instance 'ast-let
                                                  :optimize (optimize-qualities-in-environment env)
                                                  :bindings (list (list var (pass1-form (wrap-initform-with-the init-form var declares) env)))
                                                  :body (make-instance 'ast-quote :value 'nil))
                      inner (body inner)
  