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
This issue should be fixed in the latest batch of patches. Let me know if anything else breaks.
Vladimir
On Thu, Oct 13, 2011 at 4:12 PM, Daniel Gackle danielgackle@gmail.com wrote:
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 parenscript-devel@common-lisp.net http://lists.common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel
parenscript-devel@common-lisp.net
-
Daniel Gackle -
Vladimir Sedach