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

[Daniel Gackle]

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;
            };
        };
    };
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/parenscript-devel/attachments/20111222/28bcb1e2/attachment.html>