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


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

Instituto de Física Fundamental, CSIC
c/ Serrano, 113b, Madrid 28006 (Spain)