From 140574cd4bec9335f29ca8362950bbcca755d8de Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 30 Nov 1993 18:02:54 +0000 Subject: [PATCH] Fixed SOURCE-TRANSFORM-NUMERIC-TYPEP to test against REAL instead of NUMBER when testing reals. Added a define-type-predicate for REAL, so SOURCE- TRANSFORM-NUMERIC-TYPEP can use it. --- compiler/typetran.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/compiler/typetran.lisp b/compiler/typetran.lisp index aa8b3a108..cf782de7d 100644 --- a/compiler/typetran.lisp +++ b/compiler/typetran.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/typetran.lisp,v 1.25 1993/09/10 19:09:23 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/typetran.lisp,v 1.26 1993/11/30 18:02:54 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -145,6 +145,7 @@ (define-type-predicate null null) (define-type-predicate numberp number) (define-type-predicate rationalp rational) + (define-type-predicate realp real) (define-type-predicate simple-bit-vector-p simple-bit-vector) (define-type-predicate simple-string-p simple-string) (define-type-predicate simple-vector-p simple-vector) @@ -215,7 +216,7 @@ (integer (containing-integer-type type)) (rational 'rational) (float (or (numeric-type-format type) 'float)) - ((nil) 'number)))) + ((nil) 'real)))) (once-only ((n-object object)) (ecase (numeric-type-complexp type) (:real -- GitLab