anchor.diff:         c (is (= 2 i))))))
   
   (test cps-flet
  -  (with-call/cc ()
  +  (with-call/cc
       (flet ((foo () 'x))
         (is (eql 'x (foo))))
       (is (= 4 (funcall (let ((a 4))
  
positive.code:         (is (eql 'outer-foo (bar)))))))
  
  (test cps-labels
    (with-call/cc ()
      (labels ((foo () 'x))
        (is (eql 'x (foo))))
      (labels ((foo () 'outer-foo))
        (labels ((bar () (foo))
                 (foo () 'inner-foo))
          (is (eql 'inner-foo (bar)))))))
  
negative.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))
  