[Ecls-list] Important fix

[Juan Jose Garcia-Ripoll]

 - Some toplevel forms with closures caused the compiler to abort, for example
	(let ((data '(a b)))
	  (flet ((get-it ()
	          (second data)))
	    (defun print-it-1 ()
	      (print (get-it)))))

The closure analizer gets run once more when a lambda form appears in
a FUNCTION special form, and also after compiling the body of a
FLET/LABELS form, because both can change the nature of the function.

Juanjo

-- 
Dpto. de Fisica Teorica I, Fac. de CC Fisicas, Universidad Complutense,
Ciudad Universitaria s/n Madrid 2804 (Spain)
http://teorica.fis.ucm.es/~jjgarcia/