anchor.diff:    (fail "Somehow we reached unreachable code in a tagbody."))
   
   (test cps-tagbody
  -  (with-call/cc ()
  +  (with-call/cc
       (tagbody
          (go a)
          (reached-unreachable-code)
          a
          (pass)))
  -  (with-call/cc ()
  +  (with-call/cc
       (tagbody
          (go a) (reached-unreachable-code)
        b
  
positive.code:        (go b) (reached-unreachable-code)
       c
         (pass)))
    (with-call/cc ()
      (let ((counter 0))
        (dotimes (i 5)
          (incf counter))
        (is (= 5 counter))))
    (with-call/cc ()
      (let ((i 0))
        (tagbody
         a (incf i) (is (= 1 i))
  
negative.code:        c (is (= 2 i))))))
  
  (test cps-flet
    (with-call/cc
      (flet ((foo () 'x))
        (is (eql 'x (foo))))
      (is (= 4 (funcall (let ((a 4))
  