From: David Vázquez 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))))