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.
Just pushed a fix for this.
Vladimir
2011/1/11 Daniel Gackle danielgackle@gmail.com:
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. _______________________________________________ parenscript-devel mailing list parenscript-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel
parenscript-devel@common-lisp.net
-
Daniel Gackle -
Vladimir Sedach