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