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