[elephant-cvs] CVS update: elephant/src/sql-collections.lisp

[Robert L. Read]

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))