anchor.diff:  ;;;  interface ORB {				// PIDL
   
   (define-corba-class ORB ()
  -  :slots 
  +  :slots
     ((adaptor :initform nil :accessor adaptor)
      (active  :initarg :active  :accessor orb-active)
      (host    :initarg :host    :accessor orb-host)
  
positive.code: 
  
  ;;;    Status create_list ( in long    count,	 
  ;;;                         out NVList new_list );
  ;;;    Status create_operation_list ( in OperationDef oper, 
  ;;;                                   out NVList      new_list );
  ;;;
  ;;;    Status get_default_context (out Context ctx);
  
negative.code: (defun parse-obj-addr (str)
    (multiple-value-bind (prot-token rest)
        (split-url str)
      (cond
        ((null prot-token) (error "malformed obj-addr"))
        ((string-equal prot-token "rir")
         :rir)
  