[cl-store-cvs] CVS update: cl-store/ChangeLog cl-store/cl-store.asd cl-store/default-backend.lisp

[Sean Ross]

Update of /project/cl-store/cvsroot/cl-store
In directory common-lisp.net:/tmp/cvs-serv24143

Modified Files:
	ChangeLog cl-store.asd default-backend.lisp 
Log Message:
Changelog 2005-02-14
Date: Mon Feb 14 10:02:34 2005
Author: sross

Index: cl-store/ChangeLog
diff -u cl-store/ChangeLog:1.20 cl-store/ChangeLog:1.21
--- cl-store/ChangeLog:1.20	Fri Feb 11 13:00:30 2005
+++ cl-store/ChangeLog	Mon Feb 14 10:02:33 2005
@@ -1,3 +1,8 @@
+2005-02-14 Sean Ross <sross at common-lisp.net>
+	* default-backend.lisp: Applied patch from Thomas Stenhaug
+	to default null superclasses of a restored class to 
+	standard-object as this caused errors in Lispworks.
+	
 2005-02-11 Sean Ross <sross at common-lisp.net>
 	New Magic Number for cl-store-backend.
 	* default-backend.lisp, acl/custom.lisp, lispworks/custom.lisp


Index: cl-store/cl-store.asd
diff -u cl-store/cl-store.asd:1.19 cl-store/cl-store.asd:1.20
--- cl-store/cl-store.asd:1.19	Fri Feb 11 13:00:31 2005
+++ cl-store/cl-store.asd	Mon Feb 14 10:02:34 2005
@@ -40,7 +40,7 @@
   :name "CL-STORE"
   :author "Sean Ross <sdr at jhb.ucs.co.za>"
   :maintainer "Sean Ross <sdr at jhb.ucs.co.za>"
-  :version "0.4.13"
+  :version "0.4.14"
   :description "Serialization package"
   :long-description "Portable CL Package to serialize data types"
   :licence "MIT"


Index: cl-store/default-backend.lisp
diff -u cl-store/default-backend.lisp:1.18 cl-store/default-backend.lisp:1.19
--- cl-store/default-backend.lisp:1.18	Fri Feb 11 13:00:31 2005
+++ cl-store/default-backend.lisp	Mon Feb 14 10:02:34 2005
@@ -401,10 +401,12 @@
          (meta (restore-object stream))
          (keywords '(:direct-slots :direct-superclasses
                      :metaclass))
-         (final (mappend #'list keywords (list slots supers meta))))
+         (final (mappend #'list keywords (list slots 
+                                               (or supers (list 'standard-object))
+                                               meta))))
     (cond ((find-class class nil)
            (cond (*nuke-existing-classes*
-                  (apply #'ensure-class  class final)
+                  (apply #'ensure-class class final)
                   #+clisp (add-methods-for-class class slots))
                  (t (find-class class))))
           (t (apply #'ensure-class class final)