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

[ieslick]

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

Modified Files:
	sql-collections.lisp 
Log Message:
Added missing file; Henrik's fixes to ele-bdb and clsql cursor-pset

--- /project/elephant/cvsroot/elephant/src/db-clsql/sql-collections.lisp	2006/11/11 18:41:11	1.6
+++ /project/elephant/cvsroot/elephant/src/db-clsql/sql-collections.lisp	2007/01/19 21:03:30	1.7
@@ -136,7 +136,7 @@
 	 (tup tuples (cdr tup)))
 	((= i len) nil)
       (setf (aref (:sql-crsr-ks cursor) i) 
-	    (deserialize-from-base64-string (caar tup) :sc sc)))
+	    (deserialize-from-base64-string (caar tup) sc)))
     (sort (:sql-crsr-ks cursor) #'my-generic-less-than)
     (setf (:sql-crsr-ck cursor) 0)
     (setf (cursor-initialized-p cursor) t)
@@ -362,14 +362,14 @@
   (declare (optimize (speed 3)))
   (unless (cursor-initialized-p cursor)
     (cursor-init cursor))
-  (let ((idx (position key (:sql-crsr-ks cursor))))
+  (let ((idx (position key (:sql-crsr-ks cursor) :test #'equal)))
     (if idx
-	(progn
-	  (setf (:sql-crsr-ck cursor) idx)
-	  (setf (:dp-nmbr cursor) 0)
-	  (cursor-current-x cursor :returnpk t))
-	(cursor-un-init cursor)
-	)))
+        (progn
+          (setf (:sql-crsr-ck cursor) idx)
+          (setf (:dp-nmbr cursor) 0)
+          (cursor-current-x cursor :returnpk t))
+        (cursor-un-init cursor)
+        )))
 
 (defun array-index-if (p a)
   (do ((i 0 (1+ i)))