[Ecls-list] Problem with DEFCLASS

[Gabriel Dos Reis]

On Mon, Nov 16, 2009 at 2:27 PM, Tobias C. Rittweiler <tcr at freebits.de> wrote:
> Gabriel Dos Reis <gdr at 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