Update of /project/cl-store/cvsroot/cl-store In directory clnet:/tmp/cvs-serv14422

Modified Files: ChangeLog cl-store.asd default-backend.lisp package.lisp tests.lisp utils.lisp Log Message:

--- /project/cl-store/cvsroot/cl-store/ChangeLog 2006/03/14 10:58:59 1.40 +++ /project/cl-store/cvsroot/cl-store/ChangeLog 2006/08/03 19:42:09 1.41 @@ -1,3 +1,8 @@ +2006-08-03 Sean Ross sross@common-lisp.net + * lispworks/custom.lisp: Fix float handling for Lispworks 5.0 . + * package.lisp: Removed symbols from export list that are no + longer used. + 2006-03-13 Sean Ross sross@common-lisp.net * sbcl/custom.lisp: Fixed sbcl structure definition storing for versions >= 0.9.6.25 . --- /project/cl-store/cvsroot/cl-store/cl-store.asd 2006/03/14 10:58:59 1.37 +++ /project/cl-store/cvsroot/cl-store/cl-store.asd 2006/08/03 19:42:09 1.38 @@ -30,7 +30,7 @@ pathname)))

(defmethod perform ((op compile-op) (component non-required-file)) - (when (probe-file (component-pathname component)) + (when (probe-file (component-pathname component)) ; (call-next-method)))

(defmethod perform ((op load-op) (component non-required-file)) @@ -46,6 +46,7 @@ :author "Sean Ross sross@common-lisp.net" :maintainer "Sean Ross sross@common-lisp.net" :version "0.6.10" + :compatible-with "0.6.2<=?<0.6.10" :description "Serialization package" :long-description "Portable CL Package to serialize data" :licence "MIT" --- /project/cl-store/cvsroot/cl-store/default-backend.lisp 2006/03/14 09:34:09 1.34 +++ /project/cl-store/cvsroot/cl-store/default-backend.lisp 2006/08/03 19:42:09 1.35 @@ -185,7 +185,7 @@ (declare (optimize speed)) (block body (let (significand exponent sign) - (handler-bind ((simple-error + (handler-bind (((or simple-error arithmetic-error) #'(lambda (err) (declare (ignore err)) (when-let (type (cdr (assoc obj *special-floats*))) --- /project/cl-store/cvsroot/cl-store/package.lisp 2005/11/30 09:49:56 1.23 +++ /project/cl-store/cvsroot/cl-store/package.lisp 2006/08/03 19:42:09 1.24 @@ -1,19 +1,19 @@ ;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*- ;; See the file LICENCE for licence information.

-;(in-package :cl-store.system) +(in-package :cl-store.system)

(defpackage #:cl-store (:use #:cl) (:export #:backend #:magic-number #:stream-type #:restorers #:resolving-backend #:find-backend #:defbackend #:*restore-counter* #:*need-to-fix* #:*restored-values* - #:with-backend #:fix-circularities #:*default-backend* + #:with-backend #:*default-backend* #:*current-backend* #:*store-class-slots* #:*nuke-existing-classes* #:*store-class-superclasses* #:cl-store-error #:store-error #:restore-error #:store #:restore #:backend-store #:store-backend-code #:store-object - #:backend-store-object #:get-class-details #:get-array-values + #:backend-store-object #:restore #:backend-restore #:cl-store #:referrerp #:check-magic-number #:get-next-reader #:int-or-char-p #:restore-object #:backend-restore-object #:serializable-slots @@ -21,7 +21,7 @@ #:output-type-code #:store-referrer #:resolving-object #:internal-store-object #:setting #:simple-standard-string #:float-type #:get-float-type #:make-referrer #:setting-hash - #:multiple-value-store #:*postfix-setters* #:caused-by + #:multiple-value-store #:caused-by #:store-32-bit #:read-32-bit #:*check-for-circs* #:*store-hash-size* #:*restore-hash-size* #:get-slot-details #:*store-used-packages* #:*nuke-existing-packages* --- /project/cl-store/cvsroot/cl-store/tests.lisp 2006/03/14 09:34:09 1.26 +++ /project/cl-store/cvsroot/cl-store/tests.lisp 2006/08/03 19:42:09 1.27 @@ -642,7 +642,7 @@ (with-backend backend (regression-test:do-tests)) (when (probe-file *test-file*) - (delete-file *test-file*))) + (ignore-errors (delete-file *test-file*))))

;; EOF

--- /project/cl-store/cvsroot/cl-store/utils.lisp 2006/03/14 09:34:09 1.21 +++ /project/cl-store/cvsroot/cl-store/utils.lisp 2006/08/03 19:42:09 1.22 @@ -33,16 +33,16 @@ (:documentation "Return a list of slot-definitions to serialize. The default calls compute slots with class") (:method ((object t) (class standard-class)) - (compute-slots class)) + (class-slots class)) #+(or sbcl cmu openmcl) (:method ((object t) (class structure-class)) - (compute-slots class)) + (class-slots class)) #+sbcl (:method ((object t) (class sb-pcl::condition-class)) - (compute-slots class)) + (class-slots class)) #+cmu (:method ((object t) (class pcl::condition-class)) - (compute-slots class))) + (class-slots class)))

; Generify get-slot-details for customization (from Thomas Stenhaug)