From: David Vázquez <davazp@gmail.com>
Date: Sat, 11 May 2013 17:57:21 +0000 (+0100)
Subject: IR Translator: PROGN
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=71f89cdc51cfef79c15bf02d216bdca8d47250ea;p=jscl.git

IR Translator: PROGN
---

diff --git a/experimental/compiler.lisp b/experimental/compiler.lisp
index 5078229..304b16b 100644
--- a/experimental/compiler.lisp
+++ b/experimental/compiler.lisp
@@ -445,6 +445,12 @@
     (set-cursor :block join-block)))
 
 
+(define-ir-translator progn (&body body)
+  (dolist (form (butlast body))
+    (ir-convert form))
+  (ir-convert (car (last body)) (result-lvar)))
+
+
 (defun ir-convert-var (form result)
   (let* ((leaf (make-var :name form))
          (ref (make-ref :leaf leaf :lvar result)))