From: David Vázquez <davazp@gmail.com>
Date: Sat, 1 Jun 2013 11:58:12 +0000 (+0100)
Subject: Fix ir-convert-call
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=0b9b4c05c9c367e9a164cfd98a04c71f79f7de8b;p=jscl.git

Fix ir-convert-call
---

diff --git a/experimental/compiler.lisp b/experimental/compiler.lisp
index 6b11e1b..fd7b334 100644
--- a/experimental/compiler.lisp
+++ b/experimental/compiler.lisp
@@ -682,7 +682,7 @@
                         :arguments args-lvars
                         :lvar result))
           (progn
-            (ir-convert `(symbol-function ,function) func-lvar)
+            (ir-convert `(symbol-function ',function) func-lvar)
             (insert-node (make-call :function func-lvar
                                     :arguments args-lvars
                                     :lvar result)))))))