anchor.diff:  
         (with-symbols ()
   
  -        (multiple-value-bind (%user-metaclass %params)
  -            (compute-user-metaclass %params) ;; NB: May be unused here
  +        (multiple-value-bind (user-metaclass %params)
  +            (compute-user-metaclass %params)
   
             ;; NB: Using an implcit PROTOTYPE-METACLASS is-a SINGLETON here.
   
             `(progn
  +
  +             ;; FIXME: How much here may need to be wrapped in EVAL-WHEN?
   
                ;; NB: This macro, in effect, prevents any usage of forward
                ;; referenced classes in the SUPERCLASSES list
  
positive.code:   (typep (make-instance 'x-c) 'x-c)
    ;; => T ;; consistent onto CLOS
  
  
    (class-direct-superclasses (find-class 'x-c))
  
    ;; -
  
  
negative.code:                                   :test #'eq)))
                      (values (cadr name-prop) params-adj)))
                   (t
                    ;; NB: Calling INTERN before the macroexpansion @ default name
                    (values (intern (concatenate 'simple-string
                                                 (symbol-name name)
                                                 #.(symbol-name '#:-prototype)))
  