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