anchor.diff:    (or (eql metaclass *the-class-standard-class*)
         (eql metaclass *the-class-funcallable-standard-class*)))
   
  -(defun make-instance-clos-class
  -       (metaclass &key name direct-superclasses direct-slots
  -        direct-default-initargs
  -        &allow-other-keys)
  -  (let ((class (std-allocate-instance metaclass)))
  -    (setf (class-name class) name)
  -    (setf (class-direct-subclasses class) ())
  -    (setf (class-direct-methods class) ())
  -    (setf (class-dependents class) ())
  -    (setf (class-hash class) (next-class-hash-value))
  -    (setf (class-finalized-p class) nil)
  -    (std-after-initialization-for-classes class
  -       :direct-slots direct-slots
  -       :direct-superclasses (or direct-superclasses
  -                                (default-direct-superclasses metaclass))
  -       :direct-default-initargs direct-default-initargs)
  -    class))
  -
   (defun convert-to-direct-slot-definition (class canonicalized-slot)
     (apply #'make-instance
            (apply #'direct-slot-definition-class
  
positive.code: 
  (defun std-after-initialization-for-classes
         (class &key direct-superclasses direct-slots direct-default-initargs &allow-other-keys)
    (dolist (superclass direct-superclasses)
      ;; Open code standard VALIDATE-SUPERCLASS here.
      (when (not (or (and (standardish-class-p (class-of class))
  
negative.code:                `(,key ,value)))))
  
  (defun ensure-class (name &rest all-keys
                       &key
                         &allow-other-keys)
    (apply #'ensure-class-using-class
           (find-class name nil)
           name
           all-keys))
  
  ;;; make-instance-standard-class creates and initializes an instance of
  ;;; standard-class without falling into method lookup.  However, it cannot be
  