From: David Vázquez <davazp@gmail.com>
Date: Sun, 12 May 2013 17:29:29 +0000 (+0100)
Subject: Incorrect funcall IR conversion for testing
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=11fe17c40394daf6023f99b44d9b54d553d60b57;p=jscl.git

Incorrect funcall IR conversion for testing
---

diff --git a/experimental/compiler.lisp b/experimental/compiler.lisp
index fe3693f..492cce8 100644
--- a/experimental/compiler.lisp
+++ b/experimental/compiler.lisp
@@ -545,8 +545,7 @@
   (destructuring-bind (function &rest args) form
     (let ((func-lvar (make-lvar))
           (args-lvars nil))
-      (when (symbolp function)
-        (ir-convert `(%symbol-function ,function) func-lvar))
+      (ir-convert function func-lvar)
       (dolist (arg args)
         (let ((arg-lvar (make-lvar)))
           (push arg-lvar args-lvars)
@@ -702,4 +701,5 @@
 
 
 
+
 ;;; compiler.lisp ends here