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@common-lisp.net + * lispworks/custom.lisp: Began work on new special float creation. + * .cvsignore : Update ignorable files + +2006-10-01 Sean Ross sross@common-lisp.net + * utils.lisp: Fix mkstr to upcase args. + 2006-08-03 Sean Ross sross@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@common-lisp.net" :maintainer "Sean Ross sross@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.
-
sross