Fwd: possible abcl bug: incorrectly deletes "unused" local function
Mark Evenson
evenson at panix.com
Sun Apr 5 09:13:31 UTC 2015
On 4/4/15 18:28, Erik Huelsmann wrote:
[…]
The copy of the bug code you sent me got garbled as follows:
(defun =sample2 (n)
(macrolet ((f (result x)
`(list 'more (lambda () (=f ,result ,x))))
(g (result x)
`(list 'more (lambda () (=g ,result ,x)))))
(labels ((=f (result x)
(if (zerop x)
result
(g (1+ result) (1- x))))
(=g (result x)
(f result x)))
(f 0 n))))
I assume that one is supposed to remove all the #\= characters?
--
"A screaming comes across the sky. It has happened before, but there
is nothing to compare to it now."
More information about the armedbear-devel
mailing list