From b5fa3794e05a706317998db74a71ae0e7e2f60cd Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sun, 23 Jun 2013 12:32:32 +0200 Subject: [PATCH] Fix empty toplevel progn --- src/compiler.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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)))) -- 1.7.10.4