anchor.diff:    (std-slot-makunbound instance slot-name))
   (defmethod slot-makunbound-using-class
              ((class funcallable-standard-class) instance slot-name)
  -  (std-slot-makunbound instance slot-name))
  +  (fc-std-slot-makunbound instance slot-name))
   
   ;;; Instance creation and initialization
   
  
positive.code:             new-value (class-of object) object slot-name))))
  
  (defun std-slot-boundp (instance slot-name)
    (let ((location (slot-location (class-of instance) slot-name))
          (slots (std-instance-slots instance)))
      (not (eq secret-unbound-value (slot-contents slots location)))))
  (defun fc-std-slot-boundp (instance slot-name)
    (let ((location (slot-location (class-of instance) slot-name))
          (slots (funcallable-std-instance-slots instance)))
      (not (eq secret-unbound-value (slot-contents slots location)))))
  
negative.code:           standard-object funcallable-standard-object
            standard-class funcallable-standard-class
            standard-generic-function standard-method
            standard-slot-definition
            class-name
  
            class-direct-superclasses class-direct-slots
  