anchor.diff:      ((and (typep (body form) 'ast-return-from)
             (eql (info form) (info (body form))))
        (change-made)
  -     (setf (body form) (value (body form)))
  +     (setf (body form) (simp-form (value (body form))))
        form)
       (t (setf (body form) (simp-form (body form)))
          form)))
  
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:           (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))
  