From 65c957707ce66f0175cf883cfc1e377f407bf3a8 Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Thu, 5 Sep 2002 16:13:46 +0000 Subject: [PATCH] Give a better error message for atan when given an arg that isn't REAL in the two arg case. --- code/irrat.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/code/irrat.lisp b/code/irrat.lisp index 728bc1a25..bd99f07a4 100644 --- a/code/irrat.lisp +++ b/code/irrat.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/irrat.lisp,v 1.32 2001/04/16 16:13:56 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/irrat.lisp,v 1.33 2002/09/05 16:13:46 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -508,7 +508,8 @@ (float-sign y pi)) (float-sign y (/ pi 2))) (%atan2 y x)))) - (number-dispatch ((y number) (x number)) + ;; If X is given, both X and Y must be real numbers. + (number-dispatch ((y real) (x real)) ((double-float (foreach double-float single-float fixnum bignum ratio)) (atan2 y (coerce x 'double-float))) -- GitLab