anchor.diff:      ;; Reduce tagbodys with no tags to progn.
       (cond ((tagbody-information-go-tags (info form))
              ;; Has go tags.
  -	   form)
  -	  ((endp (statements form))
  +           form)
  +          ((endp (statements form))
              ;; Empty tagbody.
  -	   (change-made)
  +           (change-made)
              (ast `(quote nil)))
             (t
              ;; Non-empty tagbody with no go tags.
  
positive.code:               (t ;; Flatten the body as much as possible.
                 (setf (cdr tail) (flatten x)
                       tail (last tail))))))
      ;; Kill code after GO statements and try to eliminate no-op GOs.
      (do* ((i (statements form) (cdr i))
            (prev nil)
            (last-was-go nil))
  
negative.code:                (if prev
                     (setf (cdr prev) (cdr i))
                     (setf (statements form) (cdr i))))
                ((typep stmt '(or ast-go ast-return-from))
                 (cond ((eql (cadr i) (target stmt))
                        ;; This GO can be eliminated.
                        (change-made)
  