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)

diff --git a/BUGS b/BUGS
index 2e0077e..12a9426 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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"