anchor.diff:  ;;;; The ORB Interface
   
   (in-package :clorb)
  -
   
   (defvar *the-orb* nil)
   
  
positive.code: 
  (defun orb-port (orb)
    (listner-port (adaptor orb)))
  
negative.code:          :cant)
          ((nil) nil)))))
  
  ;;;    Object string_to_object (in string str);
  (define-method string_to_object ((orb orb) str) 
    (declare (ignore orb))
    (string-to-object str))
  
  ;;;    string object_to_string (in Object obj);
  (define-method object_to_string ((orb orb) obj)
    (declare (ignore orb))
    (object-to-string obj))
  
  (defun string-to-object (str)
    (unless (string-equal "IOR:" str :end2 4)
      ;;(wildcard:match "IOR:*" str)
      (error "Illegal object reference: ~A" str))
  