21 Jun
2010
21 Jun
'10
7:54 p.m.
Fixed. Thanks for the bug report. 2010/6/1 Daniel Gackle <danielgackle@gmail.com>:
(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 parenscript-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel