[cl-store-cvs] CVS cl-store/lispworks

[sross]

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)