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