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)