anchor.diff:  
   (setq *container* (make-instance 'repository))
   ;(process-list (get-idl-sexp "trader"))
  +#||
   (process-list (get-idl-sexp "x-04"))
   ;;(process-list (get-idl-sexp "my-query"))
   (unless (fboundp 'describe-repo)
  -  (load "clorb:src;describe-repo"))
  +  (load "CLORB:SRC;describe-repo"))
   (describe-repo *container*)
   (doseq (x (op:contents *container* :dk_all nil)) (pprint (op:describe x)))
  +||#
  
positive.code: (in-package :clorb)
  
  (defparameter *idl-directory*
    #3P"Macintosh HD:Users:lenst:src:hacks:idldump:work:")
  
  (defun get-idl-sexp (file)
    (let ((path (merge-pathnames file *idl-directory*))
  
negative.code: (dx (CASE_STMT labels members)
    (loop for member in members nconc
          (if (null labels)
              (list
               (CORBA:UnionMember
                :name (op:name member)
                :label (CORBA:Any :any-typecode CORBA:TC_OCTET
                                  :Any-value 0) 
                :type_def (op:type_def member) ))
            (loop for label in labels collect
                  (CORBA:UnionMember
                   :name (op:name member)
  