anchor.diff:  (defconstant +class-unique-number-offset+ 0)
   (defconstant +instance-slots-offset+ 1)
   
  +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  +;;;
  +;;; Class T.
  +
   (define-built-in-class t () ())
  +
  +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  +;;;
  +;;; Class FUNCTION.
   
   (define-built-in-class function (t)
     ((%entry-point :initarg :entry-point)
      (%linkage-vector :initarg :linkage-vector)
      (%environment :initform nil :initarg :environment)))
   
  +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  +;;;
  +;;; Class STANDARD-OBJECT.
  +
   (defclass standard-object (t) ())
   
  +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  +;;;
  +;;; Class FUNCALLABLE-STANDARD-OBJECT.
  +
   (defclass funcallable-standard-object (standard-object function)
     ())
   
  +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  +;;;
  +;;; Class METAOBJECT.
  +
   (defclass metaobject (standard-object)
     ())
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  -;;; GENERIC-FUNCTION and STANDARD-GENERIC-FUNCTION.
  +;;; Classes GENERIC-FUNCTION and STANDARD-GENERIC-FUNCTION.
   ;;;
   ;;; FIXME: I can not remember why I decided not to use initargs for
   ;;; the slots here, and instead calling explicit writers in :AFTER
  
positive.code:     :initform '()
      :reader specializer-direct-methods
      :writer (setf s-direct-methods))))
  
  (defclass eql-specializer (specializer)
    ((%object 
  
negative.code:     :initform nil
      :accessor method-documentation)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Class STANDARD-METHOD.
  
  (defclass standard-method (method)
    ())
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Class STANDARD-ACCESSOR-METHOD.
  
  (defclass standard-accessor-method (standard-method)
    ((%slot-definition 
      :initarg :slot-definition
      :reader accessor-method-slot-definition)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Class STANDARD-READER-METHOD.
  
  (defclass standard-reader-method (standard-accessor-method)
    ())
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Class STANDARD-WRITER-METHOD.
  
  (defclass standard-writer-method (standard-accessor-method)
    ())
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Class METHOD-COMBINATION.
  
  (defclass method-combination (metaobject)
    ())
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Class SPECIALIZER.
  
  (defgeneric specializer-direct-generic-functions (specializer))
  
  