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;
};
};
};
_______________________________________________
parenscript-devel mailing list
[email protected]
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel
