anchor.diff:    (when (symbolp class)
       (setf class (find-class class)))
     (if (eq class *class-standard-class*)
  -      (let* ((defs *effective-slots-standard-class*)
  +      (let* ((defs (find-effective-slots 'standard-class))
   	     (slot-storage (allocate-slot-storage (length defs)
   						  *secret-unbound-value*))
   	     (instance (allocate-standard-instance *class-standard-class*
  
positive.code: 
  (defun make-direct-slot-definition (&rest initargs
  				    &key &allow-other-keys)
    (let* ((defs *effective-slots-standard-direct-slot-definition*)
  	 (slot-descriptions defs)
  	 (slot-storage (allocate-slot-storage (length slot-descriptions)
  					      *secret-unbound-value*))
  
negative.code: 
  (defclass standard-effective-slot-definition
      (standard-slot-definition effective-slot-definition)
    #.(find-direct-slots 'standard-effective-slot-definition))
  
  (defclass specializer (metaobject)
    #.(find-direct-slots 'specializer))
  
  (defclass eql-specializer (specializer)
    #.(find-direct-slots 'eql-specializer))
  
  (defclass class (specializer)
    #.(find-direct-slots 'class))
  
  (defclass built-in-class (class)
    #.(find-direct-slots 'built-in-class))
  
  (defclass forward-reference-class (class)
    #.(find-direct-slots 'forward-reference-class))
  
  ;;; We can not use DEFCLASS to create the class named STANDARD-CLASS,
  ;;; because we already created it in order to make it posible to
  