[cl-store-cvs] CVS update: cl-store/cmucl/custom.lisp

Sean Ross sross at common-lisp.net
Wed Nov 24 13:27:20 UTC 2004


Update of /project/cl-store/cvsroot/cl-store/cmucl
In directory common-lisp.net:/tmp/cvs-serv15959/cmucl

Modified Files:
	custom.lisp 
Log Message:
Changelog 2004-11-24 (0.4 Release)
Date: Wed Nov 24 14:27:12 2004
Author: sross

Index: cl-store/cmucl/custom.lisp
diff -u cl-store/cmucl/custom.lisp:1.2 cl-store/cmucl/custom.lisp:1.3
--- cl-store/cmucl/custom.lisp:1.2	Wed Oct  6 16:41:07 2004
+++ cl-store/cmucl/custom.lisp	Wed Nov 24 14:27:12 2004
@@ -3,7 +3,6 @@
 
 (in-package :cl-store)
 
-
 (defstore-cl-store (obj float stream)
   (output-type-code +float-code+ stream)    
   (write-byte (float-type obj) stream)
@@ -22,15 +21,11 @@
   (kernel:make-double-float (restore-object stream)
                             (restore-object stream)))
 
-(defvar *cmucl-float-restorers* 
-  (list (cons 0 'cmucl-restore-single-float)
-        (cons 1 'cmucl-restore-double-float)))
-
 (defrestore-cl-store (float stream)
   (let ((byte (read-byte stream)))
-    (aif (cdr (assoc byte *cmucl-float-restorers*))
-         (funcall it stream)
-         (restore-error "Unknown float type designator ~S." byte))))
+    (ecase byte
+      (0 (cmucl-restore-single-float stream))
+      (1 (cmucl-restore-double-float stream)))))
 
 ;; Custom Structures
 (defstore-cl-store (obj structure-object stream)





More information about the Cl-store-cvs mailing list