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: ;;;; local-ir.lisp -- An Interface Repository Implementation
  ;; $Id: local-ir.lisp,v 1.17 2002/09/25 07:31:44 lenst Exp $
  
  (in-package :clorb)
  
  
negative.code:   :slots ((type :initarg :type)) ; add initarg
    :defaults ())
  
  (defmethod print-object ((obj primitive-def) stream)
    (print-unreadable-object (obj stream :type t :identity t)
      (format stream "~A" (slot-value obj 'kind))))
  