diff --git a/compiler/srctran.lisp b/compiler/srctran.lisp index 432f7a37ba33540edc10aee29525220102106b0f..adec075b9824df74b5a664c6f8171175812bde85 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.160 2005/07/26 12:34:51 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/srctran.lisp,v 1.161 2006/01/17 18:00:33 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -666,8 +666,10 @@ (x-hi (copy-interval-limit (interval-high x))) (y-lo (copy-interval-limit (interval-low y))) (y-hi (copy-interval-limit (interval-high y)))) - (make-interval :low (select-bound x-lo y-lo #'< #'>) - :high (select-bound x-hi y-hi #'> #'<)))))) + (make-interval :low (select-bound x-lo y-lo + #'signed-zero-< #'signed-zero->) + :high (select-bound x-hi y-hi + #'signed-zero-> #'signed-zero-<)))))) ;; Wrap a handler-case around BODY so that any errors in the body ;; will return a doubly-infinite interval.