From: Lutz Euler Date: Wed, 29 Jun 2011 16:32:46 +0000 (+0200) Subject: Correct function argument name generation in DEF-MATH-RTN X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=9b4cff1f8b0ae6e812c4b3ef70d6bcb0ef6b906b;p=sbcl.git 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 --- 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