From: David Vázquez <davazp@gmail.com>
Date: Sun, 23 Jun 2013 10:32:32 +0000 (+0200)
Subject: Fix empty toplevel progn
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=b5fa3794e05a706317998db74a71ae0e7e2f60cd;p=jscl.git

Fix empty toplevel progn
---

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