X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler.lisp;h=6605ddebfe67f526cfc744a532980da8d27a195c;hb=fdff53251d15ceeb567dc7faa06736de0e8c5ed2;hp=747f4b1392b9ca837400e05c22fb472aba126c6b;hpb=e4c2519634054d349af11ced07011e1178b764f6;p=jscl.git

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 747f4b1..6605dde 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -1506,7 +1506,10 @@
 (defun convert-toplevel (sexp &optional multiple-value-p)
   (let ((*toplevel-compilations* nil))
     (cond
-      ((and (consp sexp) (eq (car sexp) 'progn))
+      ;; Non-empty toplevel progn
+      ((and (consp sexp)
+            (eq (car sexp) 'progn)
+            (cdr sexp))
        `(progn
           ,@(mapcar (lambda (s) (convert-toplevel s t))
                     (cdr sexp))))