Update of /project/cl-store/cvsroot/cl-store/lispworks In directory clnet:/tmp/cvs-serv7536/lispworks Modified Files: custom.lisp Log Message: Changelog 2006-12-13 --- /project/cl-store/cvsroot/cl-store/lispworks/custom.lisp 2006/12/11 21:44:03 1.8 +++ /project/cl-store/cvsroot/cl-store/lispworks/custom.lisp 2006/12/14 18:15:43 1.9 @@ -3,7 +3,7 @@ (in-package :cl-store) -;; Setup special floats +;; Special float handling (defun create-float-values (value &rest codes) (let ((neg-inf (expt value 3))) (mapcar 'cons @@ -12,12 +12,6 @@ (/ neg-inf neg-inf)) codes))) -(defparameter *special-floats* - (nconc (create-float-values most-negative-single-float +positive-infinity-code+ - +negative-infinity-code+ +float-nan-code+) - (create-float-values most-negative-double-float +positive-double-infinity-code+ - +negative-double-infinity-code+ +float-double-nan-code+))) - ;; Custom structure storing from Alain Picard. (defstore-cl-store (obj structure-object stream) (output-type-code +structure-object-code+ stream)