anchor.diff:  
   ;;;; CORBA:Object / CORBA:Proxy
   
  -(defclass CORBA:Object ()
  -  ())
  +(defgeneric object-is-a (object id)
  +  (:method-combination or))
  +
  +(defgeneric object-id (object))
  +
  +(define-interface CORBA:Object ()
  +  :id "IDL:omg.org/CORBA/Object:1.0"
  +  :name "Object")
   
   (defmethod object-id ((obj CORBA:Object))
     (or (some #'(lambda (x)
  
positive.code:   (op:get_response req))
  
  
  ;; Used in static stubs, shorter code then op:_create_request
  (defun request-create (obj operation result-type )
    (make-instance 'request
      :target obj
  
negative.code:               :accessor request-paramlist) ;result + arguments
     (req-id :initform nil :accessor request-req-id)
     (connection :initform nil :accessor request-connection)
     ;;(reply :initform nil  :accessor request-reply)
     (forward :initform nil :accessor request-forward)
     (status :initform nil :accessor request-status)
     (buffer :initform nil :accessor request-buffer)
     (service-context :initform nil :accessor request-service-context)
     (exceptions :initform nil :initarg :exceptions :accessor request-exceptions)))
  
  