[cl-store-cvs] CVS update: cl-store/acl/custom.lisp - cl-store-cvs@common-lisp.net - mailman3.common-lisp.net

24 Nov 2004

Update of /project/cl-store/cvsroot/cl-store/acl
In directory common-lisp.net:/tmp/cvs-serv15959/acl
Modified Files:
    custom.lisp 
Log Message:
Changelog 2004-11-24 (0.4 Release)
Date: Wed Nov 24 14:27:10 2004
Author: sross
Index: cl-store/acl/custom.lisp
diff -u cl-store/acl/custom.lisp:1.1 cl-store/acl/custom.lisp:1.2

--- cl-store/acl/custom.lisp:1.1	Mon Nov  1 15:49:00 2004
+++ cl-store/acl/custom.lisp	Wed Nov 24 14:27:10 2004
@@ -29,8 +29,8 @@
(defrestore-cl-store (float stream)
   (let ((byte (read-byte stream)))
-    (aif (cdr (assoc byte *acl-float-restorers*))
-         (funcall it stream)
-         (restore-error "Unknown float type designator ~S." byte))))
+    (ecase byte
+      (0 (acl-restore-single-float stream))
+      (1 (acl-restore-double-float stream)))))
;; EOF

    