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(a)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(a)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(a)common-lisp.net>"
:maintainer "Sean Ross <sross(a)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)
