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:      (evaluate-apply/cc (arguments func) '() env k))
      
      ((and (symbolp (operator func))
            (fdefinition/cc (operator func)))
       (evaluate-arguments-then-apply
        (lambda (arguments)
          (apply-lambda/cc (fdefinition/cc (operator func)) arguments k))
  
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
  