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

[ieslick]

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

Modified Files:
	sql-collections.lisp 
Log Message:
Oops, cleanup debug stmts

--- /project/elephant/cvsroot/elephant/src/db-clsql/sql-collections.lisp	2007/04/29 04:03:28	1.14
+++ /project/elephant/cvsroot/elephant/src/db-clsql/sql-collections.lisp	2007/04/29 04:03:54	1.15
@@ -518,12 +518,11 @@
   (cursor-prev-x cursor)
 )
 (defmethod cursor-prev-x ((cursor sql-secondary-cursor)  &key (returnpk nil))
-;;  (declare (optimize (speed 3)))
+  (declare (optimize (speed 3)))
   (if (cursor-initialized-p cursor)
       (progn
 	(let ((prior-pk (get-current-key cursor)))
 	  (decf (sql-crsr-ck cursor))
-	  (format t "prior-key: ~A  current-key: ~A%" prior-pk (get-current-key cursor))
 	  (if (eq prior-pk (get-current-key cursor))
 	      (setf (dp-nmbr cursor) (max 0 (- (dp-nmbr cursor) 1)))
 	      (setf (dp-nmbr cursor)