anchor.diff:      (ecase *debug-evaluate/cc*
         (:full
          (format *debug-io*
  -               "~&Evaluating: ~S~%Env: ~S~%K: ~S~%"
  +               "~&Evaluating: ~S~%~3TEnv: ~S~%~3TK: ~S~%"
                  form env k))
         ((t)
          (format *debug-io* "~&Evaluating: ~S~%" form))
  
positive.code:       env))
  
      ((and (symbolp (operator func))
            (fdefinition/cc (operator func)))
       (evaluate-arguments-then-apply
        (lambda (arguments)
          (apply-lambda/cc (apply (fdefinition/cc (operator func)) arguments) arguments k))
        (arguments func) '()
        env))
         
  
negative.code:   (remhash function-name *cc-functions*))
  
  (defun fdefinition/cc (function-name)
    (values-list (gethash function-name *cc-functions*)))
  
  (defun (setf fdefinition/cc) (closure-object function-name &optional (type 'defun/cc))
    (setf (gethash function-name *cc-functions*) (list closure-object type)))
  
  (defvar *debug-evaluate/cc* nil
    "When non NIL the evaluator will print, at each evaluation
  