X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler.lisp;h=79bf25037e1f8fed27625288798483d63bf2b48f;hb=18ada11fb234e336a3d2ac4370d384d80d36f9f0;hp=66844fb5694909487e35a79975111f7fee2c075d;hpb=9f8ed4bbc70fe2171bf116d60b80fed19fdef444;p=jscl.git

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 66844fb..79bf250 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -1470,11 +1470,10 @@
          (let ((form-string (prin1-to-string sexp)))
            (format t "Compiling ~a..." (truncate-string form-string))))
        (let ((code (ls-compile sexp multiple-value-p)))
-         `(code
-           ,@(interleave (get-toplevel-compilations) ";
-" t)
-           ,(when code
-                  `(code ,code ";"))))))))
+         `(progn
+            ,@(interleave (get-toplevel-compilations) '(code ";
+") t)
+            (code ,code ";")))))))
 
 (defun ls-compile-toplevel (sexp &optional multiple-value-p)
   (with-output-to-string (*standard-output*)