anchor.diff:  (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) )
  +            (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)
  
positive.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)))
  
negative.code: (in-package :clorb)
  
  (defparameter *idl-directory*
      (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*))
  