From: Raimon Grau <raimonster@gmail.com>
Date: Sat, 15 Dec 2012 01:11:30 +0000 (+0100)
Subject: test
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=e04a2847a562f333b6e34227cbffa5e3ad81f8a3;p=jscl.git

test
---

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 9ebcf17..057cd7e 100644
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -97,7 +97,7 @@ body can access to the local environment through the variable env"
     (with-open-file (out "test.js" :direction :output :if-exists :supersede)
       (loop
          for x = (read in nil) while x
-         do (write-string (ls-compile x) out)))))
+         do (write-string (concat (ls-compile x) "; ") out)))))
 
 (define-compilation while (pred &rest body)
   (format nil "(function(){while(~a){~a}})() "
diff --git a/test.lisp b/test.lisp
index d555938..75ae829 100644
--- a/test.lisp
+++ b/test.lisp
@@ -3,3 +3,4 @@
   x)
 
 (debug "hola")
+(debug (if 2 (+ 2 1) 0))