anchor.diff:  (defclass singleton-direct-slot-definition
       (singleton-slot-definition standard-direct-slot-definition)
     ;; NB: These will extend the standard MOP classes
  -  ;; though the allocation meta-slot will be by-in-large
  -  ;; unused here - assumed to be, in effect, always :CLASS
  +  ;;
  +  ;; The allocation meta-slot will be by-in-large unused here - assumed
  +  ;; to be, in effect, always :CLASS
     ())
  +
  +;; FIXME: Err for any singleton slot definition with
  +;; :ALLOCATION :INSTANCE specified during slot metaobject
  +;; initialization
   
   
   (defmethod direct-slot-definition-class ((class singleton)
  
positive.code: 
  ;; MOP Interop ...
  
  ;; Applications TD
  ;; - Use for internal representation of "Application Personalities" in
  ;;   the Lisp Environment
  ;;
  ;; - Use for internal representation of ABIs
  
  ;; NB: Static dispatching w/ CLtL2+MOP standard methods
  
  
  ;; FIXME: Err for any singleton slot definition with
  ;; :allocation :instance specified during metaobject
  ;; initialization
  
  #+nil
  (eval-when ()
  
negative.code: (in-package #:ltp/common/mop/singleton)
  
  
  ;; -- Singleton Class Definition
  
  (defclass singleton (standard-class)
    ())
  