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@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@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@jhb.ucs.co.za>" :maintainer "Sean Ross <sdr@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)