anchor.diff:  ;; Contributors: Sean Champ - Initial Implementation
   ;;
   ;;------------------------------------------------------------------------------
  +
  +
  +;; NOTE - a concern with regards to implicit class definitions and the
  +;; implementation compiler environment.
  +#+NIL
  +(list* (find-class nil nil) ;; simple matter - no class named NIL
  +       (let* ((nm (gentemp "Class-"))
  +              (c (make-instance 'standard-class :name nm
  +                                :direct-superclasses
  +                                (list (find-class 'standard-class)))))
  +         (list (find-class nm nil)
  +               c)))
  +;; => NIL, NIL, <CLASS>
  +;;
  +;; The class C is defined, but not located by FIND-CLASS
  +;;
  +;; The implementation may provide some forms in the evaluation of
  +;; DEFCLASS, such that cannot be portably emulated in a program using
  +;; only MAKE-INSTANCE.
  +;;
  +;; As such, some concerns for portable programs:
  +;;
  +;; - Any "User-created" classes not defined in such as a top-level
  +;;   DEFCLASS form may not be recognized by the compiler as being
  +;;   classes.
  +;;
  +;; - Such "User-created" classes may not be reachable by FIND-CLASS
  +;;
  +;; - Any such "User-created" class may -- in some effects -- appear to
  +;;   shadow a system class, superficially, by that class reusing the
  +;;   system class' class-name even while the class is not EQ to the
  +;;   class returned by FIND-CLASS for that same class-name.
  +;;
  +;;
  +;; This, in short, is why the macroexpansion for DEFSINGLETON will
  +;; produce two top-level DEFCLASS calls.
  +;;
  +;; This concern, in another effect, may serve to limit some extensions
  +;; of the SINGLETON framework.
   
   
   (in-package #:cl-user)
  
positive.code: 
  (in-package #:ltp/common/singleton)
  
  ;; NB: File depends on:
  ;; #:ltp-common-mop [system]
  ;; finalize.lisp [source file]
  ;; - must be evaluated after previous DEFPACKAGE, at present
  
  
  ;; NB/TD SINGLETON => MODEL [OUTLINE]
  ;; - MODEL @ LTP-SYS
  ;;   - MODEL @ LLVM
  ;;   - MODEL @ ASN.1
  
negative.code: ;;     = Model Development @ LTP DEVO INFRAST - SM
  ;;       - [...]
  
  
  ;; -- Singleton Class Definition
  
  (defclass singleton (standard-class)
  