[elephant-cvs] CVS update: elephant/src/sql-collections.lisp - elephant-cvs@common-lisp.net - mailman3.common-lisp.net

2 Nov 2005

Update of /project/elephant/cvsroot/elephant/src
In directory common-lisp.net:/tmp/cvs-serv21971/src
Modified Files:
      Tag: SQL-BACK-END
    sql-collections.lisp 
Log Message:
Properly wrapping a SQL call
Date: Wed Nov  2 20:58:11 2005
Author: rread
Index: elephant/src/sql-collections.lisp
diff -u elephant/src/sql-collections.lisp:1.1.2.1 elephant/src/sql-collections.lisp:1.1.2.2

--- elephant/src/sql-collections.lisp:1.1.2.1	Tue Oct 18 22:35:50 2005
+++ elephant/src/sql-collections.lisp	Wed Nov  2 20:58:11 2005
@@ -140,6 +140,8 @@
       (values nil nil nil nil)
       (values nil nil nil)))
+(clsql::locally-enable-sql-reader-syntax)
+
 (defmethod cursor-init ((cursor sql-cursor))
   (let* ((sc (check-con (:dbcn-spc-pst (cursor-btree cursor))))
     (con (controller-db sc))
@@ -162,6 +164,8 @@
     (setf (:sql-crsr-ck cursor) 0)
     (setf (cursor-initialized-p cursor) t)
     ))
+
+(clsql::restore-sql-reader-syntax-state)
;; we're assuming here that nil is not a legitimate key.
 (defmethod get-current-key ((cursor sql-cursor))

    