[Ecls-list] Internal unused variable leaking through

[Tobias C. Rittweiler]

Juan Jose Garcia-Ripoll 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

Another:

(defun test (x)
  (handler-case (/ x)
    (division-by-zero () :NaN)))

;;; Compiling /tmp/frob.lisp.
;;; OPTIMIZE levels: Safety=3, Space=0, Speed=1, Debug=3
;;; Compiling (DEFUN TEST ...).
;;; Warning: in file /tmp/frob.lisp, position 0, and form 
;;;   (FSET 'TEST #'(LAMBDA-BLOCK TEST # ...))
;;; The variable SI::TEMP is not used.
;;; End of Pass 1.
;;; Emitting code for TEST.
;;; Emitting code for #:G6.
;;; 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.
#P"/tmp/frob.fas"