[elephant-cvs] CVS elephant/src/db-clsql - elephant-cvs@common-lisp.net - mailman3.common-lisp.net

6 Mar 2007

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..
    		   '(

    