[cl-store-cvs] CVS update: cl-store/ChangeLog cl-store/backends.lisp

[Sean Ross]

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