anchor.diff:     #:*walk-prototype*
      #:remove-direct-slot
      #:clear-direct-slots
  -   #:*fn-no-inherit-p*))
  +   #:*fn-no-inherit-p*
  +   #:reset-slots))
   
   (in-package #:prototype)
   
  
positive.code:           (%slot-missing class instance slot op new-value))
        (prototype-missing () nil))))
  
  ;;;; vim: ft=lisp et
  
negative.code:           (progn
              (setf value (slot-direct-value class object slotd))
              (if (funcall *fn-no-inherit-p* value)
                  (let ((proto (prototype-of object)))
                    (when proto
                      (slot-value-using-class class proto slotd)))
                (call-next-method))))))))
  
  (defmethod (setf slot-value-using-class)
  