From 9e8b090c0678eb0b3cf28c034d4ee7ea0ee478ab Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Wed, 21 Jan 1998 00:55:14 +0000 Subject: [PATCH] Fix typos in numeric-types-adjacent when compiled with the :negative-zero-is-not-zero feature; from Raymond Toy. --- code/type.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/code/type.lisp b/code/type.lisp index 029d5d9fb..07f8ee10f 100644 --- a/code/type.lisp +++ b/code/type.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/code/type.lisp,v 1.25 1998/01/08 23:47:25 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/type.lisp,v 1.26 1998/01/21 00:55:14 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1263,7 +1263,7 @@ (and (eql low-value -0d0) (eql high-bound 0d0)) (and (eql low-value 0d0) (eql high-bound -0d0)))) #+negative-zero-is-not-zero - (eql (car low-value) high-bound)) + (eql (car low-bound) high-bound)) ((consp high-bound) #-negative-zero-is-not-zero (let ((high-value (car high-bound))) @@ -1273,7 +1273,7 @@ (and (eql high-value -0d0) (eql low-bound 0d0)) (and (eql high-value 0d0) (eql low-bound -0d0)))) #+negative-zero-is-not-zero - (eql (car high-value) low-bound)) + (eql (car high-bound) low-bound)) #+negative-zero-is-not-zero ((or (and (eql low-bound -0f0) (eql high-bound 0f0)) (and (eql low-bound -0d0) (eql high-bound 0d0)))) -- GitLab