[Sbcl-commits] CVS: sbcl/src/code irrat.lisp,1.14,1.15

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory usw-pr-cvs1:/tmp/cvs-serv31937/src/code

Modified Files:
	irrat.lisp 
Log Message:
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)


Index: irrat.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/irrat.lisp,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- irrat.lisp	4 Sep 2002 13:59:54 -0000	1.14
+++ irrat.lisp	6 Sep 2002 12:35:20 -0000	1.15
@@ -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)))