
22 Dec
2011
22 Dec
'11
7:41 p.m.
In SBCL, PS generates "funcall(bar)" below instead of "bar()". In CCL, it's fine. Daniel (ps (defun foo () (flet ((blah () (return-from foo (bar))))))) => function foo() { try { var blah = function () { throw { 'ps-block-tag' : 'foo', 'ps-return-value' : funcall(bar) }; }; return null; } catch (err) { if (err && 'foo' === err['ps-block-tag']) { return err['ps-return-value']; } else { throw err; }; }; };