anchor.diff:            (last-was-go nil))
            ((endp i))
         (let ((stmt (car i)))
  +        (when (not (go-tag-p stmt))
  +          (setf stmt (simp-form stmt)
  +                (car i) stmt))
           (cond ((go-tag-p stmt)
                  (setf prev i)
                  (setf last-was-go nil))
  
positive.code: 						   (list x))
  						 (flatten x)))
  					   (statements x))))
  		   (t (cons (simp-form x) nil)))))
      (setf (tagbody-information-go-tags (info form))
  	  (delete-if (lambda (x) (eql (go-tag-use-count x) 0))
  		     (tagbody-information-go-tags (info form))))
  
negative.code:     ((and (typep (body form) 'ast-return-from)
            (eql (info form) (info (body form))))
       (change-made)
       (setf (body form) (simp-form (value (body form))))
       form)
      (t (setf (body form) (simp-form (body form)))
         form)))
  