From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 7 Jun 2020 11:58:27 +0000 (+0200)
Subject: * Fix comp-call-optim-form-call for null `callee'
X-Git-Tag: emacs-28.0.90~2727^2~582
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=88ccee4083f9059603c8bf9b989848c41902d8b0;p=emacs.git

* Fix comp-call-optim-form-call for null `callee'

	* lisp/emacs-lisp/comp.el (comp-call-optim-form-call): Guard
	agains null `calle'.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index ecd411591a3..520ec8cd44d 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2023,7 +2023,8 @@ FUNCTION can be a function-name or byte compiled function."
               ;; Fill missing args to reach TOTAL
               (append args (cl-loop repeat (- total (length args))
                                     collect (make-comp-mvar :constant nil)))))
-    (when (and (or (symbolp callee)
+    (when (and callee
+               (or (symbolp callee)
                    (gethash callee (comp-ctxt-byte-func-to-func-h comp-ctxt)))
                (not (memq callee comp-never-optimize-functions)))
       (let* ((f (if (symbolp callee)