anchor.diff:        env))
   
       ((and (symbolp (operator func))
  -          (fdefinition/cc (operator func)))
  +          (eql 'defmethod/cc (nth-value 1 (fdefinition/cc (operator func)))))
        (evaluate-arguments-then-apply
         (lambda (arguments)
  -        (apply-lambda/cc (apply (fdefinition/cc (operator func)) arguments) arguments k))
  +        (apply-lambda/cc (apply (operator func) arguments) arguments k))
         (arguments func) '()
         env))
          
  
positive.code: 		     (setf args (cdr args))))))
      (destructuring-bind (arguments &body body) args
        `(progn
  	 (setf (get ',name 'defmethod/cc) t)
  	 (defmethod ,name ,@qlist ,arguments
  	   (declare (ignorable ,@(extract-argument-names arguments :allow-specializers t)))
  	   (make-instance 'closure/cc
  
negative.code:     (ecase *debug-evaluate/cc*
        (:full
         (format *debug-io*
                 "~&Evaluating: ~S~%~3TEnv: ~S~%~3TK: ~S~%"
                 form env k))
        ((t)
         (format *debug-io* "~&Evaluating: ~S~%" form))
  