From aee567aeb2b6155c47b2d62828a64c7b26e0e015 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Mon, 15 Jun 2009 00:38:38 +0200 Subject: [PATCH] Fixed the inline form of long-float constants in cmpct.lsp --- src/cmp/cmpct.lsp | 25 ++++++++++++++----------- 1 file changed, 14 insertions(+), 11 deletions(-) diff --git a/src/cmp/cmpct.lsp b/src/cmp/cmpct.lsp index b084e48a9..a71686b38 100644 --- a/src/cmp/cmpct.lsp +++ b/src/cmp/cmpct.lsp @@ -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") ) - )) + )))