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)