[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

And again another:

(defun test (x)
  (pprint-logical-block (nil nil :prefix "(" :suffix ")")
    (princ x)))

;;; Compiling /tmp/frob.lisp.
;;; OPTIMIZE levels: Safety=3, Space=0, Speed=1, Debug=3
;;; Compiling (DEFUN TEST ...).
;;; Note: in file /tmp/frob.lisp, position 0, and form 
;;;   (FSET 'TEST #'(LAMBDA-BLOCK TEST # ...))
;;; Removing unused variable PPRINT-LOGICAL-BLOCK-LENGTH-5
;;; Warning: in file /tmp/frob.lisp, position 0, and form 
;;;   (FSET 'TEST #'(LAMBDA-BLOCK TEST # ...))
;;; The variable #:G3 is not used.
;;; End of Pass 1.
;;; Emitting code for TEST.
;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-4.
;;; 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.