From 3d31d9d8eb7cf38cec9d2b699dd5ba83dfc7f927 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sun, 23 Jun 2013 16:27:52 +0200 Subject: [PATCH] Migrate PROGN --- src/compiler.lisp | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/src/compiler.lisp b/src/compiler.lisp index be404f8..eef3940 100644 --- a/src/compiler.lisp +++ b/src/compiler.lisp @@ -644,12 +644,9 @@ (define-compilation progn (&rest body) (if (null (cdr body)) (ls-compile (car body) *multiple-value-p*) - `(code "(" - ,@(interleave - (append (mapcar #'ls-compile (butlast body)) - (list (ls-compile (car (last body)) t))) - ",") - ")"))) + `(progn + ,@(append (mapcar #'ls-compile (butlast body)) + (list (ls-compile (car (last body)) t)))))) (define-compilation macrolet (definitions &rest body) (let ((*environment* (copy-lexenv *environment*))) -- 1.7.10.4