(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
