Fixed. Thanks for the bug report. 2010/6/1 Daniel Gackle <[email protected]>: > (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 > [email protected] > http://common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel > >
_______________________________________________ parenscript-devel mailing list [email protected] http://common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel
