anchor.diff:    ;;     --
     ;;     NB: This documentation, in effect, uses the term PROTOTYPE-CLASS in
     ;;     lieu of METACLASS as it denotes -- in the former -- a class
  -  ;;     defined during evaluation of DEFSINGLETON*, however serving
  +  ;;     defined during evaluation of DEFSINGLETON, however serving
     ;;     in a role of a conventional CLOS metaclass.
     ;;     ---
     ;;
  
positive.code:     ())
  
    (typep (find-class 's-x-2) 's-x-1)
    ;; => NIL ; which is - in short - why this was updated with DEFSINGLETON*
    ;;
    ;; NB: A broader synposis about the DEFSINGLETON* update is provided,
    ;; in commentary available in the macro definition's source form, below.
  
    )
  
negative.code:   ;; FIXME while => NIL, T
  
    ;; NB/ORTHOGONAL - CLOS and MOP
    (list* (find-class nil nil)
           (let* ((nm (gentemp "Singleton-"))
                  (c (make-instance 'standard-class :name nm)))
             (list (find-class nm nil)
                   c)))
    ;; => NIL, NIL
    ;;
    ;; THUS: While MAKE-INSTANCE of a STANDARD-CLASS does result in an
  