From 3c351d52bbbc2639a8a7b4d171a2e175b3734b0c Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Mon, 1 Sep 2003 20:47:37 +0000 Subject: [PATCH] * src/compiler/srctran.lisp (number-sign): Rewrite sligtly to get rid of compiler warnings; the function could return nil for non-integer rationals. --- compiler/srctran.lisp | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/compiler/srctran.lisp b/compiler/srctran.lisp index b826ab06d..e103869f8 100644 --- a/compiler/srctran.lisp +++ b/compiler/srctran.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/srctran.lisp,v 1.128 2003/08/31 19:03:46 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/srctran.lisp,v 1.129 2003/09/01 20:47:37 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -396,10 +396,9 @@ (declaim (inline number-sign)) (defun number-sign (x) (declare (real x)) - (cond ((integerp x) - (if (minusp x) -1.0 1.0)) - ((floatp x) - (float-sign x)))) + (if (floatp x) + (float-sign x) + (if (minusp x) -1.0 1.0))) ;;; Signed zero comparison functions. Use these functions if we need ;;; to distinguish between signed zeroes. Thus -0.0 < 0.0, which not -- GitLab