13 Oct
2011
13 Oct
'11
10: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