From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED.blaine.gmane.org!not-for-mail From: Michael Heerdegen Newsgroups: gmane.emacs.bugs Subject: bug#34481: 27.0.50; cl-flet, cl-labels and lambda expressions Date: Tue, 19 Feb 2019 01:22:25 +0100 Message-ID: <87ftskeif2.fsf@web.de> References: <87r2c9iz02.fsf@web.de> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Injection-Info: blaine.gmane.org; posting-host="blaine.gmane.org:195.159.176.226"; logging-data="99588"; mail-complaints-to="usenet@blaine.gmane.org" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux) To: 34481@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Feb 19 01:23:10 2019 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([209.51.188.17]) by blaine.gmane.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:256) (Exim 4.89) (envelope-from ) id 1gvtBl-000Pmp-Uy for geb-bug-gnu-emacs@m.gmane.org; Tue, 19 Feb 2019 01:23:10 +0100 Original-Received: from localhost ([127.0.0.1]:38825 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gvtBk-0006A9-UY for geb-bug-gnu-emacs@m.gmane.org; Mon, 18 Feb 2019 19:23:08 -0500 Original-Received: from eggs.gnu.org ([209.51.188.92]:54126) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gvtBe-00069t-Px for bug-gnu-emacs@gnu.org; Mon, 18 Feb 2019 19:23:03 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gvtBe-0006n5-2G for bug-gnu-emacs@gnu.org; Mon, 18 Feb 2019 19:23:02 -0500 Original-Received: from debbugs.gnu.org ([209.51.188.43]:54178) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1gvtBd-0006mo-Oq for bug-gnu-emacs@gnu.org; Mon, 18 Feb 2019 19:23:01 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1gvtBd-0006sG-Je for bug-gnu-emacs@gnu.org; Mon, 18 Feb 2019 19:23:01 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Michael Heerdegen Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 19 Feb 2019 00:23:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 34481 X-GNU-PR-Package: emacs Original-Received: via spool by 34481-submit@debbugs.gnu.org id=B34481.155053575526362 (code B ref 34481); Tue, 19 Feb 2019 00:23:01 +0000 Original-Received: (at 34481) by debbugs.gnu.org; 19 Feb 2019 00:22:35 +0000 Original-Received: from localhost ([127.0.0.1]:53459 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gvtBC-0006r8-Nu for submit@debbugs.gnu.org; Mon, 18 Feb 2019 19:22:34 -0500 Original-Received: from mout.web.de ([212.227.15.3]:52689) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gvtBA-0006qq-VJ for 34481@debbugs.gnu.org; Mon, 18 Feb 2019 19:22:33 -0500 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=web.de; s=dbaedf251592; t=1550535746; bh=Ew8aM9TDE9vqjpgcLgzDW1qj+HJM3oVQNF4roQ0Jvb4=; h=X-UI-Sender-Class:From:To:Subject:References:Date:In-Reply-To; b=Kx+9l5CFzLEiDgKXDZGeJtPcrE1BZjTFn41Ea4e03KmOtgxLQenjVv1h3Z5nR3v0P G1rsgNfCJJaJ7pWoCsYulwQjbCqHby0jzwZoVv7KW7dgzw6EUIq8EUXPlLyuHlACWO R/mLFV8LPesk6tlTpBq9lR+fhb4kl+JfDLxwR+7c= X-UI-Sender-Class: c548c8c5-30a9-4db5-a2e7-cb6cb037b8f9 Original-Received: from drachen.dragon ([88.67.111.211]) by smtp.web.de (mrweb002 [213.165.67.108]) with ESMTPSA (Nemesis) id 0MDgTO-1gpseC1vUU-00HBGC; Tue, 19 Feb 2019 01:22:26 +0100 In-Reply-To: <87r2c9iz02.fsf@web.de> (Michael Heerdegen's message of "Fri, 15 Feb 2019 03:09:17 +0100") X-Provags-ID: V03:K1:f+Y3QDgMN6h7jh1AmZnIDvgjNj5KalOMUrTdAAN4KfxjOBCQZ0U KTuYHXjFbF+8CQz8bdSZdizMlheRmNFyPAMYxlkszTZzmZmVShlVzuzHGYMVAaNLqfD2XM7 b4WzmhRbH+zT601QV26LaCx/2jQcxXQFKjgETEHnd9lBLrrNvPRTz5esnMp42ZVOxEfS+8V 8Q1kzDw+9i7JBCs8O+v9w== X-UI-Out-Filterresults: notjunk:1;V03:K0:/Ht/zeS/i9g=:KTF/b9OCdrhy99A3DXx61W nmGyT/38Ih80cdN04olxCCztSF9kAKivSIIhvzArQ2eB+Ay+epCV6KsAnh1ndN7Ti0/2tzJnq EV8FjaKk6gWeYdmsWYJEWhlfjKEWFD2rNepdpTz5d3oQYovrf36vpFBguH7lG0lI2c2RPX6/e Jvj1xq3lxkCe2CVx0TjoV8JPNqXlgv3z621/f3FsrPrn0uNvu0Mg860yg4YEcQxRtVFb0a8ed X0IIgEwERUdJSlh+Ms38BrX3RrjSBGU4/784/zMm7tbq9v7BGQ/gbERVY34Y6DU3sXApUeiet HY6rcWUEQRpchVNB+87GVvOh1cT3zPK2keDSuej9gXtAPKsz587YstXGdZ7xlJHmCXXsa1ZkM 33KMRP3dnqXZjfYDUzwiy038/0cmJ1iB9T1+ahVDf9+IPwVAwHTt6yZjnLIdNdfR9i70sSiOd 8+/g4yMRV9u7My+dcK8vDiImTXKVyjPkeR9Sao1kgmhr8Gj+w3j5tNQDe3w+umGNULEGv3wBW M8F7hWhlYJ1SJTAsSmhKyjZbHo9kX3Zx4oWtYyuJJhbLvFMa9yJP48JV3BE7ab/pnHcKkY1b0 dbo1E3akRhKJYV/Ohr3pIxJZ4zDYdwn4MbVKTAyLoWKltYEMqtaSEbRGc4rr2HS5KsT1yyTeD M2oF2bDQZ9m663gPKZdJfSdSh3tpqrQ/aWJM4nZacRPLO8ZNg14/F+Co3+fyp0bYCheFAXfD/ Nk26J3Fx9kz1eEDUodeDD86nWDPfYl3Nk6AWd3x+/Qllb2KvvSJ4/JFQ2idow3qF892Oj5nk X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 209.51.188.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.org gmane.emacs.bugs:155528 Archived-At: --=-=-= Content-Type: text/plain Michael Heerdegen writes: > Hi, > > two related little issues: > > 1. `cl-flet's edebug spec only works with one allowed syntax, when all > bindings look like (FUNC ARGLIST BODY...). The second possible syntax > (FUNC EXP) makes edebug barf, no edebugging possible :-( Who knows if this is correct? --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=0001-Extend-debug-spec-of-cl-flet.patch Content-Transfer-Encoding: quoted-printable =46rom 3859414d19bc9de1593af7276decafe9b34ee628 Mon Sep 17 00:00:00 2001 From: Michael Heerdegen Date: Tue, 19 Feb 2019 01:12:07 +0100 Subject: [PATCH] Extend debug spec of cl-flet * lisp/emacs-lisp/cl-macs.el (cl-flet): Extend debug spec to cover definitions of the form (FUNC EXP). =2D-- lisp/emacs-lisp/cl-macs.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 5faa055f99..9f79b1a7cf 100644 =2D-- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -2044,7 +2044,9 @@ cl-flet info node `(cl) Function Bindings' for details. \(fn ((FUNC ARGLIST BODY...) ...) FORM...)" - (declare (indent 1) (debug ((&rest (cl-defun)) cl-declarations body))) + (declare (indent 1) + (debug ((&rest [&or (&define name form) (cl-defun)]) + cl-declarations body))) (let ((binds ()) (newenv macroexpand-all-environment)) (dolist (binding bindings) (let ((var (make-symbol (format "--cl-%s--" (car binding)))) =2D- 2.20.1 --=-=-= Content-Type: text/plain I wasn't sure if I need to use "def-form" instead of "form" (I guess not) or if some "nil" or "gate" magic is needed in addition. And to which branch should I install it if it happens to be correct? Thanks, Michael. --=-=-=--