Fix ir-convert-call

diff --git a/experimental/compiler.lisp b/experimental/compiler.lisp
index 6b11e1b..fd7b334 100644 (file)
--- 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)))))))