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:   (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))
  
  (defvar *debug-evaluate/cc* nil
    "When non NIL the evaluator will print, at each evaluation
  
negative.code: 		     (setf args (cdr args))))))
      (destructuring-bind (arguments &body body) args
        `(progn
  	 (setf (fdefinition/cc ',name 'defmethod/cc) t)
           (defgeneric/cc ,name ,(extract-argument-names arguments
                                                         :allow-specializers t
                                                         :keep-lambda-keywords t))
  	 (defmethod ,name ,@qlist ,arguments
  	   (declare (ignorable ,@(extract-argument-names arguments :allow-specializers t)))
  	   (make-instance 'closure/cc
  