From 7200b4fe1c083afb9e26804d20cfb57d1add1a46 Mon Sep 17 00:00:00 2001 From: Raimon Grau Date: Wed, 12 Dec 2012 00:04:19 +0100 Subject: [PATCH] if --- lispstrack.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lispstrack.lisp b/lispstrack.lisp index 794e082..aba12cb 100644 --- a/lispstrack.lisp +++ b/lispstrack.lisp @@ -5,7 +5,10 @@ ((stringp sexp) (format nil " \"~a\" " sexp)) ; list ((case (first sexp) - (if nil) + (if (format nil "((~a)? (~a) : (~a))" + (ls-compile (second sexp)) + (ls-compile (third sexp)) + (ls-compile (fourth sexp)))) (lambda nil) (t nil))))) -- 1.7.10.4