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;

            };

        };

    };