anchor.diff:  (defconstant +timestamp-offset+ 0)
   (defconstant +instance-slots-offset+ 1)
   
  +(define-built-in-class t ())
  +
  +(define-built-in-class function (t))
  +
   (defclass standard-object (t)
     (;; Every standard instance has a unique time stamp.  The next
      ;; available consecutive timestamp is given to an instance when it
  
positive.code:     :initform nil
      :accessor standard-instance-slots)))
  
  (define-built-in-class t ())
  
  (define-built-in-class function (t))
  
  (defclass funcallable-standard-object (standard-object function)
    ())
  
  
negative.code:     :reader class-direct-default-initargs)
     (%direct-slots 
      :initarg :direct-slots
      :reader class-direct-slots
      :writer (setf c-direct-slots))
     (%direct-superclasses 
      ;; This slot has no initform and no initarg, because it is set by
      ;; the :after method on INITIALIZE-INSTANCE using the
  