(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.