X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler.lisp;fp=src%2Fcompiler.lisp;h=c14584f866d1732e3dae0148411ee3ddbd0aae11;hb=1ce47de561f80debf6ffd8efeac4eaf962de65f7;hp=2d541c73bdc8b019ba5071d9c50272b68d5489dc;hpb=e665d05768ad1dc9c2e70589af00b3ba795befc6;p=jscl.git

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 2d541c7..c14584f 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -470,7 +470,9 @@
   (let ((result ""))
     (while t
       (cond
-	((null pairs) (return))
+	((null pairs)
+         (setq result (ls-compile nil))
+         (return))
 	((null (cdr pairs))
 	 (error "Odd pairs in SETQ"))
 	(t