[parenscript-devel] bug: RETURN-FROM doesn't work with LABELS

[Daniel Gackle]

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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/parenscript-devel/attachments/20111013/489165a6/attachment.html>