Commit b7e75252 authored by ram's avatar ram
Browse files

(numeric-contagion single-float real) => float, not single-float

parent fc851239
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/type.lisp,v 1.9 1993/03/14 17:16:15 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/type.lisp,v 1.10 1993/07/30 11:00:19 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -1453,9 +1453,10 @@ ...@@ -1453,9 +1453,10 @@
((eq class1 'float) ((eq class1 'float)
(make-numeric-type (make-numeric-type
:class 'float :class 'float
:format (if (eq class2 'float) :format (ecase class2
(float-format-max format1 format2) (float (float-format-max format1 format2))
format1) ((integer rational) format1)
((nil) nil))
:complexp (if (or (eq complexp1 :complex) :complexp (if (or (eq complexp1 :complex)
(eq complexp2 :complex)) (eq complexp2 :complex))
:complex :complex
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment