anchor.diff:    (std-slot-makunbound instance slot-name))
   (defmethod slot-makunbound-using-class
              ((class funcallable-standard-class) instance slot-name)
  -  (fc-std-slot-makunbound instance slot-name))
  +  (std-slot-makunbound instance slot-name))
   
   ;;; Instance creation and initialization
   
  
positive.code:   (std-slot-exists-p instance slot-name))
  (defmethod slot-exists-p-using-class
             ((class funcallable-standard-class) instance slot-name)
    (fc-std-slot-exists-p instance slot-name))
  
  (defgeneric slot-boundp-using-class (class instance slot-name))
  (defmethod slot-boundp-using-class
  
negative.code:   (std-slot-boundp instance slot-name))
  (defmethod slot-boundp-using-class
             ((class funcallable-standard-class) instance slot-name)
    (std-slot-boundp instance slot-name))
  
  (defgeneric slot-makunbound-using-class (class instance slot-name))
  (defmethod slot-makunbound-using-class
  