Fixed. Thanks for the bug report. 2010/6/1 Daniel Gackle <danielgackle@gmail.com>:

(ps (setf x (cond ((foo) 123)                   ((bar))                   (t 456)))) => "x = foo() ? 123 : (bar() ? () : 456);" Similarly, (ps (defun blah ()                 (cond ((foo) 123)                       ((bar))                       (t 456)))) => "function blah() {     if (foo()) {         return 123;     } else if (return bar()) {     } else {         return 456;     }; };" No doubt the (bar) form should produce NIL instead, as in CL. _______________________________________________ parenscript-devel mailing list parenscript-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel