[Ecls-list] Internal unused variable leaking through

[Tobias C. Rittweiler]

Juan Jose Garcia-Ripoll
<juanjose.garciaripoll at googlemail.com> writes:

> On Sun, Feb 7, 2010 at 1:11 AM, Tobias C. Rittweiler <tcr at freebits.de>wrote:
>
>> And yet another one:
>>
>> (defun read-form (string)
>>  (with-standard-io-syntax
>>    (let ((*package* (find-package :cl-user)))
>>      (read-from-string string))))
>
>
> Fixed as well. Thanks
>
> Juanjo

And yet again another:

(defun test (var thing)
  (setf (getf var 'foo) thing))

;;; Compiling /tmp/frob.lisp.
;;; OPTIMIZE levels: Safety=3, Space=0, Speed=1, Debug=3
;;; Compiling (DEFUN TEST ...).
;;; Note: in file frob.lisp, position 0 and top form
;;;   (DEFUN TEST (VAR THING) ...)
;;; Removing unused variable G7
;;; End of Pass 1.
;;; Emitting code for TEST.
;;; Note: Invoking external command:
;;;   gcc "-I/home/tcr/software/ecl-git/include/"  -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -g -O2 -fPIC  -D_THREAD_SAFE -Dlinux  -w -c "/tmp/frob.c" -o "/tmp/frob.o"
;;; Note: Invoking external command:
;;;   gcc -o "/tmp/frob.fas" -L"/home/tcr/software/ecl-git/lib/" "/tmp/frob.o"   -shared    -lecl  -lgmp -lpthread -ldl  -lm 
;;; Finished compiling /tmp/frob.lisp.