diff --git a/code/loop.lisp b/code/loop.lisp index a254750476ecf91d492e8ec8ea1f06ec308344fb..12821340fffc192e767d46806bd1adb54f9b6f8d 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)) )