* bug#64294: 30.0.50; setf strange when lexical-binding is nil
@ 2023-06-26 0:40 Katsumi Yamaoka
2023-06-26 7:41 ` Katsumi Yamaoka
0 siblings, 1 reply; 2+ messages in thread
From: Katsumi Yamaoka @ 2023-06-26 0:40 UTC (permalink / raw)
To: 64294
Hi,
In the *scratch* buffer:
(setq lexical-binding nil)
(require 'nnheader)
(macroexpand '(setf (mail-header-date header) date))
=> (let* ((v #'(lambda (cl-x) (progn (progn (aref cl-x 3)))))
(v header))
(\(setf\ funcall\) date v v))
This looks broken, though it gets normal if lexical-binding is t.
Because of this, an old ELisp module doesn't work. In addition,
the funny portion is replased with
\(setf\ internal--with-suppressed-warnings\)...
if the code is byte-compiled.
Thanks.
In GNU Emacs 30.0.50 (build 1, x86_64-pc-cygwin, GTK+ Version
3.22.28, cairo version 1.17.4) of 2023-06-26 built on localhost
^ permalink raw reply [flat|nested] 2+ messages in thread
* bug#64294: 30.0.50; setf strange when lexical-binding is nil
2023-06-26 0:40 bug#64294: 30.0.50; setf strange when lexical-binding is nil Katsumi Yamaoka
@ 2023-06-26 7:41 ` Katsumi Yamaoka
0 siblings, 0 replies; 2+ messages in thread
From: Katsumi Yamaoka @ 2023-06-26 7:41 UTC (permalink / raw)
To: 64294-done
Duplicate. Sorry for the noise.
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2023-06-26 7:41 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2023-06-26 0:40 bug#64294: 30.0.50; setf strange when lexical-binding is nil Katsumi Yamaoka
2023-06-26 7:41 ` Katsumi Yamaoka
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).