From: Andrea Corallo <akrl@sdf.org>
Date: Mon, 11 May 2020 18:21:01 +0000 (+0100)
Subject: * Fix speed 2 bootstrap
X-Git-Tag: emacs-28.0.90~2727^2~640
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2b064c780cdcb4a7bb832e11d4a166954c485ac5;p=emacs.git

* Fix speed 2 bootstrap

	(comp-call-optim-func): Do nothing if the function name is
	unknown.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 94ffc2d1778..d546218940b 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1994,6 +1994,7 @@ Backward propagate array placement properties."
   (cl-loop
    with self = (comp-func-name comp-func)
    for b being each hash-value of (comp-func-blocks comp-func)
+   when self ;; FIXME add proper anonymous lambda support.
    do (cl-loop
        for insn-cell on (comp-block-insns b)
        for insn = (car insn-cell)