From 18ada11fb234e336a3d2ac4370d384d80d36f9f0 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Fri, 5 Jul 2013 16:49:21 +0200 Subject: [PATCH] Remove CODE use in convert-toplevel --- src/compiler.lisp | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) 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*) -- 1.7.10.4