[parenscript-devel] Bug: latest PS breaks some conditional expressions

[Daniel Gackle]

I'll use SETF to force PS to interpret the right-hand side as an expression.
These are correct:

(ps (setf x (let ((a 1)) a)))
=>
"x = (a6872 = 1, a6872);"

(ps (setf x (unless (null a) (1+ a))))
=>
"x = a != null ? a + 1 : null;"

But this is wrong:

(ps (setf x (let ((a (foo)))
                        (unless (null a)
                          (1+ a)))))
=>
"x = (a6874 = foo(), if (a6874 != null) {
    a6874 + 1;
});"

Daniel
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/parenscript-devel/attachments/20090506/323a9757/attachment.html>