anchor.diff:     #:standard-class
      )
     #+(or SBCL CMU CCL ALLEGRO)
  -  ;; TO DO: Keep this synchronized onto PCL-PORT
  -  ;;
  -  ;; TBD: Why C2MOP shadows MOP implementations?
  +  ;; NB: C2MOP shadows MOP implementations.
     ;;
     ;;     Possible issue: When shadowing a MOP implementaion, an
  -  ;;       application may also effectively be shadowing any compiler
  -  ;;       optimizaitons defined for the MOP implementation, such as
  -  ;;       may be defined in a manner specific to the individual MOP
  -  ;;       implementation.
  +  ;;       application may also effectively be shadowing some compiler
  +  ;;       optimizaitons, such as may be defined in a manner specific to
  +  ;;       the individual MOP implementation.
  +  ;;
  +  ;;
  +  ;;     This system will endeavor to un-shadow the MOP implementation.
  +  ;;
     (:export
      #:validate-superclass ;; PCL
      #:standard-generic-function
  
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: ;;------------------------------------------------------------------------------
  
  (defpackage #:ltp-mop-utils
    (:use  #:ltp-utils
           #:c2mop
           #+LTP_PROTOTYPES #:bordeaux-threads
           #:cl
  