[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Gcl-devel] (random tester) Arguments to * being evaled in incorrect
From: |
Camm Maguire |
Subject: |
Re: [Gcl-devel] (random tester) Arguments to * being evaled in incorrect order in some cases. |
Date: |
29 Sep 2003 11:26:05 -0400 |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.2 |
Greetings, Paul, and thanks again as always. Should be fixed now,
both in 2.6.1 and cvs head.
Take care,
"Paul F. Dietz" <address@hidden> writes:
> (let* ((f1 (compile nil
> '(lambda (c)
> (declare (optimize (safety 1)))
> (labels ((%f17 nil (setq c 2))) (* c (%f17))))))
> (f2 (compile nil
> `(lambda (c)
> (labels ((%f17 nil (setq c 2))) (* c (%f17)))))))
> (print (funcall f1 1))
> (print (funcall f2 1)))
>
>
> Compiling gazonk1.lsp.
> End of Pass 1.
> End of Pass 2.
> OPTIMIZE levels: Safety=3, Space=0, Speed=3
> Finished compiling gazonk1.lsp.
> Loading gazonk1.o
> start address -T 0x8aa8a48 Finished loading gazonk1.o
> Compiling gazonk1.lsp.
> End of Pass 1.
> End of Pass 2.
> OPTIMIZE levels: Safety=3, Space=0, Speed=3
> Finished compiling gazonk1.lsp.
> Loading gazonk1.o
> start address -T 0x8aa8fd8 Finished loading gazonk1.o
>
> 4
> 2
>
> Paul
>
>
>
> _______________________________________________
> Gcl-devel mailing list
> address@hidden
> http://mail.gnu.org/mailman/listinfo/gcl-devel
>
>
>
--
Camm Maguire address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens." -- Baha'u'llah