anchor.diff:  		:metaclass (find-class 'forward-referenced-class)))
   
   ;; (ensure-forward-referenced-class (gensym))
  +
  +
  +(defun initialize-slot-p (slot slots-spec)
  +  ;; utility for SHARED-INITIALIZE
  +  (declare (type symbol slot)
  +           (type (or boolean cons) slots-spec)
  +           (values boolean))
  +  (or (eq slots-spec t)
  +      (and (consp slots-spec)
  +           (when (find slot (the cons slots-spec)
  +                       :test #'eq)
  +             (values t)))))
  +
  +;; (initialize-slot-p 'foo t)
  +;; => T
  +;; (initialize-slot-p 'foo '(foo bar quux))
  +;; => T
  +;; (initialize-slot-p 'foo '())
  +;; => NIL
   
   (defmacro defclass* (name-form (&rest superclasses) 
                                (&rest slot-definitions)
  
positive.code:                  (list (if read-only-p :reader :accessor)
                         (intern-formatted "~A~A" conc-name slot))))
               (initarg (slot)
                 (list :initarg (intern (symbol-name slot) :keyword)))
  
               (initform (form infp)
                 (when infp
  
negative.code:   ((b)
     (c real :read-only t)))
  ))
  
  
  