From 9b4cff1f8b0ae6e812c4b3ef70d6bcb0ef6b906b Mon Sep 17 00:00:00 2001 From: Lutz Euler Date: Wed, 29 Jun 2011 18:32:46 +0200 Subject: [PATCH] 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. --- src/code/irrat.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp index 1b28a3a..05410a6 100644 --- 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 -- 1.7.10.4