anchor.diff:      (multiple-value-bind (%proto-name %params)
           (compute-prototype-class-name params)
   
  -      (with-symbols (%singleton) ;; FIXME review for unused symbols
  +      (with-symbols ()
   
           (multiple-value-bind (%user-metaclass %params)
               (compute-user-metaclass %params) ;; NB: May be unused here
  
positive.code:                                   :test #'eq)))
                      (values (cadr name-prop) params-adj)))
                   (t
                    ;: NB: Calling INTERN in the macroexpansion @ default name
                    (values (intern (concatenate 'simple-string
                                                 (symbol-name name)
                                                 #.(symbol-name '#:-prototype)))
  
negative.code:           ;; NB: Using an implcit PROTOTYPE-METACLASS is-a SINGLETON here.
  
            `(progn
  
               ;; NB: This macro, in effect, prevents any usage of forward
               ;; referenced classes in the SUPERCLASSES list
  