anchor.diff:  (in-package :clorb)
   
   (defparameter *idl-directory*
  -  #3P"Macintosh HD:Users:lenst:src:hacks:idldump:work:")
  +    (or #+mcl   #3P"Macintosh HD:Users:lenst:src:hacks:idldump:work:"
  +        #+allegro  #P"/home/lenst/src/hacks/idldump/work/"))
   
   (defun get-idl-sexp (file)
     (let ((path (merge-pathnames file *idl-directory*))
  
positive.code: (dx (CASE_STMT labels members)
    (loop for member in members nconc
          (if (null labels)
            (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)
  
negative.code: 
  (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"))
  (describe-repo *container*)
  (doseq (x (op:contents *container* :dk_all nil)) (pprint (op:describe x)))
  ||#
  