[parenscript-devel] CASE is still broken with RETURN

[Daniel Gackle]

This generates an incorrect fall-through when A is "a" and FOO returns NIL:

(defun blah (a)
  (case a
    ("a" (when (foo) (return-from blah 111)))
    ("b" t)))

Note that if you replace WHEN with IF, it works.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/parenscript-devel/attachments/20110111/8a00499a/attachment.html>