anchor.diff:    (:nicknames #:ltp.common.mop.singleton)
     (:use #:ltp/common/mop
           #:ltp/common
  -        #:cl))
  +        #:cl)
  +  (:export
  +   #:singleton
  +   #:defsingleton
  +   ))
   
   (in-package #:ltp/common/mop/singleton)
   
  
positive.code: 
  (validate-class singleton)
  
  
  ;; FIXME: Automatically finalize SINGLETON after initialization.
  ;;
  
negative.code: 
  
  
  (defsingleton singleton-2 (singleton-1)
    ((sl-c)))
  
  (finalize-inheritance (find-class 'singleton-2))
  
  