anchor.diff:  ;;;; clorb-supp.lisp
  -;; $Id: clorb-supp.lisp,v 1.9 2003/11/24 09:06:26 lenst Exp $
  +;; $Id: clorb-supp.lisp,v 1.10 2004/06/09 21:22:32 lenst Exp $
   
   (in-package :clorb)
  +
  +
  +;; For lack of better place to put it:
  +;; Special variable: *THE-ORB*
  +;;  holds a reference to the singelton orb object when the orb has been initialized.
  +
  +(defvar *the-orb* nil)
  +
  +
  +
  +;;; Logging
   
   (defvar *log-output* t)
   
  
positive.code:   (intern (string-upcase string) :keyword))
  
  
  
  ;;; clorb-supp.lisp ends here
  
negative.code:     #-clisp
      (finish-output *log-output*)))
  
  
  
  (defun stroid (stream oid colon-p at-p)
    (declare (ignore colon-p at-p))
    (map nil
  