anchor.diff:  						   (list x))
   						 (flatten x)))
   					   (statements x))))
  -		   (t (cons (simp-form x) nil)))))
  +		   (t (cons 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))))
  
positive.code:           (last-was-go nil))
           ((endp i))
        (let ((stmt (car i)))
          (cond ((go-tag-p stmt)
                 (setf prev i)
                 (setf last-was-go nil))
  
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)))
  