anchor.diff:  
   (defmacro defun/cc (name arguments &body body)
     `(progn
  -     (setf (fdefinition/cc ',name) (make-instance 'closure/cc
  -                                                  :code (walk-form '(lambda ,arguments ,@body) nil nil)
  -                                                  :env nil))
  +     (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."))))
  
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: 		     (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
  