Page 1 of 1

strange error with mapcan and quote.

Posted: Sat Oct 20, 2012 1:54 pm
by stackman
I get a weird behavior with sbcl when I try the following code at the repl.

Code: Select all

 (mapcan (lambda (x) (if (evenp x) '(even))) (list 1 2 3 4))
Sbcl hangs at 100% CPU without returning an error.

Why do I get such a behavior?
Apparently, this is related to the quote '(even).
If I replace it by (list 'even), I get the expected answer (EVEN EVEN).

As far as I understand from the spec, the mapcan call should be equivalent to

Code: Select all

(apply #'nconc (mapcar (lambda (x) (if (evenp x) '(even))) (list 1 2 3 4)))
but then this code gives a heap exhaustion. I am puzzled.

Re: strange error with mapcan and quote.

Posted: Sat Oct 20, 2012 2:06 pm
by Konfusius
Mapcan operates destructively on the lists returned by the function. Because your function returns a literal list mapcan operates destructively on a literal object. The error will go away if you replace '(even) by (list 'even).