From dae7439918b773ae820d741445c0e8f5bbcee7cb Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Fri, 6 Sep 2002 12:35:19 +0000 Subject: [PATCH] 0.7.7.18: Fix error message from (ATAN 1 #C(0 1)) as per Raymond Toy (sbcl-devel "confusing error message" 2002-09-04) --- BUGS | 7 +------ src/code/irrat.lisp | 2 +- version.lisp-expr | 2 +- 3 files changed, 3 insertions(+), 8 deletions(-) diff --git a/BUGS b/BUGS index 2e0077e..12a9426 100644 --- a/BUGS +++ b/BUGS @@ -1370,12 +1370,7 @@ WORKAROUND: So it'd be better just to say "This is not a REAL". 196: "confusing error message for unREAL second arg to ATAN" - (reported by Alexey Dejneka sbcl-devel 2002-09-04) - In sbcl-0.7.7.11, - * (atan 1 #c(1 2)) - debugger invoked on condition of type SIMPLE-TYPE-ERROR: - Argument X is not a NUMBER: #C(1 2) - (The actual type problem is that argument Y is not a REAL.) + (fixed in sbcl-0.7.7.18) DEFUNCT CATEGORIES OF BUGS IR1-#: diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp index ec84564..9acba10 100644 --- a/src/code/irrat.lisp +++ b/src/code/irrat.lisp @@ -436,7 +436,7 @@ (float-sign y pi)) (float-sign y (/ pi 2))) (%atan2 y x)))) - (number-dispatch ((y number) (x number)) + (number-dispatch ((y real) (x real)) ((double-float (foreach double-float single-float fixnum bignum ratio)) (atan2 y (coerce x 'double-float))) diff --git a/version.lisp-expr b/version.lisp-expr index fdd0192..7739f33 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -18,4 +18,4 @@ ;;; for internal versions, especially for internal versions off the ;;; main CVS branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.7.7.17" +"0.7.7.18" -- 1.7.10.4