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