anchor.diff: -;;;; clorb-object.lisp --- CORBA:Object
  -;; $Id: clorb-object.lisp,v 1.1 2000/11/14 22:50:16 lenst Exp $
  +;;;; clorb-object.lisp --- CORBA:Object and other pseudo objects
  +;; $Id: clorb-object.lisp,v 1.2 2001/07/02 16:34:44 lenst Exp $
   
   (in-package :clorb)
   
  
positive.code: ;;;|             in SetOverrideType set_add);
  ;;; _set_policy_overrides
  
  (defclass CORBA:Object ()
    ())
  
  
negative.code: (defun register-proxy-class (id class)
    (setf (gethash id *proxy-classes*) class))
  
  (defun object-narrow (obj id)
    "Return an equivalent proxy with class for the repository id."
    (assert (op:_is_a obj id))
    (make-instance (find-proxy-class id)
      :id id
      :host (object-host obj)
      :port (object-port obj)
      :key  (object-key obj)
      :profiles (object-profiles obj)
      :forward (object-forward obj)))
  
  
  ;;; clorb-object.lisp ends here
  