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

[ieslick]

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

Modified Files:
	sql-collections.lisp 
Log Message:
Type declaration fixes for openmcl

--- /project/elephant/cvsroot/elephant/src/db-clsql/sql-collections.lisp	2006/02/22 20:18:51	1.4
+++ /project/elephant/cvsroot/elephant/src/db-clsql/sql-collections.lisp	2006/11/11 15:30:26	1.5
@@ -48,7 +48,7 @@
 ;; in a different ordering is a nice feature to have here.
 (defclass sql-cursor (cursor)
   ((keys :accessor :sql-crsr-ks :initarg :sql-cursor-keys :initform '())
-   (curkey :accessor :sql-crsr-ck :initarg :sql-cursor-curkey :initform -1 :type integer))
+   (curkey :accessor :sql-crsr-ck :initarg :sql-cursor-curkey :initform -1 :type (or null integer)))
   (:documentation "A SQL cursor for traversing (primary) BTrees."))
 
 (defmethod make-cursor ((bt sql-btree))