X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=test-suite%2Ftester-clsql.cl;h=ad121e4cba2596068f3388352c944decf3c34c2a;hb=1292822d0591897376e572152d3cbd6de9bee827;hp=2cd2b029efa2057558a40048f0435f81e2dfe4de;hpb=d912f0d932d1718ac14ba1024152c2b5fd9e6107;p=clsql.git

diff --git a/test-suite/tester-clsql.cl b/test-suite/tester-clsql.cl
index 2cd2b02..ad121e4 100644
--- a/test-suite/tester-clsql.cl
+++ b/test-suite/tester-clsql.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Mar 2002
 ;;;;
-;;;; $Id: tester-clsql.cl,v 1.8 2002/06/12 17:47:13 kevin Exp $
+;;;; $Id: tester-clsql.cl,v 1.9 2002/09/30 01:57:32 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -223,9 +223,7 @@
 	    t))))
 	 
 (defun drop-test-table (db)
-  (clsql:execute-command "DROP TABLE test_clsql"))
-
-
+  (clsql:execute-command "DROP TABLE test_clsql" :database db))
 
 (defun do-test ()
     (let ((specs (read-specs)))