From: "Basil L. Contovounesios" <contovob@tcd.ie>
To: Stefan Monnier <monnier@iro.umontreal.ca>
Cc: emacs-devel@gnu.org
Subject: Re: master a0f6029: Fix misuses of `byte-compile-macro-environment`
Date: Wed, 03 Mar 2021 14:44:02 +0000 [thread overview]
Message-ID: <87h7lsthzh.fsf@tcd.ie> (raw)
In-Reply-To: <20210301171854.C42CB20E1B@vcs0.savannah.gnu.org> (Stefan Monnier's message of "Mon, 1 Mar 2021 12:18:54 -0500 (EST)")
[-- Attachment #1: Type: text/plain, Size: 1633 bytes --]
monnier@iro.umontreal.ca (Stefan Monnier) writes:
> branch: master
> commit a0f60293d97cda858c033db4ae074e5e5560aab2
> Author: Stefan Monnier <monnier@iro.umontreal.ca>
> Commit: Stefan Monnier <monnier@iro.umontreal.ca>
>
> Fix misuses of `byte-compile-macro-environment`
This seems to result in the following test failure with 'make check',
but strangely not with 'make test/pcase-tests':
Test pcase-tests-macro backtrace:
signal(void-function (pcase-tests-plus--pcase-macroexpander))
apply(signal (void-function (pcase-tests-plus--pcase-macroexpander))
#f(compiled-function () #<bytecode -0x130ab4f40ca06d1f>)()
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name pcase-tests-macro :documentation nil
ert-run-or-rerun-test(#s(ert--stats :selector (not (or ... ...)) :te
ert-run-tests((not (or (tag :expensive-test) (tag :unstable))) #f(co
ert-run-tests-batch((not (or (tag :expensive-test) (tag :unstable)))
ert-run-tests-batch-and-exit((not (or (tag :expensive-test) (tag :un
eval((ert-run-tests-batch-and-exit '(not (or (tag :expensive-test) (
command-line-1(("-L" ":." "-l" "ert" "-l" "lisp/emacs-lisp/pcase-tes
command-line()
normal-top-level()
Test pcase-tests-macro condition:
(void-function pcase-tests-plus--pcase-macroexpander)
FAILED 5/9 pcase-tests-macro (0.000163 sec)
BTW, 'make bootstrap' now emits this warning:
In cl--sm-macroexpand:
emacs-lisp/cl-macs.el:2301:61: Warning: Unused lexical argument `dontcare'
(The 'sm' is the artist's signature, right? ;)
Is this the right fix?
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-Pacify-unused-var-warning-in-cl-sm-macroexpand.patch --]
[-- Type: text/x-diff, Size: 1026 bytes --]
From a29983cbbfb1fbd7cb2773d1e2dc89483df82bf4 Mon Sep 17 00:00:00 2001
From: "Basil L. Contovounesios" <contovob@tcd.ie>
Date: Wed, 3 Mar 2021 12:49:31 +0000
Subject: [PATCH] ; Pacify unused var warning in cl--sm-macroexpand.
---
lisp/emacs-lisp/cl-macs.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 91146c4d0e..c38dc44ff6 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -2298,7 +2298,7 @@ cl--sm-macroexpand
;; The behavior of CL made sense in a dynamically scoped
;; language, but nowadays, lexical scoping semantics is more often
;; expected.
- (`(,(or 'let 'let*) . ,(or `(,bindings . ,body) dontcare))
+ (`(,(or 'let 'let*) . ,(or `(,bindings . ,body) pcase--dontcare))
(let ((nbs ()) (found nil))
(dolist (binding bindings)
(let* ((var (if (symbolp binding) binding (car binding)))
--
2.30.1
[-- Attachment #3: Type: text/plain, Size: 20 bytes --]
Thanks,
--
Basil
next parent reply other threads:[~2021-03-03 14:44 UTC|newest]
Thread overview: 11+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <20210301171853.8051.45984@vcs0.savannah.gnu.org>
[not found] ` <20210301171854.C42CB20E1B@vcs0.savannah.gnu.org>
2021-03-03 14:44 ` Basil L. Contovounesios [this message]
[not found] ` <43A0C407-D217-46AF-8472-28DD2DE80D6C@acm.org>
2021-03-03 15:16 ` master a0f6029: Fix misuses of `byte-compile-macro-environment` Basil L. Contovounesios
2021-03-03 15:23 ` Mattias Engdegård
2021-03-03 15:26 ` Lars Ingebrigtsen
2021-03-04 13:48 ` Basil L. Contovounesios
2021-03-04 8:41 ` Michael Albinus
2021-03-03 22:15 ` Stefan Monnier
2021-03-04 1:47 ` Basil L. Contovounesios
2021-03-04 2:33 ` Stefan Monnier
2021-03-04 13:38 ` Basil L. Contovounesios
2021-03-04 14:50 ` Stefan Monnier
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87h7lsthzh.fsf@tcd.ie \
--to=contovob@tcd.ie \
--cc=emacs-devel@gnu.org \
--cc=monnier@iro.umontreal.ca \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).