[parenscript-devel] Bug: JS contains inappropriate "funcall" in SBCL

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; }; }; };