anchor.diff:                      ,id)))))
   
   
  -(define-ir-class IRObject (CORBA:IRObject auto-servant)
  +(define-ir-class IRObject (CORBA:IRObject)
     :id "IDL:omg.org/CORBA/IRObject:1.0"
     :attributes ()
     :defaults ())
  
positive.code: 
  (defmethod idltype-tc ((obj union-def))
    (flet ((default-label-p (label)
               (and (eql :tk_octet (op:kind (any-typecode label)))
                    (= 0 (any-value label)))))
      (let* ((default-index -1)
             (mfields
              (loop for i from 0
                  for m in (op:members obj)
                  do (when (default-label-p (op:label m))
                       (setq default-index i))
                  collect (list (if (default-label-p (op:label m))
                                    (arbritary-value (op:discriminator_type obj))
                                  (op:label m))
                                (op:name m)
                                (op:type m))) ))
        (make-typecode :tk_union (op:id obj) (op:name obj)
                       (op:discriminator_type obj) default-index mfields))))
  
  
  
negative.code: ;;;; local-ir.lisp -- An Interface Repository Implementation
  ;; $Id: local-ir.lisp,v 1.18 2002/10/05 11:18:09 lenst Exp $
  
  (in-package :clorb)
  
  