On Mon, Sep 27, 2010 at 8:13 PM, Alexander Gavrilov <angavrilov@gmail.com> wrote:

> (defun test ()
   (let ((a 5))
     (declare (special a))
     (flet ((x () a))
       (let ((a 10))
         (x)))))

> (test)
5

> (compile 'test)

> (test)
10

Nice catch. Due to firewall problems I cannot push it into CVS until I return home in some days.

Juanjo

--
Instituto de Física Fundamental, CSIC
c/ Serrano, 113b, Madrid 28006 (Spain)
http://juanjose.garciaripoll.googlepages.com