anchor.diff:     #:standard-class
      )
   
  +
  +  (:export 
  +   #:validate-class
  +   )
  +  
     ;; TBD: Does the return value for the following form differ per
     ;; implementation? [A Review of C2MOP]
     ;;
     ;;   (package-shadowing-symbols (find-package '#:c2mop))
   
  +  #+LTP_PROTOTYPES
     (:export
  -   #:validate-class
      #:associative-index
      #:associative-table-index
      #:object-table-lock
  
positive.code: 
    )
  
  (let* ((p (find-package '#:ltp-mop-utils))
         (s (package-shadowing-symbols p)))
    ;; NB: No package loxk held, during this operation
    (do-external-symbols (xs '#:c2mop)
      (unless (find (the symbol xs) (the list s)
                    :test #'eq)
  
negative.code:   (:shadowing-import-from
     #+SBCL #:SB-MOP
     #+CMU #:PCL
     #+(or MCL OPENMCL) #:CCL
     #+ALLEGRO #:MOP
     #:validate-superclass
     #:standard-generic-function
  