r4871: *** empty log message ***

[umlisp.git] / tests.lisp

diff --git a/tests.lisp b/tests.lisp
index c12f21c7e6ac63b680f83f3cc3be4a9aedb7ef90..1a6487d512c79e17219155adfea3ca9573e9fb66 100644 (file)
--- a/tests.lisp
+++ b/tests.lisp
@@ -7,7 +7,7 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  May 2003
 ;;;;
-;;;; $Id: tests.lisp,v 1.6 2003/05/06 02:36:58 kevin Exp $
+;;;; $Id: tests.lisp,v 1.7 2003/05/07 22:53:36 kevin Exp $
 ;;;;
 ;;;; This file, part of UMLisp, is
 ;;;;    Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
@@ -17,7 +17,7 @@
 ;;;; *************************************************************************
 
 (defpackage #:umlisp-tests
-  (:use #:umlisp #:cl #:rtest))
+  (:use #:umlisp #:cl #:rtest #:kmrcl))
 (in-package #:umlisp-tests)
 
 (setf rtest::*catch-errors* nil)
@@ -105,5 +105,5 @@
         (make-instance 'ucon :cui (ensure-integer cui)
                        :pfstr pfstr
                        :lrl (ensure-integer cuilrl)))
-     (query-string 'mrcon '(cui kpfstr kcuilrl) srl nil nil)
+     (umlisp::query-string 'mrcon '(cui kpfstr kcuilrl) srl nil nil)
      :database db)))