I think this must be now fixed in CVS/git, but it still did not undergo full testing.

Juanjo

On Fri, Nov 20, 2009 at 12:02 AM, Gabriel Dos Reis <gdr@integrable-solutions.net> wrote:
On Mon, Nov 16, 2009 at 2:27 PM, Tobias C. Rittweiler <tcr@freebits.de> wrote:
> Gabriel Dos Reis <gdr@integrable-solutions.net>
> Simpler test case:
>
>  (let ((x '#1=(a x c))) (eq #.(second '#1#) x))
>
> I think this can be fixed by replacing the ecl_read_object_non_recursive
> by ecl_read_object in sharp_dot_reader in src/c/read.d.
>
> Unfortunately that doesn't fix it yet, after that change:
>
>  > (let ((x '#1=(a x c)))
>      '#.(first '#1#))
>  1
>
> Even though it should return A.

Thanks!  This is indeed, much simpler and better test.

-- Gaby

------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now.  http://p.sf.net/sfu/bobj-july
_______________________________________________
Ecls-list mailing list
Ecls-list@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/ecls-list



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