From fe9aae054cb0279a9342a73f9505d852d0b58bdf Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 2 Aug 2008 17:45:41 +0200 Subject: [PATCH] The definitions of long-/double-float-epsilon were interchanged --- src/lsp/numlib.lsp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/lsp/numlib.lsp b/src/lsp/numlib.lsp index 06cdf94bc..bb6d8eef8 100644 --- a/src/lsp/numlib.lsp +++ b/src/lsp/numlib.lsp @@ -38,17 +38,17 @@ ,(binary-search #'epsilon+ (coerce 0 'short-float) (coerce 1 'short-float))) (defconstant single-float-epsilon ,(binary-search #'epsilon+ (coerce 0 'single-float) (coerce 1 'single-float))) - (defconstant long-float-epsilon - ,(binary-search #'epsilon+ (coerce 0 'double-float) (coerce 1 'double-float))) (defconstant double-float-epsilon + ,(binary-search #'epsilon+ (coerce 0 'double-float) (coerce 1 'double-float))) + (defconstant long-float-epsilon ,(binary-search #'epsilon+ (coerce 0 'long-float) (coerce 1 'long-float))) (defconstant short-float-negative-epsilon ,(binary-search #'epsilon- (coerce 0 'short-float) (coerce 1 'short-float))) (defconstant single-float-negative-epsilon ,(binary-search #'epsilon- (coerce 0 'single-float) (coerce 1 'single-float))) - (defconstant long-float-negative-epsilon - ,(binary-search #'epsilon- (coerce 0 'double-float) (coerce 1 'double-float))) (defconstant double-float-negative-epsilon + ,(binary-search #'epsilon- (coerce 0 'double-float) (coerce 1 'double-float))) + (defconstant long-float-negative-epsilon ,(binary-search #'epsilon- (coerce 0 'long-float) (coerce 1 'long-float))))) (defconstant imag-one #C(0.0 1.0))