Fix empty setq

[jscl.git] / src / compiler.lisp

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 2d541c7..c14584f 100644 (file)
--- 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