From: Raimon Grau <raimonster@gmail.com>
Date: Tue, 11 Dec 2012 23:04:19 +0000 (+0100)
Subject: if
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=7200b4fe1c083afb9e26804d20cfb57d1add1a46;p=jscl.git

if
---

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)))))