[Gcl-devel] (random tester) Arguments to * being evaled in incorrect order in some cases.

[Paul F. Dietz]

(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