Burton Samograd <burton.samog...@gmail.com> writes: > CL-USER> (setf $x 10) > ; in: SETF (#:G1129 X) > ; (LET* ((#:G1175 X)) > ; (MULTIPLE-VALUE-BIND (#:G1176) > ; 10 > ; (LET ((#:G1177 #)) > ; (WHEN #:G1177 (FUNCALL #:G1177 # #:G1176)) > ; (SETF X #:G1176)))) > ; > ; caught STYLE-WARNING: > ; The variable #:G1175 is defined but never used.
I don't think it's a compiler error (there's no reason to treat uninterned symbols differently from interned ones). Clearly, there's a single occurence of #:G1175, in the binding of the LET* form, and no use of it. You should either avoid generating it, or add a (declare (ignorable #:G1175)) expression before the body of the LET*. -- __Pascal Bourguignon__ http://www.informatimago.com/ A bad day in () is better than a good day in {}. _______________________________________________ pro mailing list pro@common-lisp.net http://lists.common-lisp.net/cgi-bin/mailman/listinfo/pro