anchor.diff:      :initform nil
       :accessor standard-instance-slots)))
   
  -(define-built-in-class t ())
  -
  -(define-built-in-class function (t))
  -
   (defclass funcallable-standard-object (standard-object function)
     ())
   
  
positive.code: (defconstant +timestamp-offset+ 0)
  (defconstant +instance-slots-offset+ 1)
  
  (defclass standard-object (t)
    (;; Every standard instance has a unique time stamp.  The next
     ;; available consecutive timestamp is given to an instance when it
  
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
  