From 11fe17c40394daf6023f99b44d9b54d553d60b57 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sun, 12 May 2013 18:29:29 +0100 Subject: [PATCH] Incorrect funcall IR conversion for testing --- experimental/compiler.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4