[cl-store-cvs] CVS cl-store

[sross]

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

Modified Files:
	.cvsignore ChangeLog cl-store.asd default-backend.lisp 
	tests.lisp utils.lisp 
Log Message:
Changelog 2006-12-11 and 2006-10-01



--- /project/cl-store/cvsroot/cl-store/.cvsignore	2004/12/02 10:31:54	1.3
+++ /project/cl-store/cvsroot/cl-store/.cvsignore	2006/12/11 21:44:02	1.4
@@ -6,3 +6,6 @@
 *.lib
 clean.sh
 wc.sh
+*.fsl
+*.ofasl
+*.ufasl
--- /project/cl-store/cvsroot/cl-store/ChangeLog	2006/08/03 19:42:09	1.41
+++ /project/cl-store/cvsroot/cl-store/ChangeLog	2006/12/11 21:44:02	1.42
@@ -1,5 +1,13 @@
+2006-12-11 Sean Ross <sross at common-lisp.net>
+	* lispworks/custom.lisp: Began work on new special float creation.
+	* .cvsignore : Update ignorable files
+
+2006-10-01 Sean Ross <sross at common-lisp.net>
+	* utils.lisp: Fix mkstr to upcase args.
+
 2006-08-03 Sean Ross <sross at common-lisp.net>
 	* lispworks/custom.lisp: Fix float handling for Lispworks 5.0 .
+	* utils.lisp: changed references to compute-slots to class-slots.
 	* package.lisp: Removed symbols from export list that are no 
 	longer used.
 
--- /project/cl-store/cvsroot/cl-store/cl-store.asd	2006/08/03 19:42:09	1.38
+++ /project/cl-store/cvsroot/cl-store/cl-store.asd	2006/12/11 21:44:02	1.39
@@ -45,8 +45,7 @@
   :name "CL-STORE"
   :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"
+  :version "0.7.3"
   :description "Serialization package"
   :long-description "Portable CL Package to serialize data"
   :licence "MIT"
--- /project/cl-store/cvsroot/cl-store/default-backend.lisp	2006/08/03 19:42:09	1.35
+++ /project/cl-store/cvsroot/cl-store/default-backend.lisp	2006/12/11 21:44:02	1.36
@@ -200,6 +200,7 @@
         (store-object exponent stream)
         (store-object sign stream)))))
 
+
 (defrestore-cl-store (float stream)
   (float (* (the float (get-float-type (read-byte stream)))
             (* (the integer (restore-object stream))
@@ -503,6 +504,7 @@
     (simple-vector (store-simple-vector obj stream))
     (t (store-array obj stream))))
 
+
 (defun store-array (obj stream)
   (declare (optimize speed (safety 0) (debug 0))
            (type array obj))
@@ -543,7 +545,7 @@
               (setting (row-major-aref obj pos) (restore-object stream)))))))
 
 (defun store-simple-vector (obj stream)
-  (declare (optimize speed (safety 1) (debug 0))
+  (declare (optimize speed (safety 0) (debug 0))
            (type simple-vector obj))
   (output-type-code +simple-vector-code+ stream)
   (store-object (length obj) stream)
--- /project/cl-store/cvsroot/cl-store/tests.lisp	2006/08/03 19:42:09	1.27
+++ /project/cl-store/cvsroot/cl-store/tests.lisp	2006/12/11 21:44:02	1.28
@@ -45,6 +45,8 @@
 (deftestit complex.5 #C(-111 -1123))
 (deftestit complex.6 #C(-11.2 -34.5))
 
+;; short floats
+
 
 ;; single-float
 (deftestit single-float.1 3244.32)
@@ -61,6 +63,8 @@
 (deftestit double-float.5 most-positive-double-float)
 (deftestit double-float.6 most-negative-double-float)
 
+;; long floats
+
 ;; infinite floats
 #+(or sbcl cmu lispworks allegro)
 (progn 
@@ -184,7 +188,7 @@
 (deftestit cons.4  '(1 . 2))
 (deftestit cons.5  '(t . nil))
 (deftestit cons.6 '(1 2 3 . 5))
-(deftest cons.7 (let ((list (cons nil nil))) ;  '#1=(#1#)))
+(deftest cons.7 (let ((list (cons nil nil)))
                   (setf (car list) list)
                   (store list *test-file*)
                   (let ((ret (restore *test-file*)))
--- /project/cl-store/cvsroot/cl-store/utils.lisp	2006/08/03 19:42:09	1.22
+++ /project/cl-store/cvsroot/cl-store/utils.lisp	2006/12/11 21:44:02	1.23
@@ -139,7 +139,7 @@
 (defun mkstr (&rest args)
   (with-output-to-string (s)
     (dolist (x args)
-      (princ x s))))
+      (format s "~@:(~A~)" x))))
 
 (defun symbolicate (&rest syms)
   "Concatenate all symbol names into one big symbol"
@@ -150,7 +150,7 @@
 (defun safe-length (list)
   "Similar to `list-length', but avoid errors on improper lists.
 Return two values: the length of the list and the last cdr.
-Modified to work on circular lists."
+Modified to work on non proper lists."
   (do ((n 0 (+ n 2))                    ;Counter.
        (fast list (cddr fast))          ;Fast pointer: leaps by 2.
        (slow list (cdr slow)))          ;Slow pointer: leaps by 1.