[elephant-cvs] CVS elephant/src/db-clsql

[rread]

Update of /project/elephant/cvsroot/elephant/src/db-clsql
In directory clnet:/tmp/cvs-serv379

Modified Files:
	sql-controller.lisp 
Log Message:
changed query to execute-command


--- /project/elephant/cvsroot/elephant/src/db-clsql/sql-controller.lisp	2007/02/18 22:09:01	1.21
+++ /project/elephant/cvsroot/elephant/src/db-clsql/sql-controller.lisp	2007/03/06 04:43:02	1.22
@@ -370,7 +370,7 @@
 	(progn
 	  (clsql::create-sequence [serial] :database con)
 	  (sqlite3-harmless-read sc)
-	  (clsql::query
+	  (clsql::execute-command
 	   (format nil "create table keyvalue (
  pk integer PRIMARY KEY DEFAULT nextval('serial'),
  clctn_id integer NOT NULL,
@@ -378,7 +378,7 @@
  value varchar
  )")
 	 :database con)
-	)
+	  )
 	(clsql::create-table [keyvalue]
 			   ;; This is most likely to work with any database system..
 			   '(