1 Jun
2010
1 Jun
'10
4:26 a.m.
(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.