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