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
_______________________________________________ parenscript-devel mailing list [email protected] http://lists.common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel
