anchor.diff:      oid))
   
   
  -(defun ensure-corba-package (name &key nicknames export)
  -  (let ((package (find-package name)))
  -    (unless package
  -      (setq package (make-package name :nicknames nicknames :use '())))
  -    (export (mapcar (lambda (sym-name) (intern sym-name package)) export)
  -            package)))
  -
   
   
   ;;;; Helper functions
  +
   
   (defun kwote (x)
     (list 'quote x))
  
positive.code:     #-clisp
      (finish-output *log-output*)))
  
  (defun stroid (stream oid colon-p at-p)
    (declare (ignore colon-p at-p))
    (map nil
  
negative.code: ;;;; clorb-supp.lisp
  ;; $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)
  
  