From 71f89cdc51cfef79c15bf02d216bdca8d47250ea Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sat, 11 May 2013 18:57:21 +0100 Subject: [PATCH] IR Translator: PROGN --- experimental/compiler.lisp | 6 ++++++ 1 file changed, 6 insertions(+) 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))) -- 1.7.10.4