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