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)