Merge branch 'while'

Conflicts:
	lispstrack.lisp

diff --cc lispstrack.lisp
index a1d4add,d7e41a1..ba97bd6
--- 1/lispstrack.lisp
--- 2/lispstrack.lisp
+++ b/lispstrack.lisp
@@@ -78,9 -90,11 +90,14 @@@ body can access to the local environmen
  (define-compilation quote (sexp)
    (lisp->js sexp))
  
 +(define-compilation debug (form)
 +  (format nil "console.log(~a)" (ls-compile form env)))
 +
+ (define-compilation while (pred &rest body)
+   (format nil "(function(){while(~a){~a}})() "
+         (ls-compile pred env)
+         (ls-compile-sexps body env)))
+ 
  (defparameter *env* '())
  (defparameter *env-fun* '())