anchor.diff:                                    :test #'eq)))
                       (values (cadr name-prop) params-adj)))
                    (t
  -                                        ;: NB: Calling INTERN in the macroexpansion @ default name
  +                  ;; NB: Calling INTERN before the macroexpansion @ default name
                     (values (intern (concatenate 'simple-string
                                                  (symbol-name name)
                                                  #.(symbol-name '#:-prototype)))
  
positive.code: 
    (class-precedence-list (class-of (find-class 'frob-s-1)))
  
    (defsingleton* frob-s-1-1 (frob-s-1)
      ())
  
    (typep (find-class 'frob-s-1-1) 'frob-s-1)
  
negative.code: 
        (with-symbols ()
  
          (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
  