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