From unknown Tue Jun 17 22:24:14 2025 X-Loop: help-debbugs@gnu.org Subject: bug#74870: cl-labels and cl-flet don't create named blocks Resent-From: Jan Jouleodov Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 14 Dec 2024 16:28:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 74870 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: 74870@debbugs.gnu.org X-Debbugs-Original-To: "bug-gnu-emacs@gnu.org" Received: via spool by submit@debbugs.gnu.org id=B.17341936658712 (code B ref -1); Sat, 14 Dec 2024 16:28:02 +0000 Received: (at submit) by debbugs.gnu.org; 14 Dec 2024 16:27:45 +0000 Received: from localhost ([127.0.0.1]:48122 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tMUzY-0002GN-0e for submit@debbugs.gnu.org; Sat, 14 Dec 2024 11:27:45 -0500 Received: from lists.gnu.org ([209.51.188.17]:60780) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tMF7Z-00037f-OB for submit@debbugs.gnu.org; Fri, 13 Dec 2024 18:30:58 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1tMF7X-0001r6-9E for bug-gnu-emacs@gnu.org; Fri, 13 Dec 2024 18:30:57 -0500 Received: from mail-0301.mail-europe.com ([188.165.51.139]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1tMF7T-0002wb-M5 for bug-gnu-emacs@gnu.org; Fri, 13 Dec 2024 18:30:55 -0500 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=protonmail.com; s=protonmail3; t=1734132644; x=1734391844; bh=KsxmqtBzSyp9FcvpK0KA1LfjSJwog2UzgUr95XP+TAQ=; h=Date:To:From:Subject:Message-ID:Feedback-ID:From:To:Cc:Date: Subject:Reply-To:Feedback-ID:Message-ID:BIMI-Selector: List-Unsubscribe:List-Unsubscribe-Post; b=TljXXarjgE9qQs4xKYxOy7y3QiCyz5/uLgJY/39BjgonwA1NmnCfJMMU4PredxKTw U3DeyRcBnrVpVKwXzCtYbuYJjwILfkom36sONtg8IAKOu3snMmr1AdEg1QHk3yz6v8 JQVjTiaMow9giwy9am/zML68+XWac8v1rUZWzkEaVHioLLf5PlufeuHrF5197xnKy1 15pw3bx8iYxgIYJ55kpDbqJgDdv/tUrgODIX0oGzX/Ek9SeXHWWZFawOGZfthCB6Au 8uJYaOECM+FJCKbqNPUIkUvJkhtNZwEy7hh59DudOonk83a+wER59wyT27M9kLioHX taRVH3GDqD1yg== Date: Fri, 13 Dec 2024 23:30:41 +0000 From: Jan Jouleodov Message-ID: Feedback-ID: 107046897:user:proton X-Pm-Message-ID: 7ea59d4c4831d0fa20ae2ff901fe9b04820d67c5 MIME-Version: 1.0 Content-Type: multipart/alternative; boundary="b1=_ksPGdEye69bxgCVHQ7rmXzaf07UZ8xg3ovZxBOztEMk" Received-SPF: pass client-ip=188.165.51.139; envelope-from=jouleodov@protonmail.com; helo=mail-0301.mail-europe.com X-Spam_score_int: -27 X-Spam_score: -2.8 X-Spam_bar: -- X-Spam_report: (-2.8 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, HTML_MESSAGE=0.001, RCVD_IN_DNSWL_LOW=-0.7, RCVD_IN_VALIDITY_CERTIFIED_BLOCKED=0.001, RCVD_IN_VALIDITY_RPBL_BLOCKED=0.001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-Spam-Score: -1.3 (-) X-Mailman-Approved-At: Sat, 14 Dec 2024 11:27:42 -0500 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -2.3 (--) --b1=_ksPGdEye69bxgCVHQ7rmXzaf07UZ8xg3ovZxBOztEMk Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: base64 SW4gQU5TSSBDTCwgdGhlc2Ugc2hvdWxkIGNyZWF0ZSBhIG5hbWVkIENMOkJMT0NLLCBhbGxvd2lu ZyBvbmUgdG8gZG8gYSBsb2NhbCByZXR1cm4gdmlhIENMOlJFVFVSTi1GUk9NLiBJbiBFbWFjcywg dGhpcyBpcyBub3QgdGhlIGNhc2UsIHJlc3VsdGluZyBpbiBhbiB1bmNhdWdodCBleGNlcHRpb24u --b1=_ksPGdEye69bxgCVHQ7rmXzaf07UZ8xg3ovZxBOztEMk Content-Type: text/html; charset=utf-8 Content-Transfer-Encoding: base64 PGRpdiBzdHlsZT0iZm9udC1mYW1pbHk6IEFyaWFsLCBzYW5zLXNlcmlmOyBmb250LXNpemU6IDE0 cHg7IGNvbG9yOiByZ2IoMCwgMCwgMCk7IGJhY2tncm91bmQtY29sb3I6IHJnYigyNTUsIDI1NSwg MjU1KTsiPkluIEFOU0kgQ0wsIHRoZXNlIHNob3VsZCBjcmVhdGUgYSBuYW1lZCBDTDpCTE9DSywg YWxsb3dpbmcgb25lIHRvIGRvIGEgbG9jYWwgcmV0dXJuIHZpYSBDTDpSRVRVUk4tRlJPTS4gSW4g RW1hY3MsIHRoaXMgaXMgbm90IHRoZSBjYXNlLCByZXN1bHRpbmcgaW4gYW4gdW5jYXVnaHQgZXhj ZXB0aW9uLjxicj48L2Rpdj4= --b1=_ksPGdEye69bxgCVHQ7rmXzaf07UZ8xg3ovZxBOztEMk-- From unknown Tue Jun 17 22:24:14 2025 X-Loop: help-debbugs@gnu.org Subject: bug#74870: cl-labels and cl-flet don't create named blocks Resent-From: Eli Zaretskii Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 14 Dec 2024 16:55:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 74870 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: Jan Jouleodov , Stefan Monnier Cc: 74870@debbugs.gnu.org Received: via spool by 74870-submit@debbugs.gnu.org id=B74870.173419528713721 (code B ref 74870); Sat, 14 Dec 2024 16:55:02 +0000 Received: (at 74870) by debbugs.gnu.org; 14 Dec 2024 16:54:47 +0000 Received: from localhost ([127.0.0.1]:48169 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tMVPj-0003ZE-6y for submit@debbugs.gnu.org; Sat, 14 Dec 2024 11:54:47 -0500 Received: from eggs.gnu.org ([209.51.188.92]:53056) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tMVPg-0003Yr-5j for 74870@debbugs.gnu.org; Sat, 14 Dec 2024 11:54:46 -0500 Received: from fencepost.gnu.org ([2001:470:142:3::e]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1tMVPZ-0000uR-Lc; Sat, 14 Dec 2024 11:54:37 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnu.org; s=fencepost-gnu-org; h=References:Subject:In-Reply-To:To:From:Date: mime-version; bh=fpjzr8MSoTcAlaaPcUL3hp7g+2V5pzP2SJlcH2H8Jss=; b=k4TKFZJMb8v7 HKwnqzyXq4BS5MJVglKbSSxi4Q6X5nf7phEFP/NGBjPAsRerzSd8+6sdtG2zu2yo3ikHraOcitSQU JyzTGSgx9UghfIVMGC1wwpyRRYErvwCIesaJsdi0JZf9OfRZkMo1oqWITyCYkYjOmIzCMV1HQ+Y5Y Bd5jXGwh97aJQehxG4iuvl4klxQ3lbSZnjcUbL+s1TyphmBFlw+XFo1ADRmyVZvVZpSKoWdiAsB8R i60/PdYBqvGo+VBj2GgYrTnTVBbytmsFnoIZuJs4TttlAPPCnVsKE6ARJ/E0ZCI+PIOjFqQVu4BTu 0P09RuDjgIaBgEGD2w5t7w==; Date: Sat, 14 Dec 2024 18:54:34 +0200 Message-Id: <86bjxetdbp.fsf@gnu.org> From: Eli Zaretskii In-Reply-To: (bug-gnu-emacs@gnu.org) References: X-Spam-Score: -2.3 (--) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) > Date: Fri, 13 Dec 2024 23:30:41 +0000 > From: Jan Jouleodov via "Bug reports for GNU Emacs, > the Swiss army knife of text editors" > > In ANSI CL, these should create a named CL:BLOCK, allowing one to do a local return via > CL:RETURN-FROM. In Emacs, this is not the case, resulting in an uncaught exception. I'm guessing this is a documentation bug, in that this particular aspect of CL is not emulated by cl-labels. Stefan, am I right? From unknown Tue Jun 17 22:24:14 2025 X-Loop: help-debbugs@gnu.org Subject: bug#74870: cl-labels and cl-flet don't create named blocks Resent-From: Stefan Monnier Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 17 Dec 2024 03:24:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 74870 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: Eli Zaretskii Cc: 74870@debbugs.gnu.org, Jan Jouleodov Received: via spool by 74870-submit@debbugs.gnu.org id=B74870.173440582515580 (code B ref 74870); Tue, 17 Dec 2024 03:24:02 +0000 Received: (at 74870) by debbugs.gnu.org; 17 Dec 2024 03:23:45 +0000 Received: from localhost ([127.0.0.1]:57031 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tNOBR-00043A-Jl for submit@debbugs.gnu.org; Mon, 16 Dec 2024 22:23:44 -0500 Received: from mailscanner.iro.umontreal.ca ([132.204.25.50]:6871) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tNOBP-00042v-Gg for 74870@debbugs.gnu.org; Mon, 16 Dec 2024 22:23:40 -0500 Received: from pmg3.iro.umontreal.ca (localhost [127.0.0.1]) by pmg3.iro.umontreal.ca (Proxmox) with ESMTP id 510E344349A; Mon, 16 Dec 2024 22:23:26 -0500 (EST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=iro.umontreal.ca; s=mail; t=1734405805; bh=OWZP/rhAM6JljC1qUx3JCqIhPxBgm8BT6ucWWtWeEPw=; h=From:To:Cc:Subject:In-Reply-To:References:Date:From; b=Yq8Y1w0ohyYiSDcSszAmcrE0o/D4IuuN5cKqbtARWki7eDjie4Xbu5ViyfazPZ7/V l1tfK/cZSP+veK2mIK1SVyjySvXaIKjztq5T96eCPkds5KlTL1XNRsEL7uFaYwhBC9 87p6fkcyVqHbMnnWgYtlouXSShDVhgPEFaq+g1C5dUDXMd5w0BjZhvswDsK5AIb1x9 OMwFyH+WSLkJR/ATHLqvCjJ3D+AhM3s00Wc/Aw/690ctxoCINq+AJD+kfhlrfiBv3C qk6keZn8DpYI2mImH7egfD/DWluAjXeylxOS/9ZXM43tt5rEqLUtGD2ZKYsCgvGLUg UJhK40V6FqRbw== Received: from mail01.iro.umontreal.ca (unknown [172.31.2.1]) by pmg3.iro.umontreal.ca (Proxmox) with ESMTP id 2FA80440CCB; Mon, 16 Dec 2024 22:23:25 -0500 (EST) Received: from pastel (104-195-225-43.cpe.teksavvy.com [104.195.225.43]) by mail01.iro.umontreal.ca (Postfix) with ESMTPSA id F3CC512021A; Mon, 16 Dec 2024 22:23:24 -0500 (EST) From: Stefan Monnier In-Reply-To: <86bjxetdbp.fsf@gnu.org> (Eli Zaretskii's message of "Sat, 14 Dec 2024 18:54:34 +0200") Message-ID: References: <86bjxetdbp.fsf@gnu.org> Date: Mon, 16 Dec 2024 22:23:24 -0500 User-Agent: Gnus/5.13 (Gnus v5.13) MIME-Version: 1.0 Content-Type: text/plain X-SPAM-INFO: Spam detection results: 0 ALL_TRUSTED -1 Passed through trusted hosts only via SMTP AWL -0.007 Adjusted score from AWL reputation of From: address BAYES_00 -1.9 Bayes spam probability is 0 to 1% DKIM_SIGNED 0.1 Message has a DKIM or DK signature, not necessarily valid DKIM_VALID -0.1 Message has at least one valid DKIM or DK signature DKIM_VALID_AU -0.1 Message has a valid DKIM or DK signature from author's domain DKIM_VALID_EF -0.1 Message has a valid DKIM or DK signature from envelope-from domain X-SPAM-LEVEL: X-Spam-Score: -2.3 (--) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) >> In ANSI CL, these should create a named CL:BLOCK, allowing one to do a local return via >> CL:RETURN-FROM. In Emacs, this is not the case, resulting in an uncaught exception. > I'm guessing this is a documentation bug, in that this particular > aspect of CL is not emulated by cl-labels. > Stefan, am I right? Could be. Or it could be an oversight, maybe dating back to many many years ago, and that nobody noticed until now. Whichever was the original reason, now we get to decide whether we keep the behavior or not. Following Common Lisp's lead should not introduce any backward compatibility issue, all it would cost us is a slightly more costly macroexpansion for those macros. Stefan From unknown Tue Jun 17 22:24:14 2025 X-Loop: help-debbugs@gnu.org Subject: bug#74870: cl-labels and cl-flet don't create named blocks Resent-From: Jan Jouleodov Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Thu, 19 Dec 2024 05:13:04 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 74870 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: Stefan Monnier Cc: Eli Zaretskii , 74870@debbugs.gnu.org Received: via spool by 74870-submit@debbugs.gnu.org id=B74870.1734585162826 (code B ref 74870); Thu, 19 Dec 2024 05:13:04 +0000 Received: (at 74870) by debbugs.gnu.org; 19 Dec 2024 05:12:42 +0000 Received: from localhost ([127.0.0.1]:36998 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tO8q2-0000DB-3L for submit@debbugs.gnu.org; Thu, 19 Dec 2024 00:12:42 -0500 Received: from mail-10696.protonmail.ch ([79.135.106.96]:15041) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tO4pO-0003tL-JD for 74870@debbugs.gnu.org; Wed, 18 Dec 2024 19:55:47 -0500 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=protonmail.com; s=protonmail3; t=1734569739; x=1734828939; bh=ygn3C9GvwRfzBKmM/zh+IP1f/zw9py1dnIF99MYfAQQ=; h=Date:To:From:Cc:Subject:Message-ID:In-Reply-To:References: Feedback-ID:From:To:Cc:Date:Subject:Reply-To:Feedback-ID: Message-ID:BIMI-Selector:List-Unsubscribe:List-Unsubscribe-Post; b=ljLRPvkSj5s+IweKZ1MJBiRRIhnDzSE2RYQLMOD/Bh47INLV6Zi85hFeHuwdsB4+/ pOxbs5KPi+uEZ5Q6TOTSogi2LJ1PjgjVhp4Vf7UX5IMJTu9CAdI3FLPT0qM8oRV8u6 8QQZxhJKawD/kv1Jf7epTmypteuL+fZhUpTuvkEz9UZR5Vep+49Ld3FvhboYjMI2OG P7ohlI3gtp0A1k4XkhKzQ+4vC+2ClDndiSYW7/PZz1xUEQc5XtjAdNYWzUu3mUbTIO Ma4VZol7JfZEW+BVnnG5wJFSzWAdJmv24nIgW3E2YTfJOmLDgc/Ko1wQ5itfpdLYZh kjobFdS9g9ALA== Date: Thu, 19 Dec 2024 00:55:34 +0000 From: Jan Jouleodov Message-ID: In-Reply-To: References: <86bjxetdbp.fsf@gnu.org> Feedback-ID: 107046897:user:proton X-Pm-Message-ID: fe74d427bb2879ae188afc6ad6a5f3865793fe07 MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Spam-Score: 0.0 (/) X-Mailman-Approved-At: Thu, 19 Dec 2024 00:12:35 -0500 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) > Whichever was the original reason, now we get to decide whether we keep > the behavior or not. Following Common Lisp's lead should not introduce an= y > backward compatibility issue, all it would cost us is a slightly more > costly macroexpansion for those macros. > > > Stefan Is there any reason why one would not want to *always* emulate the CL behavior in cl-lib? I could only think of a backward compatibility problem before CL was standardized, but I am not familiar with the time frame of cl-lib to know if that's really the case. From unknown Tue Jun 17 22:24:14 2025 X-Loop: help-debbugs@gnu.org Subject: bug#74870: cl-labels and cl-flet don't create named blocks Resent-From: Michael Heerdegen Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Thu, 19 Dec 2024 16:28:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 74870 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: Eli Zaretskii Cc: 74870@debbugs.gnu.org, Stefan Monnier , Jan Jouleodov Received: via spool by 74870-submit@debbugs.gnu.org id=B74870.1734625668580 (code B ref 74870); Thu, 19 Dec 2024 16:28:01 +0000 Received: (at 74870) by debbugs.gnu.org; 19 Dec 2024 16:27:48 +0000 Received: from localhost ([127.0.0.1]:39815 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tOJNM-00009I-1W for submit@debbugs.gnu.org; Thu, 19 Dec 2024 11:27:48 -0500 Received: from mout.web.de ([212.227.15.14]:41565) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tOJNK-000094-1t for 74870@debbugs.gnu.org; Thu, 19 Dec 2024 11:27:47 -0500 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=web.de; s=s29768273; t=1734625654; x=1735230454; i=michael_heerdegen@web.de; bh=RZdpUacG6n8NMSfJIw/cIeXQYh+VG00b4UmfFx90HIE=; h=X-UI-Sender-Class:From:To:Cc:Subject:In-Reply-To:References:Date: Message-ID:MIME-Version:Content-Type:cc:content-transfer-encoding: content-type:date:from:message-id:mime-version:reply-to:subject: to; b=o0+WbNwlWA852qW/G6MreNvMVowa2nmM6474dfZwfGJcsxiK4O46YyeMDnX2rGZI hwCpOF/hFqEkR+bDyT7gr2Y3nVpFXr6+O8/n22+yHm80XpTLd8tXNlLIPjwVB3N23 Z1tkRpigpGAMvFUikKYXszehrrcV2y/pfXAJf9RabgLuOp3blGbU1IZ7OAF0zMTwI QjN6darDVIUiK9YDYBhic4ffhAiPB9FKrUp8/7gTGYPNkgdRRBx1jfRg5Oaa3rMpN lNaqbNWmxEnJLtb+THgJ20F5/lNQ0fEOrLCsyQle7ZNGi28jRvPmhXMjGHzaQW4iN XT/iJstNuZ4Qgzf24w== X-UI-Sender-Class: 814a7b36-bfc1-4dae-8640-3722d8ec6cd6 Received: from drachen.dragon ([92.75.138.197]) by smtp.web.de (mrweb006 [213.165.67.108]) with ESMTPSA (Nemesis) id 1M1aE3-1tRKRi3sgV-005ffC; Thu, 19 Dec 2024 17:27:33 +0100 From: Michael Heerdegen In-Reply-To: <86bjxetdbp.fsf@gnu.org> (Eli Zaretskii's message of "Sat, 14 Dec 2024 18:54:34 +0200") References: <86bjxetdbp.fsf@gnu.org> Date: Thu, 19 Dec 2024 17:28:39 +0100 Message-ID: <87a5crprgo.fsf@web.de> User-Agent: Gnus/5.13 (Gnus v5.13) MIME-Version: 1.0 Content-Type: text/plain X-Provags-ID: V03:K1:IjnfBDvzZ1PDxO0JqE2X+dtdTbY+eH/AC4Th260yO/h4izRwSis AaegY7OZeVqhQ5RA9lo2ThjsgPKrdxESQ4fkqyrKR23F+ZSi5OAcZLYatQPg3CBATmgJpuK KvaJYpqWEZ6gvsk04E0s5y5bPH85FmOuW7QjDNd4sBgYtVR/AEIhQ4hg4bIz3jDwdaEfstc mCwtNZ2u7WVRCn5unh82Q== X-Spam-Flag: NO UI-OutboundReport: notjunk:1;M01:P0:nNCWKTS/Ejw=;VWKbr75FXkUR+an7kCgskoCQ9FG URxdqD8BvSzLsAuLn7kmMg1C7P7seIoV9EF2JDqxkTTeZkHVXr/QrfFwF79xY1LfZS9W+IgBC Uq9cMB1wMfbi4XvHhX8E6mFjZwNEKT1TcTJomRmtL+wU4tAIhzbNY7SQUtJChVxiApoIYKoVK l0w/Y4dl22lJgt4nx7xh15PUhvLE7+zH2XgIyHw79vzNUEUu0drg6lERBuQZn9UyRXOUkibCN I4jCiECKFxZx4CzY4S5KJmF0Osmka0b5L2i5bYYn4/my+s8Rfx6WhGReTWfk8hYpVRfj30zXc s8Z0DIxkmfLkvxEuSE8YGMaWT+RsbMXI6dg8u+miLR4fVacsvUOlHKQa61YdNWgkuY7oRxtBG 9LANLATtVFpYRhAyjYAj9SJs8CfPnNZ9B/av6jD9ZTABDRWHTmm5zXr6jLgI/htpMacEUd+8P P1Ns+eSI5fWsLyHH65gVNvQnzlZJgXP31K8LLg4bB3Nc+mAFaeWvJZTXwb7vyOe0QPo4oi/+Y cXQk+Q4ip1uUqZqETH8O5HQ3p3mGP6jUACWiHTD8GnuGJ1YbXhhjYi4RPj0kxnb4G9Y3Lg/vL cWly8USuylEEPDFVssC0lBzYORUoD1lG1hYXdX4LbBIK+d6VQft4jfkTtXFHj0jdqJ3/9sS2+ 3UVtGyFup1Z9t/Zl/wZ6J0H51rciGnjM+EXlYW32Zk+isYSNxjoldtTqlhYLDWQ9tkEDNgPoE rUUxkfvxxD8j/VnGICLAni5cMjgavhpC5ZyG4UdSMDa2/qUmo+M+1FEltLHnxMyPlEvR/eu80 dGr3QmAofZn9jhj16D8N4oDVhfkTBXKKO9ukL4Z+Le7q5/Lc/DZOfwCjURb3KHb88YpAiV80V IkzqxN/Oil4HnpQvm4G3Kgwaz/dGQSGtW8faDs9Wmj2JCs/TTRvSoROeeFzeDV363rnOU/mPV CoS7cqZwFBti/yoP5sWK38X/mGRnk7oW6Khrt5kWCUrAJcvD/EoZ3SxBIN21OLUgCejiFK2cu B+lA/Oofs/INeHIWsIoGJh70B5MdX9efCtV1obSay8D/P3a8XCfrMoDfyNCsC3Cr/BEpUJsGx vWAYDGOEw= X-Spam-Score: -0.7 (/) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.7 (-) Eli Zaretskii writes: > I'm guessing this is a documentation bug, in that this particular > aspect of CL is not emulated by cl-labels. I dug a bit into the history. `flet's implementation indeed lost its implicit `cl-block' in de7e2b36875 Get rid of cl-lexical-let, keeping only lexical-let for compatibility. Stefan Monnier , Thu Jun 7 2012 probably by accident. OTOH it looks like `cl-labels' never created implicit blocks. As the manual describes it as especially useful for recursive local function bindings, this case is maybe also a bit different. Michael. From unknown Tue Jun 17 22:24:14 2025 X-Loop: help-debbugs@gnu.org Subject: bug#74870: cl-labels and cl-flet don't create named blocks Resent-From: Stefan Monnier Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 21 Dec 2024 15:45:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 74870 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: Jan Jouleodov Cc: Eli Zaretskii , 74870@debbugs.gnu.org Received: via spool by 74870-submit@debbugs.gnu.org id=B74870.17347958545635 (code B ref 74870); Sat, 21 Dec 2024 15:45:01 +0000 Received: (at 74870) by debbugs.gnu.org; 21 Dec 2024 15:44:14 +0000 Received: from localhost ([127.0.0.1]:47345 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tP1eI-0001Sp-8A for submit@debbugs.gnu.org; Sat, 21 Dec 2024 10:44:14 -0500 Received: from mailscanner.iro.umontreal.ca ([132.204.25.50]:26932) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tP1eG-0001Sc-Nf for 74870@debbugs.gnu.org; Sat, 21 Dec 2024 10:44:13 -0500 Received: from pmg2.iro.umontreal.ca (localhost.localdomain [127.0.0.1]) by pmg2.iro.umontreal.ca (Proxmox) with ESMTP id 054DF80837; Sat, 21 Dec 2024 10:44:07 -0500 (EST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=iro.umontreal.ca; s=mail; t=1734795846; bh=KhQTwNyIPuQYVYTxJB73altsdMey7g1xt7H/EhcX7a8=; h=From:To:Cc:Subject:In-Reply-To:References:Date:From; b=JXK5DxffLvh7m4q6mAAyh3AFhfSA6V1T5vxOmWg+4wnwVkyzs2d2YWap4dU4xRWZs XFB0kjqP+4tDf2BHAoNC0ka5bTQj21Jtd4HNlgAe13gPPGbtG9RK/WXP2zfRA2lgxA 9sKF98YYH6wgp118OXmRC9hqC5/SaZuDy0Lh6wYsGa7fH4IJgijJuEpkwnj8SXDIrr XTSn4QuGOxZhoVJRlj4SDzWDTpwIMgprV6Haj05EVdq35qlAHfsZNAmrPqta1ZARHk mux/8DbFXdJ8Xtrea0jcr4awwZCsjf8BqxAtXIkcjvXlDtUwZOhiCM36pER3zBFls+ uj7ZKcyVI7wEA== Received: from mail01.iro.umontreal.ca (unknown [172.31.2.1]) by pmg2.iro.umontreal.ca (Proxmox) with ESMTP id 05F9E80289; Sat, 21 Dec 2024 10:44:06 -0500 (EST) Received: from asado (unknown [199.119.74.1]) by mail01.iro.umontreal.ca (Postfix) with ESMTPSA id BEDC612023C; Sat, 21 Dec 2024 10:44:05 -0500 (EST) From: Stefan Monnier In-Reply-To: (Jan Jouleodov's message of "Thu, 19 Dec 2024 00:55:34 +0000") Message-ID: References: <86bjxetdbp.fsf@gnu.org> Date: Sat, 21 Dec 2024 10:44:04 -0500 User-Agent: Gnus/5.13 (Gnus v5.13) MIME-Version: 1.0 Content-Type: text/plain X-SPAM-INFO: Spam detection results: 0 ALL_TRUSTED -1 Passed through trusted hosts only via SMTP AWL 0.144 Adjusted score from AWL reputation of From: address BAYES_00 -1.9 Bayes spam probability is 0 to 1% DKIM_SIGNED 0.1 Message has a DKIM or DK signature, not necessarily valid DKIM_VALID -0.1 Message has at least one valid DKIM or DK signature DKIM_VALID_AU -0.1 Message has a valid DKIM or DK signature from author's domain DKIM_VALID_EF -0.1 Message has a valid DKIM or DK signature from envelope-from domain X-SPAM-LEVEL: X-Spam-Score: -2.3 (--) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) > Is there any reason why one would not want to *always* emulate the CL > behavior in cl-lib? I could only think of a backward compatibility > problem before CL was standardized, but I am not familiar with the time > frame of cl-lib to know if that's really the case. Could you try the patch below? Stefan diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 65bc2cb9173..73741417383 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -2096,15 +2096,22 @@ cl-flet cl-declarations body))) (let ((binds ()) (newenv macroexpand-all-environment)) (dolist (binding bindings) - (let ((var (make-symbol (format "--cl-%s--" (car binding)))) - (args-and-body (cdr binding))) - (if (and (= (length args-and-body) 1) - (macroexp-copyable-p (car args-and-body))) + (let* ((var (make-symbol (format "--cl-%s--" (car binding)))) + (args-and-body (cdr binding)) + (args (car args-and-body)) + (body (cdr args-and-body))) + (if (and (null body) + (macroexp-copyable-p args)) ;; Optimize (cl-flet ((fun var)) body). - (setq var (car args-and-body)) - (push (list var (if (= (length args-and-body) 1) - (car args-and-body) - `(cl-function (lambda . ,args-and-body)))) + (setq var args) + (push (list var (if (null body) + args + (let ((parsed-body (macroexp-parse-body body))) + `(cl-function + (lambda ,args + ,@(car parsed-body) + (cl-block ,(car binding) + ,@(cdr parsed-body))))))) binds)) (push (cons (car binding) (lambda (&rest args) @@ -2300,7 +2307,13 @@ cl-labels var (macroexpand-all (if (null sbody) sargs ;A (FUNC EXP) definition. - `(cl-function (lambda ,sargs . ,sbody))) + (let ((parsed-body + (macroexp-parse-body sbody))) + `(cl-function + (lambda ,sargs + ,@(car parsed-body) + (cl-block ,var + ,@(cdr parsed-body)))))) newenv))))) (nreverse binds)) . ,(macroexp-unprogn From unknown Tue Jun 17 22:24:14 2025 X-Loop: help-debbugs@gnu.org Subject: bug#74870: cl-labels and cl-flet don't create named blocks Resent-From: Stefan Monnier Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 21 Dec 2024 16:16:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 74870 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: Jan Jouleodov Cc: Eli Zaretskii , 74870@debbugs.gnu.org Received: via spool by 74870-submit@debbugs.gnu.org id=B74870.173479770811442 (code B ref 74870); Sat, 21 Dec 2024 16:16:02 +0000 Received: (at 74870) by debbugs.gnu.org; 21 Dec 2024 16:15:08 +0000 Received: from localhost ([127.0.0.1]:47401 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tP28B-0002yU-Ii for submit@debbugs.gnu.org; Sat, 21 Dec 2024 11:15:08 -0500 Received: from mailscanner.iro.umontreal.ca ([132.204.25.50]:22195) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tP289-0002xb-GU for 74870@debbugs.gnu.org; Sat, 21 Dec 2024 11:15:06 -0500 Received: from pmg2.iro.umontreal.ca (localhost.localdomain [127.0.0.1]) by pmg2.iro.umontreal.ca (Proxmox) with ESMTP id 4699E804BC; Sat, 21 Dec 2024 11:14:58 -0500 (EST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=iro.umontreal.ca; s=mail; t=1734797697; bh=ZTau2/n6QItaExOdR5i1v03J6XOnZPvJw1EY3dttkVI=; h=From:To:Cc:Subject:In-Reply-To:References:Date:From; b=PFd4XYz/qVbRDgprEisgYhn35J/yMovPiDA72/3ao3zlcuKCz9Jq1g7pJSx3vFRBY KfAx5+Y9PDxvc8CdwhFA3DwThdMlmbQxJcezZUsunAlSMHvEJCETey0FcIsx98+AJP 8cvSh1ORLD/G51Ob8ghRhBdm5F2KJ9uCd4qsgS/O0CYtnZzArTKZH7+28dP04TEi0f 6tGpr2fchmPOMw8rZNov9OFmP1TczN1SosU7Jlb/YOmAp4cnk/XHSHO0ZC5D0rdVrl 59yPcQ+bo80ShGNPpkK9V8oBntDCfoYPfBpQ4MoDR4WLdpJgNVvRZayeOBYEF58wBB QQtxAxHAMbmxQ== Received: from mail01.iro.umontreal.ca (unknown [172.31.2.1]) by pmg2.iro.umontreal.ca (Proxmox) with ESMTP id 2319C80758; Sat, 21 Dec 2024 11:14:57 -0500 (EST) Received: from asado (unknown [199.119.74.1]) by mail01.iro.umontreal.ca (Postfix) with ESMTPSA id DA2C21200F0; Sat, 21 Dec 2024 11:14:56 -0500 (EST) From: Stefan Monnier In-Reply-To: (Stefan Monnier's message of "Sat, 21 Dec 2024 10:44:04 -0500") Message-ID: References: <86bjxetdbp.fsf@gnu.org> Date: Sat, 21 Dec 2024 11:14:54 -0500 User-Agent: Gnus/5.13 (Gnus v5.13) MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-SPAM-INFO: Spam detection results: 0 ALL_TRUSTED -1 Passed through trusted hosts only via SMTP AWL 0.130 Adjusted score from AWL reputation of From: address BAYES_00 -1.9 Bayes spam probability is 0 to 1% DKIM_SIGNED 0.1 Message has a DKIM or DK signature, not necessarily valid DKIM_VALID -0.1 Message has at least one valid DKIM or DK signature DKIM_VALID_AU -0.1 Message has a valid DKIM or DK signature from author's domain DKIM_VALID_EF -0.1 Message has a valid DKIM or DK signature from envelope-from domain X-SPAM-LEVEL: X-Spam-Score: -2.3 (--) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) --=-=-= Content-Type: text/plain >> Is there any reason why one would not want to *always* emulate the CL >> behavior in cl-lib? I could only think of a backward compatibility >> problem before CL was standardized, but I am not familiar with the time >> frame of cl-lib to know if that's really the case. > Could you try the patch below? Never mind, it here's a better one I just pushed to `master`. Stefan --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=cl-labels.patch commit 476426168106dbcee67d8ea667e11ebe80c7aaed Author: Stefan Monnier Date: Sat Dec 21 11:13:07 2024 -0500 (cl-flet, cl-labels): Fix bug#74870 * lisp/emacs-lisp/cl-macs.el (cl-flet, cl-labels): Wrap function bodies in `cl-block`. * test/lisp/emacs-lisp/cl-macs-tests.el (cl-macs--test-flet-block): New test. diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 65bc2cb9173..b1c42a23acd 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -2071,7 +2071,8 @@ cl-flet FUNC is the function name, and EXP is an expression that returns the function value to which it should be bound, or it can take the more common form (FUNC ARGLIST BODY...) which is a shorthand -for (FUNC (lambda ARGLIST BODY)). +for (FUNC (lambda ARGLIST BODY)) where BODY is wrapped in +a `cl-block' named FUNC. FUNC is defined only within FORM, not BODY, so you can't write recursive function definitions. Use `cl-labels' for that. See @@ -2096,15 +2097,22 @@ cl-flet cl-declarations body))) (let ((binds ()) (newenv macroexpand-all-environment)) (dolist (binding bindings) - (let ((var (make-symbol (format "--cl-%s--" (car binding)))) - (args-and-body (cdr binding))) - (if (and (= (length args-and-body) 1) - (macroexp-copyable-p (car args-and-body))) + (let* ((var (make-symbol (format "--cl-%s--" (car binding)))) + (args-and-body (cdr binding)) + (args (car args-and-body)) + (body (cdr args-and-body))) + (if (and (null body) + (macroexp-copyable-p args)) ;; Optimize (cl-flet ((fun var)) body). - (setq var (car args-and-body)) - (push (list var (if (= (length args-and-body) 1) - (car args-and-body) - `(cl-function (lambda . ,args-and-body)))) + (setq var args) + (push (list var (if (null body) + args + (let ((parsed-body (macroexp-parse-body body))) + `(cl-function + (lambda ,args + ,@(car parsed-body) + (cl-block ,(car binding) + ,@(cdr parsed-body))))))) binds)) (push (cons (car binding) (lambda (&rest args) @@ -2271,10 +2279,11 @@ cl-labels where EXP is a form that should return the function to bind to the function name FUNC, or (FUNC ARGLIST BODY...) where FUNC is the function name, ARGLIST its arguments, and BODY the -forms of the function body. FUNC is in scope in any BODY or EXP, as well -as FORM, so you can write recursive and mutually recursive -function definitions, with the caveat that EXPs are evaluated in sequence -and you cannot call a FUNC before its EXP has been evaluated. +forms of the function body. BODY is wrapped in a `cl-block' named FUNC. +FUNC is in scope in any BODY or EXP, as well as in FORM, so you can write +recursive and mutually recursive function definitions, with the caveat +that EXPs are evaluated in sequence and you cannot call a FUNC before its +EXP has been evaluated. See info node `(cl) Function Bindings' for details. \(fn ((FUNC ARGLIST BODY...) ...) FORM...)" @@ -2282,7 +2291,7 @@ cl-labels (let ((binds ()) (newenv macroexpand-all-environment)) (dolist (binding bindings) (let ((var (make-symbol (format "--cl-%s--" (car binding))))) - (push (cons var (cdr binding)) binds) + (push (cons var binding) binds) (push (cons (car binding) (lambda (&rest args) (if (eq (car args) cl--labels-magic) @@ -2295,12 +2304,18 @@ cl-labels ;; Perform self-tail call elimination. `(letrec ,(mapcar (lambda (bind) - (pcase-let* ((`(,var ,sargs . ,sbody) bind)) + (pcase-let* ((`(,var ,fun ,sargs . ,sbody) bind)) `(,var ,(cl--self-tco-on-form var (macroexpand-all (if (null sbody) sargs ;A (FUNC EXP) definition. - `(cl-function (lambda ,sargs . ,sbody))) + (let ((parsed-body + (macroexp-parse-body sbody))) + `(cl-function + (lambda ,sargs + ,@(car parsed-body) + (cl-block ,fun + ,@(cdr parsed-body)))))) newenv))))) (nreverse binds)) . ,(macroexp-unprogn diff --git a/test/lisp/emacs-lisp/cl-macs-tests.el b/test/lisp/emacs-lisp/cl-macs-tests.el index 4baf5428101..e1a521dca79 100644 --- a/test/lisp/emacs-lisp/cl-macs-tests.el +++ b/test/lisp/emacs-lisp/cl-macs-tests.el @@ -718,6 +718,16 @@ cl-macs--labels (f lex-var))))) (should (equal (f nil) 'a))))) +(ert-deftest cl-macs--test-flet-block () + (should (equal (cl-block f1 + (cl-flet ((f1 (a) (cons (cl-return-from f1 a) 6))) + (cons (f1 5) 6))) + '(5 . 6))) + (should (equal (cl-block f1 + (cl-labels ((f1 (a) (cons (cl-return-from f1 a) 6))) + (cons (f1 7) 8))) + '(7 . 8)))) + (ert-deftest cl-flet/edebug () "Check that we can instrument `cl-flet' forms (bug#65344)." (with-temp-buffer --=-=-=-- From unknown Tue Jun 17 22:24:14 2025 X-Loop: help-debbugs@gnu.org Subject: bug#74870: cl-labels and cl-flet don't create named blocks Resent-From: Jan Jouleodov Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 21 Dec 2024 16:25:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 74870 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: Stefan Monnier Cc: Eli Zaretskii , 74870@debbugs.gnu.org Received: via spool by 74870-submit@debbugs.gnu.org id=B74870.173479828913233 (code B ref 74870); Sat, 21 Dec 2024 16:25:02 +0000 Received: (at 74870) by debbugs.gnu.org; 21 Dec 2024 16:24:49 +0000 Received: from localhost ([127.0.0.1]:47430 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tP2HY-0003RI-Mg for submit@debbugs.gnu.org; Sat, 21 Dec 2024 11:24:49 -0500 Received: from mail-43166.protonmail.ch ([185.70.43.166]:18239) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tP2HV-0003Qs-4X for 74870@debbugs.gnu.org; Sat, 21 Dec 2024 11:24:45 -0500 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=protonmail.com; s=protonmail3; t=1734798279; x=1735057479; bh=EkHAGrpySPmJ+Hsn3iGrt05Dq4/rthVGoQ/q4/r7+iw=; h=Date:To:From:Cc:Subject:Message-ID:In-Reply-To:References: Feedback-ID:From:To:Cc:Date:Subject:Reply-To:Feedback-ID: Message-ID:BIMI-Selector:List-Unsubscribe:List-Unsubscribe-Post; b=igXUwFc9WBICihGvpcgpktowaFRxa5TVc5mjJSn7Lew1TRuMLV0dFBbrgXmBjapOh 9nmQDepVfdmQ5U9vzsk6K+cmrXy1R8oh2EErX1fEO+3yjhXlm89XroC2Xc1rsb0Rol c/SkJ/Yb8gqxyHBhebhyQlBCJwsVYe3F0VByHCDY5wvz8lFTZu9Ov/AZK31BX6tByd 5cx+L813XizFG7E7nCVKe4fB9oBrIS7O8UjheWmBDrRrLucPLibI6sWbXzqA6DzshG dghCbxzZreiZzT0ZuQ335A3vFysf0o9U0eXJs9b3DbOoNIO8mMFUYAE1nrGi7FPJF+ 7RhPbZ4TPWfWg== Date: Sat, 21 Dec 2024 16:24:34 +0000 From: Jan Jouleodov Message-ID: In-Reply-To: References: <86bjxetdbp.fsf@gnu.org> Feedback-ID: 107046897:user:proton X-Pm-Message-ID: 8ba78b79472a0c60a7690a41a53908da171c2a5e MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Spam-Score: 0.0 (/) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) > Never mind, it here's a better one I just pushed to `master`. >=20 >=20 > Stefan Cheers! From unknown Tue Jun 17 22:24:14 2025 MIME-Version: 1.0 X-Mailer: MIME-tools 5.505 (Entity 5.505) X-Loop: help-debbugs@gnu.org From: help-debbugs@gnu.org (GNU bug Tracking System) To: Jan Jouleodov Subject: bug#74870: closed (Re: bug#74870: cl-labels and cl-flet don't create named blocks) Message-ID: References: X-Gnu-PR-Message: they-closed 74870 X-Gnu-PR-Package: emacs Reply-To: 74870@debbugs.gnu.org Date: Thu, 02 Jan 2025 01:33:02 +0000 Content-Type: multipart/mixed; boundary="----------=_1735781582-3428-1" This is a multi-part message in MIME format... ------------=_1735781582-3428-1 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset="utf-8" Your bug report #74870: cl-labels and cl-flet don't create named blocks which was filed against the emacs package, has been closed. The explanation is attached below, along with your original report. If you require more details, please reply to 74870@debbugs.gnu.org. --=20 74870: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D74870 GNU Bug Tracking System Contact help-debbugs@gnu.org with problems ------------=_1735781582-3428-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at 74870-done) by debbugs.gnu.org; 2 Jan 2025 01:32:55 +0000 Received: from localhost ([127.0.0.1]:41213 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tTA51-0000sp-9a for submit@debbugs.gnu.org; Wed, 01 Jan 2025 20:32:55 -0500 Received: from mail-ed1-x52e.google.com ([2a00:1450:4864:20::52e]:51664) by debbugs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.84_2) (envelope-from ) id 1tTA4z-0000sQ-9P for 74870-done@debbugs.gnu.org; Wed, 01 Jan 2025 20:32:54 -0500 Received: by mail-ed1-x52e.google.com with SMTP id 4fb4d7f45d1cf-5d84179ef26so15660713a12.3 for <74870-done@debbugs.gnu.org>; Wed, 01 Jan 2025 17:32:53 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20230601; t=1735781567; x=1736386367; darn=debbugs.gnu.org; h=cc:to:subject:message-id:date:mime-version:references:in-reply-to :from:from:to:cc:subject:date:message-id:reply-to; bh=j7c4zQPn60VF1qpKf+ddzRtzKDBeh0P/Q9ru99zAtkc=; b=FfEyyQmx3PPN/1GzHjVjGq2gmmfS0kd9VdFAEdpUhRTa+3RXjMa/VyurJ6UgdO+LsL wSPyw14E/c1wETNnFfnmWXQujWVL8pO/XJKdLUfx96C5rMCQ1IfRMe6efuXGo+H63g9k 7YUuf6OgqEonVZYjotEUIvagsnZSiUmYyGjqXdxN4XggNFgGRXcaNbSSZN9y0c+e8g7H 5nOjmEtqIWSSxMb3R9CX6GkFbTFmjG+aIhINhZ+2m/kuSO30xHiQag0gSG/uAjmu7WBr JKco1saBd0rXBOQEKliJfDz0fQCt85SKtSpzlsE1cCiiBTVQHGu+rAN6XiazcjinOFtw KHVA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1735781567; x=1736386367; h=cc:to:subject:message-id:date:mime-version:references:in-reply-to :from:x-gm-message-state:from:to:cc:subject:date:message-id:reply-to; bh=j7c4zQPn60VF1qpKf+ddzRtzKDBeh0P/Q9ru99zAtkc=; b=NZ6j73Zq2FrRkSGvbi3SDv2TUg5/aTARKcuoCk1523rnjP4kEGynDL/kQaB6TiT9Hl l3O19vu0oL6T9+kgHTopqdZs3nYKYY54jBWasBwFfQkbQUg8hzrk8uWP0waxl/FcokUP /ePmMC3aEBD32Id0nci69edzAe8nM+a8lEzDKjWIp1/nBuwYvf5ABIOUuefmILzoxn/A 1CtaeF5DPHvXggsnXN0NpsMHDuje/ezOkQKUQIdntO98NnPZhrzrC4QvZajRrGJO3DPL 4kBUKSuh4LreN+H2+5/Q4zt197gQztkVc3Ck8YTXX9buzaCSyXKEnr/n0IM+IYjXY0Iv YCrA== X-Forwarded-Encrypted: i=1; AJvYcCXZQTdeMs4n+C+vC9v7tQJNywR+0Bpci9ZkRiU5wF3bfvbwgypgIAqfCXJ6uksQle93lzuftG1bwF/T@debbugs.gnu.org X-Gm-Message-State: AOJu0Yxtf515DWykAhcpTYTrMHtJ2c1MgQcPtzCIOYwY8E/09+aPMCnu Llk//wUqJtpZ8qtW86mDxnzjhhq8TZ4s38S5pgazq0vZNp5ZYhOQiSt3qfns9nNV+DQuGxz/tGX 4/r2P/CltxdlQwOvSdZmMH0VtUujVX0o8 X-Gm-Gg: ASbGncs1X6FqzVZ/HXD5ve/FXZNP0kGRa3YjBwGEL48GcYiRXuYG6BKKFbg5Nb8xDC9 wM5ntq9v0TppnkDdIJcXOIdHj1TsYEmcJPsKSmtN7 X-Google-Smtp-Source: AGHT+IFcD9Qgu6kYqJtnFkvA20Yxmu0UpI2q1YxmUskolJ4WXuNG6QCE2cpQD29jaFBUBx9B58GxqozHPLhCmNU6rMw= X-Received: by 2002:a05:6402:1586:b0:5d0:abb8:79d with SMTP id 4fb4d7f45d1cf-5d81ddacf0dmr39253769a12.14.1735781567133; Wed, 01 Jan 2025 17:32:47 -0800 (PST) Received: from 753933720722 named unknown by gmailapi.google.com with HTTPREST; Wed, 1 Jan 2025 19:32:46 -0600 From: Stefan Kangas In-Reply-To: (Stefan Monnier's message of "Sat, 21 Dec 2024 11:14:54 -0500") References: <86bjxetdbp.fsf@gnu.org> MIME-Version: 1.0 Date: Wed, 1 Jan 2025 19:32:46 -0600 Message-ID: Subject: Re: bug#74870: cl-labels and cl-flet don't create named blocks To: Stefan Monnier Content-Type: text/plain; charset="UTF-8" X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: 74870-done Cc: Eli Zaretskii , 74870-done@debbugs.gnu.org, Jan Jouleodov X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) Stefan Monnier writes: >>> Is there any reason why one would not want to *always* emulate the CL >>> behavior in cl-lib? I could only think of a backward compatibility >>> problem before CL was standardized, but I am not familiar with the time >>> frame of cl-lib to know if that's really the case. >> Could you try the patch below? > > Never mind, it here's a better one I just pushed to `master`. I'm therefore closing this bug report. ------------=_1735781582-3428-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at submit) by debbugs.gnu.org; 14 Dec 2024 16:27:45 +0000 Received: from localhost ([127.0.0.1]:48122 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tMUzY-0002GN-0e for submit@debbugs.gnu.org; Sat, 14 Dec 2024 11:27:45 -0500 Received: from lists.gnu.org ([209.51.188.17]:60780) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tMF7Z-00037f-OB for submit@debbugs.gnu.org; Fri, 13 Dec 2024 18:30:58 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1tMF7X-0001r6-9E for bug-gnu-emacs@gnu.org; Fri, 13 Dec 2024 18:30:57 -0500 Received: from mail-0301.mail-europe.com ([188.165.51.139]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1tMF7T-0002wb-M5 for bug-gnu-emacs@gnu.org; Fri, 13 Dec 2024 18:30:55 -0500 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=protonmail.com; s=protonmail3; t=1734132644; x=1734391844; bh=KsxmqtBzSyp9FcvpK0KA1LfjSJwog2UzgUr95XP+TAQ=; h=Date:To:From:Subject:Message-ID:Feedback-ID:From:To:Cc:Date: Subject:Reply-To:Feedback-ID:Message-ID:BIMI-Selector: List-Unsubscribe:List-Unsubscribe-Post; b=TljXXarjgE9qQs4xKYxOy7y3QiCyz5/uLgJY/39BjgonwA1NmnCfJMMU4PredxKTw U3DeyRcBnrVpVKwXzCtYbuYJjwILfkom36sONtg8IAKOu3snMmr1AdEg1QHk3yz6v8 JQVjTiaMow9giwy9am/zML68+XWac8v1rUZWzkEaVHioLLf5PlufeuHrF5197xnKy1 15pw3bx8iYxgIYJ55kpDbqJgDdv/tUrgODIX0oGzX/Ek9SeXHWWZFawOGZfthCB6Au 8uJYaOECM+FJCKbqNPUIkUvJkhtNZwEy7hh59DudOonk83a+wER59wyT27M9kLioHX taRVH3GDqD1yg== Date: Fri, 13 Dec 2024 23:30:41 +0000 To: "bug-gnu-emacs@gnu.org" From: Jan Jouleodov Subject: cl-labels and cl-flet don't create named blocks Message-ID: Feedback-ID: 107046897:user:proton X-Pm-Message-ID: 7ea59d4c4831d0fa20ae2ff901fe9b04820d67c5 MIME-Version: 1.0 Content-Type: multipart/alternative; boundary="b1=_ksPGdEye69bxgCVHQ7rmXzaf07UZ8xg3ovZxBOztEMk" Received-SPF: pass client-ip=188.165.51.139; envelope-from=jouleodov@protonmail.com; helo=mail-0301.mail-europe.com X-Spam_score_int: -27 X-Spam_score: -2.8 X-Spam_bar: -- X-Spam_report: (-2.8 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, HTML_MESSAGE=0.001, RCVD_IN_DNSWL_LOW=-0.7, RCVD_IN_VALIDITY_CERTIFIED_BLOCKED=0.001, RCVD_IN_VALIDITY_RPBL_BLOCKED=0.001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-Spam-Score: -1.3 (-) X-Debbugs-Envelope-To: submit X-Mailman-Approved-At: Sat, 14 Dec 2024 11:27:42 -0500 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -2.3 (--) --b1=_ksPGdEye69bxgCVHQ7rmXzaf07UZ8xg3ovZxBOztEMk Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: base64 SW4gQU5TSSBDTCwgdGhlc2Ugc2hvdWxkIGNyZWF0ZSBhIG5hbWVkIENMOkJMT0NLLCBhbGxvd2lu ZyBvbmUgdG8gZG8gYSBsb2NhbCByZXR1cm4gdmlhIENMOlJFVFVSTi1GUk9NLiBJbiBFbWFjcywg dGhpcyBpcyBub3QgdGhlIGNhc2UsIHJlc3VsdGluZyBpbiBhbiB1bmNhdWdodCBleGNlcHRpb24u --b1=_ksPGdEye69bxgCVHQ7rmXzaf07UZ8xg3ovZxBOztEMk Content-Type: text/html; charset=utf-8 Content-Transfer-Encoding: base64 PGRpdiBzdHlsZT0iZm9udC1mYW1pbHk6IEFyaWFsLCBzYW5zLXNlcmlmOyBmb250LXNpemU6IDE0 cHg7IGNvbG9yOiByZ2IoMCwgMCwgMCk7IGJhY2tncm91bmQtY29sb3I6IHJnYigyNTUsIDI1NSwg MjU1KTsiPkluIEFOU0kgQ0wsIHRoZXNlIHNob3VsZCBjcmVhdGUgYSBuYW1lZCBDTDpCTE9DSywg YWxsb3dpbmcgb25lIHRvIGRvIGEgbG9jYWwgcmV0dXJuIHZpYSBDTDpSRVRVUk4tRlJPTS4gSW4g RW1hY3MsIHRoaXMgaXMgbm90IHRoZSBjYXNlLCByZXN1bHRpbmcgaW4gYW4gdW5jYXVnaHQgZXhj ZXB0aW9uLjxicj48L2Rpdj4= --b1=_ksPGdEye69bxgCVHQ7rmXzaf07UZ8xg3ovZxBOztEMk-- ------------=_1735781582-3428-1--