11 Jan
2011
11 Jan
'11
9:40 p.m.
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.