From: David Vázquez <davazp@gmail.com>
Date: Sun, 23 Jun 2013 14:27:52 +0000 (+0200)
Subject: Migrate PROGN
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=3d31d9d8eb7cf38cec9d2b699dd5ba83dfc7f927;p=jscl.git

Migrate PROGN
---

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