X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Firrat.lisp;h=9acba103f76b4602672720b01397e4428319364b;hb=5bf4a6a677c80a71dfa31b5c9c374f986594392f;hp=ec84564056bc97203dc654690ed9f8ddd4c943a5;hpb=755ff8f53315160fcb2d92207dfe24ae7ed4d4c6;p=sbcl.git

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)))