mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 06:12:25 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed the inline form of long-float constants in cmpct.lsp

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-06-15 00:38:38 +02:00
parent fb1b528fcc
commit aee567aeb2
1 changed files with 14 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

25
src/cmp/cmpct.lsp
View file

@ -74,7 +74,7 @@
(t
(baboon)))
+optimizable-constants+)))
(reverse
'((MOST-POSITIVE-SHORT-FLOAT "FLT_MAX")
(MOST-POSITIVE-SINGLE-FLOAT "FLT_MAX")
@ -100,20 +100,23 @@
;; Order is important: on platforms where 0.0 and -0.0 are the same
;; the last one is prioritized.
(#.(coerce -0.0 'single-float) "cl_core.singlefloat_minus_zero")
(#.(coerce -0.0 'double-float) "cl_core.doublefloat_minus_zero")
(#.(coerce 0 'single-float) "cl_core.singlefloat_zero")
(#.(coerce 0 'double-float) "cl_core.doublefloat_zero")
(#.(coerce -0.0 'single-float) "cl_core.singlefloat_minus_zero")
(#.(coerce -0.0 'double-float) "cl_core.doublefloat_minus_zero")
. #+long-float NIL #-long-float
.
#-long-float
NIL
#+long-float
(
(MOST-POSITIVE-LONG-FLOAT "DBL_MAX")
(MOST-NEGATIVE-LONG-FLOAT "-DBL_MAX")
(LEAST-POSITIVE-LONG-FLOAT "DBL_MIN")
(LEAST-POSITIVE-NORMALIZED-LONG-FLOAT" DBL_MIN")
(LEAST-NEGATIVE-LONG-FLOAT "-DBL_MIN")
(LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT "-DBL_MIN")
(MOST-POSITIVE-LONG-FLOAT "LDBL_MAX")
(MOST-NEGATIVE-LONG-FLOAT "-LDBL_MAX")
(LEAST-POSITIVE-LONG-FLOAT "LDBL_MIN")
(LEAST-POSITIVE-NORMALIZED-LONG-FLOAT" LDBL_MIN")
(LEAST-NEGATIVE-LONG-FLOAT "-LDBL_MIN")
(LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT "-LDBL_MIN")
(#.(coerce -0.0 'long-float) "cl_core.longfloat_minus_zero")
(#.(coerce 0 'long-float) "cl_core.longfloat_zero")
)
))
)))