From 1045363e31e3d4c525814f945a8130edb5763293 Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Mon, 29 Feb 2016 15:51:05 +0300 Subject: [PATCH] Remove the ir1 FUNCALL transform. Not only is not invoked (the source transform takes precedence) it is also broken. --- src/compiler/ir1-translators.lisp | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/src/compiler/ir1-translators.lisp b/src/compiler/ir1-translators.lisp index 5cfa54894..9b24e8909 100644 --- a/src/compiler/ir1-translators.lisp +++ b/src/compiler/ir1-translators.lisp @@ -605,16 +605,6 @@ be a lambda expression." `(%coerce-callable-to-fun ,lvar-name)))))) ;;;; FUNCALL - -;;; FUNCALL is implemented on %FUNCALL, which can only call functions -;;; (not symbols). %FUNCALL is used directly in some places where the -;;; call should always be open-coded even if FUNCALL is :NOTINLINE. -(deftransform funcall ((function &rest args) * *) - (let ((arg-names (make-gensym-list (length args)))) - `(lambda (function ,@arg-names) - (declare (ignorable function)) - `(%funcall ,(ensure-lvar-fun-form function 'function) ,@arg-names)))) - (def-ir1-translator %funcall ((function &rest args) start next result) ;; MACROEXPAND so that (LAMBDA ...) forms arriving here don't get an ;; extra cast inserted for them. -- 2.11.4.GIT