X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests.lisp;h=1a6487d512c79e17219155adfea3ca9573e9fb66;hb=dff3199405205cf99782dd3abf9d9dde187f5494;hp=c12f21c7e6ac63b680f83f3cc3be4a9aedb7ef90;hpb=3199369942d2e5ab4f5b060c2c6b655caf505944;p=umlisp.git

diff --git a/tests.lisp b/tests.lisp
index c12f21c..1a6487d 100644
--- 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)))