anchor.diff:    (:export "*NAMING-IOR-FILE*" "*NAMING-BASE-PATH*" "*NAMING-POA*"
              "SETUP-PNS" "SETUP-NAMING-POA"))
   
  -(defpackage "CLORB.IDLCOMP"
  +(defpackage "NET.CDDR.CLORB.IDLCOMP"
  +  (:nicknames "CLORB.IDLCOMP")
     (:use "COMMON-LISP" "NET.CDDR.CLORB" "NET.CDDR.CLORB.INTERNALS"))
  
positive.code:            ;; sysdep
             shell-to-string-or-stream external-namestring))
  
  (defpackage :clorb
    (:nicknames "NET.CDDR.CLORB")
    (:use "COMMON-LISP" "NET.CDDR.CLORB.INTERNALS"
          #+:use-my-idlparser :net.cddr.redpas
          #+cmu MOP #-(or sbcl cmu mcl) CLOS)
    #+cmu
    (:shadowing-import-from "MOP"
                "CLASS-NAME" "BUILT-IN-CLASS" "CLASS-OF" "FIND-CLASS")
  
negative.code:            ;; Utilities
             "INVOKE" "RESOLVE" "REBIND" "PATHNAME-URL"
             ;; Development tools
             #+clorb-dev "RELOAD"
             ;; Useful internals
             "LOAD-IR" "*RUNNING-ORB*" "ROOT-POA"
             "*HOST*" "*PORT*" )
  