anchor.diff:     #:defmethod
      #:defgeneric
      #:standard-class
  +   #+(or OpenMCL MCL) #:standard-method
   
      ;; - class finalization support
      ;; NB: used in the SINGLETON definition
  
positive.code:   (:use  #:ltp/common
           #:closer-mop
           #:cl)
    #+(or SBCL CMU CCL ALLEGRO) ;; NB: PCL
    (:shadowing-import-from
     #+SBCL #:SB-MOP
     #+CMU #:PCL
     #+(or MCL OPENMCL) #:CCL
     #+ALLEGRO #:MOP
     #:validate-superclass
     #:standard-generic-function
     #:defmethod
     #:defgeneric
     #:standard-class
     )
    #+(or SBCL CMU CCL ALLEGRO)
    ;; un-shadow symbols shadowed by C2MOP
    (:export
     #:validate-superclass ;; NB PCL
  
negative.code:    #:validate-class
     )
  
    )
  
  
  