Fixed.

On Wed, May 6, 2009 at 2:13 PM, Daniel Gackle danielgackle@gmail.com wrote:

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

---

parenscript-devel mailing list parenscript-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel