anchor.diff:  		     (setf args (cdr args))))))
       (destructuring-bind (arguments &body body) args
         `(progn
  -	 (setf (get ',name 'defmethod/cc) t)
  +	 (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
  
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: 
  (defmacro defun/cc (name arguments &body body)
    `(progn
       (setf (fdefinition/cc ',name 'defun/cc)
             (make-instance 'closure/cc
                            :code (walk-form '(lambda ,arguments ,@body) nil nil)
                            :env nil))
       (defun ,name ,arguments
         (declare (ignorable ,@(extract-argument-names arguments :allow-specializers nil)))
         (error "Sorry, /CC function are not callable outside of with-call/cc."))))
  