anchor.diff:    ((b)
      (c real :read-only t)))
   ))
  +
  +
  
positive.code: 		:metaclass (find-class 'forward-referenced-class)))
  
  ;; (ensure-forward-referenced-class (gensym))
  
  (defmacro defclass* (name-form (&rest superclasses) 
                               (&rest slot-definitions)
  
negative.code:                  (list (if read-only-p :reader :accessor)
                         (intern-formatted "~A~A" conc-name slot))))
               (initarg (slot)
                 (list :initarg (intern* slot :keyword)))
  
               (initform (form infp)
                 (when infp
  