anchor.diff:    (remhash function-name *cc-functions*))
   
   (defun fdefinition/cc (function-name)
  -  (gethash function-name *cc-functions*))
  -
  -(defun (setf fdefinition/cc) (closure-object function-name)
  -  (setf (gethash function-name *cc-functions*) closure-object))
  +  (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
  
positive.code:     (ecase *debug-evaluate/cc*
        (:full
         (format *debug-io*
                 "~&Evaluating: ~S~%Env: ~S~%K: ~S~%"
                 form env k))
        ((t)
         (format *debug-io* "~&Evaluating: ~S~%" form))
  
negative.code:       env))
  
      ((and (symbolp (operator func))
            (eql 'defmethod/cc (nth-value 1 (fdefinition/cc (operator func)))))
       (evaluate-arguments-then-apply
        (lambda (arguments)
          (apply-lambda/cc (apply (operator func) arguments) arguments k))
        (arguments func) '()
        env))
         
  