[parenscript-devel] A COND clause with unspecified consequent produces a syntax error

[Daniel Gackle]

(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.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/parenscript-devel/attachments/20100531/929bcea2/attachment.html>