Burton Samograd <[email protected]> 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
[email protected]
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/pro
