Update of /project/cl-store/cvsroot/cl-store In directory common-lisp.net:/tmp/cvs-serv13921 Modified Files: ChangeLog backends.lisp Log Message: Changelog 2004-10-06 Date: Thu Oct 6 09:49:57 2005 Author: sross Index: cl-store/ChangeLog diff -u cl-store/ChangeLog:1.36 cl-store/ChangeLog:1.37 --- cl-store/ChangeLog:1.36 Tue Oct 4 10:10:26 2005 +++ cl-store/ChangeLog Thu Oct 6 09:49:45 2005 @@ -1,3 +1,8 @@ +2005-10-06 Sean Ross <sross@common-lisp.net> + * backends.lisp: Fixed type definition for + compatible-magic-numbers from integer to list. + Reported by Bryan O'Connor. + 2005-10-04 Sean Ross <sross@common-lisp.net> * sbcl/custom.lisp: sb-kernel:instance is no longer a class (since 0.9.5.3 or so). Fixed Index: cl-store/backends.lisp diff -u cl-store/backends.lisp:1.11 cl-store/backends.lisp:1.12 --- cl-store/backends.lisp:1.11 Wed May 18 17:34:09 2005 +++ cl-store/backends.lisp Thu Oct 6 09:49:46 2005 @@ -15,9 +15,9 @@ ((name :accessor name :initform "Unknown" :initarg :name :type symbol) (magic-number :accessor magic-number :initarg :magic-number :type integer) (compatible-magic-numbers :accessor compatible-magic-numbers - :initarg :compatible-magic-numbers :type integer) + :initarg :compatible-magic-numbers :type list) (old-magic-numbers :accessor old-magic-numbers :initarg :old-magic-numbers - :type cons) + :type list) (stream-type :accessor stream-type :initarg :stream-type :type (or symbol cons) :initform (required-arg :stream-type))) (:documentation "Core class which custom backends must extend"))