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