Incorrect funcall IR conversion for testing

diff --git a/experimental/compiler.lisp b/experimental/compiler.lisp
index fe3693f..492cce8 100644 (file)
--- 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