13 Oct
2011
13 Oct
'11
8:12 p.m.
This produces incorrect code (a throw with no corresponding catch): (defun foo () (labels ((bar (x) (when (evenp x) (return-from bar "even")) (blah x))) (bar 9))) If you change LABELS to FLET then it works. Daniel