anchor.diff:      (setf value new-value)))
   
   (test cps-setf-funcall
  +  (setf (test-funcall.0) 0)
     (is (= 0 (with-call/cc (test-funcall.0))))
     (is (= 1 (with-call/cc (setf (test-funcall.0) 1))))
     (is (= 2 (with-call/cc (funcall #'(setf test-funcall.0) 2)))))
  
positive.code:     (setf cont (with-call/cc (test-defun/cc2 'foo)))
      (is (eql 'foo (kall cont)))
      (is (eql 'foo (kall cont nil)))))
  
negative.code:   (is (= 1 (with-call/cc
  	    (let ((a 1)) a))))
    (is (= 1 (with-call/cc
               (let ((a 1))
                 (let ((a nil)
                       (b a))
                   (declare (ignore a))
                   b)))))
    (with-call/cc
      (let ((a 1))
        (let ((a 2))
  