From sross at common-lisp.net  Thu Aug  3 19:42:09 2006
From: sross at common-lisp.net (sross)
Date: Thu,  3 Aug 2006 15:42:09 -0400 (EDT)
Subject: [cl-store-cvs] CVS cl-store
Message-ID: <20060803194209.85B0650006@common-lisp.net>

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



From sross at common-lisp.net  Thu Aug  3 19:42:09 2006
From: sross at common-lisp.net (sross)
Date: Thu,  3 Aug 2006 15:42:09 -0400 (EDT)
Subject: [cl-store-cvs] CVS cl-store/lispworks
Message-ID: <20060803194209.BC93052000@common-lisp.net>

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

Modified Files:
	custom.lisp 
Log Message:


--- /project/cl-store/cvsroot/cl-store/lispworks/custom.lisp	2005/02/11 12:00:41	1.6
+++ /project/cl-store/cvsroot/cl-store/lispworks/custom.lisp	2006/08/03 19:42:09	1.7
@@ -4,18 +4,29 @@
 (in-package :cl-store)
 
 ;; Setup special floats
-(defvar +positive-infinity+ (expt most-positive-double-float 2))
-(defvar +negative-infinity+ (expt most-negative-double-float 3))
-(defvar +nan-float+ (/ +negative-infinity+ +negative-infinity+))
+(defvar +single-positive-infinity+ most-positive-single-float)
+(defvar +single-negative-infinity+ most-negative-single-float)
+(defvar +single-nan+)
+
+(defvar +double-positive-infinity+ most-positive-double-float)
+(defvar +double-negative-infinity+ most-negative-double-float)
+(defvar +double-nan+)
+
+(setf +single-positive-infinity+ (expt +single-positive-infinity+ 2))
+(setf +single-negative-infinity+ (expt +single-negative-infinity+ 3))
+(setf +single-nan+ (/ +single-negative-infinity+ +single-negative-infinity+))
+(setf +double-positive-infinity+ (expt +double-positive-infinity+ 2))
+(setf +double-negative-infinity+ (expt +double-negative-infinity+ 3))
+(setf +double-nan+ (/ +double-negative-infinity+ +double-negative-infinity+))
 
 (setf *special-floats*
-  (list (cons +positive-infinity+ +positive-double-infinity-code+)
-        (cons +positive-infinity+ +positive-infinity-code+)
-        (cons +negative-infinity+ +negative-double-infinity-code+)
-        (cons +negative-infinity+ +negative-infinity-code+)
-        (cons +nan-float+ +float-double-nan-code+)
-        (cons +nan-float+ +float-nan-code+)))
-
+      (list (cons +double-positive-infinity+ +positive-double-infinity-code+)
+            (cons +single-positive-infinity+ +positive-infinity-code+)
+            
+            (cons +single-negative-infinity+ +negative-infinity-code+)
+            (cons +double-negative-infinity+ +negative-double-infinity-code+)
+            (cons +single-nan+ +float-nan-code+)
+            (cons +double-nan+ +float-double-nan-code+)))
 
 ;; Custom structure storing from Alain Picard.
 (defstore-cl-store (obj structure-object stream)