<div><font class="Apple-style-span" face="'courier new', monospace">(ps (setf x (cond ((foo) 123)</font></div><div><font class="Apple-style-span" face="'courier new', monospace">                  ((bar))</font></div>

<div><font class="Apple-style-span" face="'courier new', monospace">                  (t 456))))</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div><font class="Apple-style-span" face="'courier new', monospace">=> "x = foo() ? 123 : (bar() ? () : 456);"</font></div>

<div><br></div><div>Similarly,</div><div><br></div><div><div><font class="Apple-style-span" face="'courier new', monospace">(ps (defun blah ()</font></div><div><font class="Apple-style-span" face="'courier new', monospace">                (cond ((foo) 123)</font></div>

<div><font class="Apple-style-span" face="'courier new', monospace">                      ((bar))</font></div><div><font class="Apple-style-span" face="'courier new', monospace">                      (t 456))))</font></div>

</div><div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div><font class="Apple-style-span" face="'courier new', monospace">=> </font></div><div><div><font class="Apple-style-span" face="'courier new', monospace">"function blah() {</font></div>

<div><font class="Apple-style-span" face="'courier new', monospace">    if (foo()) {</font></div><div><font class="Apple-style-span" face="'courier new', monospace">        return 123;</font></div><div><font class="Apple-style-span" face="'courier new', monospace">    } else if (return bar()) {</font></div>

<div><font class="Apple-style-span" face="'courier new', monospace">    } else {</font></div><div><font class="Apple-style-span" face="'courier new', monospace">        return 456;</font></div><div><font class="Apple-style-span" face="'courier new', monospace">    };</font></div>

<div><font class="Apple-style-span" face="'courier new', monospace">};"</font></div></div><div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div>No doubt the (bar) form should produce NIL instead, as in CL.</div>