From f317defa5c226a88b066185b487b9c9575cf3a6b Mon Sep 17 00:00:00 2001
From: Kris Katterjohn <katterjohn@gmail.com>
Date: Sun, 27 Oct 2024 14:54:16 -0400
Subject: [PATCH] Fix the misplaced TRANSLATE property for atan2

The TRANSLATE property now belongs on %ATAN2 instead of $ATAN2.
See commit 4448d143.

No problems with rtest_translator.
---
 src/troper.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/troper.lisp b/src/troper.lisp
index 19751dd93..91cb4f5ac 100644
--- a/src/troper.lisp
+++ b/src/troper.lisp
@@ -210,7 +210,7 @@
       (cons '$float (dconv-$float form))
       `($any $float ,(cdr form))))
 
-(def%tr $atan2 (form)
+(def%tr %atan2 (form)
   (setq form (cdr form))
   (let ((x (translate (car form))) (y (translate (cadr form))))
     (if (eq '$float (*union-mode (car x) (car y)))
-- 
2.11.4.GIT