anchor.diff:  ;;; Done defining classes.
   ;;; Don't define any new classes in this file after this point!
   
  -;;; Compute slot layouts for each class.
  -
  -;;(format t "Computing slot layouts...~%")
  -
   (defun compute-primordial-slot-layout (class-name)
     (let* ((initargs (gethash class-name *primordial-class-table*))
            (layout (getf initargs :layout)))
  
positive.code:         (setf layout (make-array (length layout) :initial-contents layout))
          (setf (getf (gethash class-name *primordial-class-table*) :layout) layout)))
      layout))
  
  (maphash (lambda (name def)
             (declare (ignore def))
             (compute-primordial-slot-layout name))
           *primordial-class-table*)
  
  ;;; Start defining real classes.
  
  ;;; topological-sort implements the standard algorithm for topologically
  ;;; sorting an arbitrary set of elements while honoring the precedence
  
negative.code:             *secret-unbound-value*)))
  
  ;;; Define the standard class hierarchy.
  ;;;
  ;;; ENSURE-CLASS is currently set to the primordial ENSURE-CLASS. This will
  ;;; install primordial class definitions in *PRIMORDIAL-CLASS-TABLE*.
  ;;; These primordial classes will be converted to real classes by
  ;;; INITIALIZE-CLOS.
  ;;; INITIALIZE-CLOS does not respect VALIDATE-SUPERCLASS, which normally
  ;;; prevents new built-in classes from being defined.
  
  ;;(format t "Defining bootstrap classes.~%")
  
  