Commit 06b67a0f authored by rtoy's avatar rtoy
Browse files

o Fix typo in defknown result type for %COMPLEX-DOUBLE-DOUBLE-FLOAT.

o Use ETYPECASE instead of TYPECASE when defining %COMPLEX-foo-FLOAT.
parent f7fb749f
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -82,7 +82,7 @@
(movable foldable flushable)) (movable foldable flushable))
(defknown %complex-double-float (number) (complex double-float) (defknown %complex-double-float (number) (complex double-float)
(movable foldable flushable)) (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)) (movable foldable flushable))
(macrolet (macrolet
...@@ -91,7 +91,8 @@ ...@@ -91,7 +91,8 @@
(convert (symbolicate "%" type "-FLOAT"))) (convert (symbolicate "%" type "-FLOAT")))
`(progn `(progn
(defun ,name (n) (defun ,name (n)
(typecase n (declare (number n))
(etypecase n
(real (real
(complex (,convert n))) (complex (,convert n)))
(complex (complex
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment