From: David Vázquez <davazp@gmail.com>
Date: Fri, 5 Jul 2013 14:49:21 +0000 (+0200)
Subject: Remove CODE use in convert-toplevel
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=18ada11fb234e336a3d2ac4370d384d80d36f9f0;p=jscl.git

Remove CODE use in convert-toplevel
---

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*)