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