[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Gcl-devel] (random tester) Arguments to * being evaled in incorrect ord
From: |
Paul F. Dietz |
Subject: |
[Gcl-devel] (random tester) Arguments to * being evaled in incorrect order in some cases. |
Date: |
Sat, 27 Sep 2003 06:39:46 -0500 |
User-agent: |
Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.2.1) Gecko/20030225 |
(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] (random tester) Arguments to * being evaled in incorrect order in some cases.,
Paul F. Dietz <=