anchor.diff:  
   (defun object-narrow (obj id)
     "Return an equivalent proxy with class for the repository id."
  +  (when (symbolp id)
  +    (setq id (symbol-ifr-id id)))
     (assert (op:_is_a obj id))
     (make-instance (find-proxy-class id)
       :id id
  
positive.code: 
  (defmethod print-object ((o corba:proxy) stream)
    (print-unreadable-object (o stream :type t)
      (format stream "~S @ ~A:~A"
              (object-id o)
              (object-host o)
              (object-port o))))
  
  (define-method _is_nil ((x null))
    t)
  
negative.code: ;;;; clorb-object.lisp --- CORBA:Object and other pseudo objects
  ;; $Id: clorb-object.lisp,v 1.7 2002/10/01 13:58:22 lenst Exp $
  
  (in-package :clorb)
  
  