anchor.diff:      :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))
   
  
positive.code: (defconstant +class-unique-number-offset+ 0)
  (defconstant +instance-slots-offset+ 1)
  
  (define-built-in-class t () ())
  
  (define-built-in-class function (t)
    ((%entry-point :initarg :entry-point)
     (%linkage-vector :initarg :linkage-vector)
     (%environment :initform nil :initarg :environment)))
  
  (defclass standard-object (t) ())
  
  (defclass funcallable-standard-object (standard-object function)
    ())
  
  (defclass metaobject (standard-object)
    ())
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; 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
  
negative.code: 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Class FORWARD-REFERENCED-CLASS.
  
  (defclass forward-referenced-class (class)
    ((%direct-default-initargs
  