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

[ieslick]

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

Modified Files:
	sql-controller.lisp 
Log Message:
Fixed two typos

--- /project/elephant/cvsroot/elephant/src/db-clsql/sql-controller.lisp	2007/02/18 21:08:16	1.20
+++ /project/elephant/cvsroot/elephant/src/db-clsql/sql-controller.lisp	2007/02/18 22:09:01	1.21
@@ -312,7 +312,7 @@
 			 )
     (sqlite3-harmless-read sc)
     (let ((version 
-	   (if (clsql:table-exists-p [keyvlaue] :database con :owner :all)
+	   (if (clsql:table-exists-p [keyvalue] :database con :owner :all)
 	       (if (= 0 (caar (clsql:query "select count(*) from keyvalue")))
 		   *elephant-code-version*
 		   '(0 6 0))
@@ -655,7 +655,7 @@
 	   )
 	   )
 	 )
-    (mapcar #'(lambda (x) (mapcar #'(lambda (q) (deserialize-from-base64-string q :sc sc)) x))
+    (mapcar #'(lambda (x) (mapcar #'(lambda (q) (deserialize-from-base64-string q sc)) x))
 	    tuples)))
 
 (defun sql-from-root-existsp (key sc)