From: Basil L. Contovounesios <contovob@tcd.ie>
Date: Wed, 24 Feb 2021 22:34:06 +0000 (+0000)
Subject: ; Fix recent obsoletion warning in cl.el.
X-Git-Tag: emacs-28.0.90~3555
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=db09267de338461d7f3dcddba61d1b8904e7259e;p=emacs.git

; Fix recent obsoletion warning in cl.el.
---

diff --git a/lisp/obsolete/cl.el b/lisp/obsolete/cl.el
index f91cfaa34c3..09f9ab7b7f2 100644
--- a/lisp/obsolete/cl.el
+++ b/lisp/obsolete/cl.el
@@ -438,7 +438,7 @@ definitions, or lack thereof).
              (let ((func `(cl-function
                            (lambda ,(cadr x)
                              (cl-block ,(car x) ,@(cddr x))))))
-               (when (cl--compiling-file)
+               (when (macroexp-compiling-p)
                  ;; Bug#411.  It would be nice to fix this.
                  (and (get (car x) 'byte-compile)
                       (error "Byte-compiling a redefinition of `%s' \