From a447133ed6a9b0732045df83a8e883e18feb2c38 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Fri, 19 Mar 1999 13:45:50 +0000
Subject: [PATCH] Use infinities in
 ansi-loop::*loop-minimax-type-infinities-alist*; from Raymond Toy.

---
 code/loop.lisp | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/code/loop.lisp b/code/loop.lisp
index a25475047..12821340f 100644
--- a/code/loop.lisp
+++ b/code/loop.lisp
@@ -49,7 +49,7 @@
 
 #+cmu
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/loop.lisp,v 1.7 1998/05/01 01:02:55 dtc Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/loop.lisp,v 1.8 1999/03/19 13:45:50 dtc Exp $")
 
 ;;;; LOOP Iteration Macro
 
@@ -346,9 +346,16 @@ constructed.
 	    (single-float	most-positive-single-float	most-negative-single-float)
 	    (double-float	most-positive-double-float	most-negative-double-float)
 	    (long-float		most-positive-long-float	most-negative-long-float))
+	;; CMUCL has infinities so let's use them.
+	#+CMU
+	  '((fixnum             most-positive-fixnum            most-negative-fixnum)
+	    (short-float        single-float-positive-infinity  single-float-negative-infinity)
+	    (single-float       single-float-positive-infinity  single-float-negative-infinity)
+	    (double-float       double-float-positive-infinity  double-float-negative-infinity)
+	    (long-float         long-float-positive-infinity    long-float-negative-infinity))
 	;;If we don't know, then we cannot provide "infinite" initial values for any of the
 	;; types but FIXNUM:
-	#-(or Genera CLOE-Runtime Minima)
+	#-(or Genera CLOE-Runtime Minima CMU)
 	  '((fixnum   		most-positive-fixnum		most-negative-fixnum))
 	  )
 
-- 
GitLab