anchor.diff:      (not (eq *secret-unbound-value* (slot-contents slots location)))))
   (defun slot-boundp (object slot-name)
     (let ((metaclass (class-of (class-of object))))
  -    (cond ((standardish-class-p metaclass)
  +    (cond ((std-class-p metaclass)
              (std-slot-boundp object slot-name))
  -          (t (slot-boundp-using-class (class-of object) object slot-name)))))
  +          (t
  +           (let ((slot (find-effective-slot object slot-name)))
  +             (if slot
  +                 (slot-boundp-using-class (class-of object) object slot)
  +                 (values (slot-missing (class-of object) object slot-name 'slot-boundp))))))))
   
   (defun std-slot-makunbound (instance slot-name)
     (multiple-value-bind (slots location)
  
positive.code: (defun ensure-class-finalized (class)
    "If CLASS is not finalized, call FINALIZE-INHERITANCE on it."
    (when (not (class-finalized-p class))
      (funcall (if (standardish-class-p (class-of class))
                   #'std-finalize-inheritance
                   #'finalize-inheritance)
               class)))
  
negative.code:   (when (and (not (class-finalized-p class))
               (every #'class-finalized-p
                      (class-direct-superclasses class)))
      (funcall (if (std-class-p (class-of class))
                   #'std-finalize-inheritance
                   #'finalize-inheritance)
               class)))
  