Correct function argument name generation in DEF-MATH-RTN

Argument names of math functions defined using DEF-MATH-RTN now really
start with "ARG0". Kills a style warning during build and slightly
reduces the number of symbols in the SB-KERNEL package.

diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp
index 1b28a3a..05410a6 100644 (file)
--- a/src/code/irrat.lisp
+++ b/src/code/irrat.lisp
@@ -24,8 +24,8 @@
 
 (sb!xc:defmacro def-math-rtn (name num-args)
   (let ((function (symbolicate "%" (string-upcase name)))
-        (args (let ((sb!impl::*gentemp-counter* 0))
-                (loop repeat num-args collect (gentemp "ARG")))))
+        (args (loop for i below num-args
+                    collect (intern (format nil "ARG~D" i)))))
     `(progn
        (declaim (inline ,function))
        (defun ,function ,args