if

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 794e082..aba12cb 100644 (file)
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -5,7 +5,10 @@
     ((stringp sexp) (format nil " \"~a\" " sexp))
     ; list
     ((case (first sexp)
     ((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)))))
 
        (lambda nil)
        (t nil)))))