Skip to content
Snippets Groups Projects
Commit a447133e authored by dtc's avatar dtc
Browse files

Use infinities in ansi-loop::*loop-minimax-type-infinities-alist*; from

Raymond Toy.
parent c63cc26b
No related branches found
No related tags found
No related merge requests found
...@@ -49,7 +49,7 @@ ...@@ -49,7 +49,7 @@
#+cmu #+cmu
(ext:file-comment (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 ;;;; LOOP Iteration Macro
...@@ -346,9 +346,16 @@ constructed. ...@@ -346,9 +346,16 @@ constructed.
(single-float most-positive-single-float most-negative-single-float) (single-float most-positive-single-float most-negative-single-float)
(double-float most-positive-double-float most-negative-double-float) (double-float most-positive-double-float most-negative-double-float)
(long-float most-positive-long-float most-negative-long-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 ;;If we don't know, then we cannot provide "infinite" initial values for any of the
;; types but FIXNUM: ;; types but FIXNUM:
#-(or Genera CLOE-Runtime Minima) #-(or Genera CLOE-Runtime Minima CMU)
'((fixnum most-positive-fixnum most-negative-fixnum)) '((fixnum most-positive-fixnum most-negative-fixnum))
) )
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment