From 06b67a0f41873a2d1a1dfc243981541f1accddca Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Tue, 30 Dec 2008 16:23:36 +0000 Subject: [PATCH] o Fix typo in defknown result type for %COMPLEX-DOUBLE-DOUBLE-FLOAT. o Use ETYPECASE instead of TYPECASE when defining %COMPLEX-foo-FLOAT. --- compiler/float-tran.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/compiler/float-tran.lisp b/compiler/float-tran.lisp index 7da521660..c0a31c8d3 100644 --- a/compiler/float-tran.lisp +++ b/compiler/float-tran.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.127 2008/12/22 23:24:28 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.128 2008/12/30 16:23:36 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -82,7 +82,7 @@ (movable foldable flushable)) (defknown %complex-double-float (number) (complex double-float) (movable foldable flushable)) -(defknown %complex-double-double-float (number) (complex double-float) +(defknown %complex-double-double-float (number) (complex double-double-float) (movable foldable flushable)) (macrolet @@ -91,7 +91,8 @@ (convert (symbolicate "%" type "-FLOAT"))) `(progn (defun ,name (n) - (typecase n + (declare (number n)) + (etypecase n (real (complex (,convert n))) (complex -- GitLab