anchor.diff:  ;;;; local-ir.lisp -- An Interface Repository Implementation
  -;; $Id: local-ir.lisp,v 1.17 2002/09/25 07:31:44 lenst Exp $
  +;; $Id: local-ir.lisp,v 1.18 2002/10/05 11:18:09 lenst Exp $
   
   (in-package :clorb)
   
  
positive.code:                     ,id)))))
  
  
  (define-ir-class IRObject (CORBA:IRObject auto-servant)
    :id "IDL:omg.org/CORBA/IRObject:1.0"
    :attributes ()
    :defaults ())
  
negative.code: 
  (defmethod idltype-tc ((obj union-def))
    (flet ((default-label-p (label)
             (and (not (symbolp label))
                  (eql :tk_octet (op:kind (any-typecode label)))
                                  (= 0 (any-value label)))))
      (create-union-tc (op:id obj) (op:name obj)
                       (op:discriminator_type obj)  
                       (map 'list (lambda (m)
                                    (list (if (default-label-p (op:label m))
                                            'default
                                            (op:label m))
                                          (op:name m)
                                          (op:type m)))
                            (op:members obj)))))
  
  
  