From e04a2847a562f333b6e34227cbffa5e3ad81f8a3 Mon Sep 17 00:00:00 2001 From: Raimon Grau Date: Sat, 15 Dec 2012 02:11:30 +0100 Subject: [PATCH] test --- lispstrack.lisp | 2 +- test.lisp | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) 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)) -- 1.7.10.4