From b7e75252cb19ce0e5f346f3c996970c963a4f553 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 30 Jul 1993 11:00:19 +0000
Subject: [PATCH] (numeric-contagion single-float real) => float, not
 single-float

---
 code/type.lisp | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/code/type.lisp b/code/type.lisp
index 75c460bcd..7906f8b68 100644
--- a/code/type.lisp
+++ b/code/type.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (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 @@
 	      ((eq class1 'float)
 	       (make-numeric-type
 		:class 'float
-		:format (if (eq class2 'float)
-			    (float-format-max format1 format2)
-			    format1)
+		:format (ecase class2
+			  (float (float-format-max format1 format2))
+			  ((integer rational) format1)
+			  ((nil) nil))
 		:complexp (if (or (eq complexp1 :complex)
 				  (eq complexp2 :complex))
 			      :complex
-- 
GitLab