From unknown Wed Jun 18 00:28:25 2025 X-Loop: help-debbugs@gnu.org Subject: bug#40432: 27.0.90; Edebug not possible if a cl-flet has an &optional argument Resent-From: Philipp Stephani Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 04 Apr 2020 16:24:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 40432 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: 40432@debbugs.gnu.org X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.158601743929881 (code B ref -1); Sat, 04 Apr 2020 16:24:01 +0000 Received: (at submit) by debbugs.gnu.org; 4 Apr 2020 16:23:59 +0000 Received: from localhost ([127.0.0.1]:44637 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jKlaQ-0007lp-EW for submit@debbugs.gnu.org; Sat, 04 Apr 2020 12:23:59 -0400 Received: from lists.gnu.org ([209.51.188.17]:42868) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jKlaP-0007lg-0e for submit@debbugs.gnu.org; Sat, 04 Apr 2020 12:23:57 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:54589) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jKlaM-0005Ud-5s for bug-gnu-emacs@gnu.org; Sat, 04 Apr 2020 12:23:56 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: * X-Spam-Status: No, score=1.1 required=5.0 tests=BAYES_50, FREEMAIL_ENVFROM_END_DIGIT,FREEMAIL_FROM,URIBL_BLOCKED autolearn=disabled version=3.3.2 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1jKlaJ-0004Zq-NX for bug-gnu-emacs@gnu.org; Sat, 04 Apr 2020 12:23:54 -0400 Received: from mail-wm1-x329.google.com ([2a00:1450:4864:20::329]:34028) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1jKlaJ-0004ZM-Cn for bug-gnu-emacs@gnu.org; Sat, 04 Apr 2020 12:23:51 -0400 Received: by mail-wm1-x329.google.com with SMTP id c195so4463666wme.1 for ; Sat, 04 Apr 2020 09:23:51 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:to:subject:date:message-id:mime-version :content-transfer-encoding; bh=Etgg/RQ1VSlRsF2iI/3damWFXZzMMbZd+bNS40dNOek=; b=FEHIxDBUxHBXH18RiYts4oo6FJGzBx8u7sgyhpNRAsbqyM0FRbPNDWngl0Oq+Em/bP abUKKZ/xxtwj7od6lIAlzH9+9dnTkkSgmfcbCFEegC6k1ujEV0BRP2qySubP3GXa8ZR+ uZg9CXLhfNTflaav+wsLTUkC4pLVpl+uc/o+rKNYkoXFJ1AoHdu3fgceg3Oqrcskaen0 z5HOvCIQoFxMmjWDjfzp02Z97fFdNuRuaKA88mCF5ziYwT3uHnEhrLW0WXUHcaHzAFLO 2+5vwWiKergOITm05LiYe/XxDNOPaUPbAVmNvLj9VdlKmi9Te9v22xx7DveyeUlXfpSR 7pyg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:subject:date:message-id:mime-version :content-transfer-encoding; bh=Etgg/RQ1VSlRsF2iI/3damWFXZzMMbZd+bNS40dNOek=; b=j8RFqrXUmx/gkzJkWyloeZY0YUoUReKnOZcvRQsviAtjdqupgUCAtACb6AGUvGYWYY 7Y5+I82l8fSZV/K7qMt3TlpO2BQJjHRQFq9pBZtwCJ0TylQoA/b8F9QQd4rlOdl/YBOB NtkueJbVrWoFBYsA5pXgiS3fl3oX6cOmKD4k3QUCRW3Zuk2CzwyUyMc/YeNTb98QICEj TlhvD43R+etTF9R8Bn9J64qBPGEhVXChLu1Ggws7ZE8w3Vby8iRcDrWM1sVwZAvFAzAk LDSvm0twwsAqjK0Ym34k1XWzsqVkMX4MI0cZVLrNVZkiQUxR/dmgk7maZoTIDPXNwKCO kAvQ== X-Gm-Message-State: AGi0PuaTORActyTJHDKMoOHxS/RUVojYBn6M66fWrrj1YQixaTvUc0jU JVptjGjNq7P1hmlVeG0CaJvyF3jx X-Google-Smtp-Source: APiQypLHnAlkWn9fmgOSjq19/okvc9Eaw86WGDGVBAsoFapO5wYrT7b+ZPFA3Xgfi5wXGowK3X88QQ== X-Received: by 2002:a1c:6842:: with SMTP id d63mr12918840wmc.181.1586017428691; Sat, 04 Apr 2020 09:23:48 -0700 (PDT) Received: from phst1 ([2a02:2455:2a2:100:c351:ffcc:5d8e:4288]) by smtp.gmail.com with ESMTPSA id j124sm16086753wmb.25.2020.04.04.09.23.47 for (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Sat, 04 Apr 2020 09:23:48 -0700 (PDT) From: Philipp Stephani Date: Sat, 04 Apr 2020 18:23:47 +0200 Message-ID: MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 2a00:1450:4864:20::329 X-Spam-Score: 2.5 (++) X-Spam-Report: Spam detection software, running on the system "debbugs.gnu.org", has NOT identified this incoming email as spam. The original message has been attached to this so you can view it or label similar future email. If you have any questions, see the administrator of that system for details. Content preview: Insert into *scratch*: (defun foo () (cl-flet ((bar (&optional qux) qux)) (bar 123))) Try to edebug this function (move point into it, hit C-u C-M-x). This gives an error: Content analysis details: (2.5 points, 10.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- 0.0 URIBL_BLOCKED ADMINISTRATOR NOTICE: The query to URIBL was blocked. See http://wiki.apache.org/spamassassin/DnsBlocklists#dnsbl-block for more information. [URIs: x.org] -0.7 RCVD_IN_DNSWL_LOW RBL: Sender listed at https://www.dnswl.org/, low trust [209.51.188.17 listed in list.dnswl.org] 0.0 FREEMAIL_FROM Sender email is commonly abused enduser mail provider (p.stephani2[at]gmail.com) 1.0 SPF_SOFTFAIL SPF: sender does not match SPF record (softfail) 0.2 FREEMAIL_ENVFROM_END_DIGIT Envelope-from freemail username ends in digit (p.stephani2[at]gmail.com) 0.0 SPF_HELO_NONE SPF: HELO does not publish an SPF Record 2.0 SPOOFED_FREEMAIL No description available. 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: -0.5 (/) Insert into *scratch*: (defun foo () (cl-flet ((bar (&optional qux) qux)) (bar 123))) Try to edebug this function (move point into it, hit C-u C-M-x). This gives an error: Debugger entered--Lisp error: (wrong-number-of-arguments (2 . 2) 1) edebug-match-&optional(((qux) (188 . 191) . 192)) #f(compiled-function (head cursor) #)(&optional = ((qux) (188 . 191) . 192)) edebug-list-form(((qux) (188 . 191) . 192)) edebug-form((((&optional qux) qux) (177 (178 . 187) (188 . 191) . 192) (1= 93 . 196) . 197)) edebug-match-form((((&optional qux) qux) (177 (178 . 187) (188 . 191) . 1= 92) (193 . 196) . 197)) edebug-match-symbol((((&optional qux) qux) (177 (178 . 187) (188 . 191) .= 192) (193 . 196) . 197) form) edebug-match-one-spec((((&optional qux) qux) (177 (178 . 187) (188 . 191)= . 192) (193 . 196) . 197) form) edebug-match-&or((((&optional qux) qux) (177 (178 . 187) (188 . 191) . 19= 2) (193 . 196) . 197) (([&or "quote" "function"] &or symbolp lambda-expr) (= "cl-function" cl-function) form)) edebug-match-specs((((&optional qux) qux) (177 (178 . 187) (188 . 191) . = 192) (193 . 196) . 197) (&or ([&or "quote" "function"] &or symbolp lambda-e= xpr) ("cl-function" cl-function) form) edebug-match-specs) edebug-match((((&optional qux) qux) (177 (178 . 187) (188 . 191) . 192) (= 193 . 196) . 197) (&or ([&or "quote" "function"] &or symbolp lambda-expr) (= "cl-function" cl-function) form)) edebug-match-symbol((((&optional qux) qux) (177 (178 . 187) (188 . 191) .= 192) (193 . 196) . 197) function-form) edebug-match-one-spec((((&optional qux) qux) (177 (178 . 187) (188 . 191)= . 192) (193 . 196) . 197) function-form) edebug-match-specs((((&optional qux) qux) (177 (178 . 187) (188 . 191) . = 192) (193 . 196) . 197) (function-form) edebug-match-specs) edebug-match-specs((((&optional qux) qux) (177 (178 . 187) (188 . 191) . = 192) (193 . 196) . 197) (name function-form) edebug-match-specs) edebug-match((((&optional qux) qux) (177 (178 . 187) (188 . 191) . 192) (= 193 . 196) . 197) (name function-form)) edebug-make-form-wrapper((((&optional qux) qux) (177 (178 . 187) (188 . 1= 91) . 192) (193 . 196) . 197) 173 197 (name function-form)) edebug-match-&define((((&optional qux) qux) (177 (178 . 187) (188 . 191) = . 192) (193 . 196) . 197) (name function-form)) edebug-match-specs((((&optional qux) qux) (177 (178 . 187) (188 . 191) . = 192) (193 . 196) . 197) (&define name function-form) edebug-match-specs) edebug-match-sublist((((&optional qux) qux) (177 (178 . 187) (188 . 191) = . 192) (193 . 196) . 197) (&define name function-form)) edebug-match-list((((bar (&optional qux) qux)) (172 (173 . 176) (177 (178= . 187) (188 . 191) . 192) (193 . 196) . 197) . 198) (&define name function= -form)) edebug-match-one-spec((((bar (&optional qux) qux)) (172 (173 . 176) (177 = (178 . 187) (188 . 191) . 192) (193 . 196) . 197) . 198) (&define name func= tion-form)) edebug-match-&or((((bar (&optional qux) qux)) (172 (173 . 176) (177 (178 = . 187) (188 . 191) . 192) (193 . 196) . 197) . 198) ((&define name function= -form) (cl-defun))) edebug-match-specs((((bar (&optional qux) qux)) (172 (173 . 176) (177 (17= 8 . 187) (188 . 191) . 192) (193 . 196) . 197) . 198) (&or (&define name fu= nction-form) (cl-defun)) edebug-match-specs) edebug-match((((bar (&optional qux) qux)) (172 (173 . 176) (177 (178 . 18= 7) (188 . 191) . 192) (193 . 196) . 197) . 198) (&or (&define name function= -form) (cl-defun))) edebug-match-one-spec((((bar (&optional qux) qux)) (172 (173 . 176) (177 = (178 . 187) (188 . 191) . 192) (193 . 196) . 197) . 198) [&or (&define name= function-form) (cl-defun)]) edebug-match-specs((((bar (&optional qux) qux)) (172 (173 . 176) (177 (17= 8 . 187) (188 . 191) . 192) (193 . 196) . 197) . 198) ([&or (&define name f= unction-form) (cl-defun)]) edebug-&rest-wrapper) edebug-&optional-wrapper((((bar (&optional qux) qux)) (172 (173 . 176) (1= 77 (178 . 187) (188 . 191) . 192) (193 . 196) . 197) . 198) ([&or (&define = name function-form) (cl-defun)]) edebug-&rest-wrapper) edebug-&rest-wrapper((((bar (&optional qux) qux)) (172 (173 . 176) (177 (= 178 . 187) (188 . 191) . 192) (193 . 196) . 197) . 198) ([&or (&define name= function-form) (cl-defun)]) edebug-&rest-wrapper) edebug-match-&rest((((bar (&optional qux) qux)) (172 (173 . 176) (177 (17= 8 . 187) (188 . 191) . 192) (193 . 196) . 197) . 198) ([&or (&define name f= unction-form) (cl-defun)])) edebug-match-specs((((bar (&optional qux) qux)) (172 (173 . 176) (177 (17= 8 . 187) (188 . 191) . 192) (193 . 196) . 197) . 198) (&rest [&or (&define = name function-form) (cl-defun)]) edebug-match-specs) edebug-match-sublist((((bar (&optional qux) qux)) (172 (173 . 176) (177 (= 178 . 187) (188 . 191) . 192) (193 . 196) . 197) . 198) (&rest [&or (&defin= e name function-form) (cl-defun)])) edebug-match-list(((((bar (&optional qux) qux)) (bar 123)) (171 (172 (173= . 176) (177 (178 . 187) (188 . 191) . 192) (193 . 196) . 197) . 198) (203 = (204 . 207) (208 . 211) . 212) . 213) (&rest [&or (&define name function-fo= rm) (cl-defun)])) edebug-match-one-spec(((((bar (&optional qux) qux)) (bar 123)) (171 (172 = (173 . 176) (177 (178 . 187) (188 . 191) . 192) (193 . 196) . 197) . 198) (= 203 (204 . 207) (208 . 211) . 212) . 213) (&rest [&or (&define name functio= n-form) (cl-defun)])) edebug-match-specs(((((bar (&optional qux) qux)) (bar 123)) (171 (172 (17= 3 . 176) (177 (178 . 187) (188 . 191) . 192) (193 . 196) . 197) . 198) (203= (204 . 207) (208 . 211) . 212) . 213) ((&rest [&or (&define name function-= form) (cl-defun)]) cl-declarations body) edebug-match-specs) edebug-match-sublist(((((bar (&optional qux) qux)) (bar 123)) (171 (172 (= 173 . 176) (177 (178 . 187) (188 . 191) . 192) (193 . 196) . 197) . 198) (2= 03 (204 . 207) (208 . 211) . 212) . 213) ((&rest [&or (&define name functio= n-form) (cl-defun)]) cl-declarations body)) #f(compiled-function (head cursor) #)(cl-flet ((= ((bar (&optional qux) qux)) (bar 123)) (171 (172 (173 . 176) (177 (178 . 18= 7) (188 . 191) . 192) (193 . 196) . 197) . 198) (203 (204 . 207) (208 . 211= ) . 212) . 213)) edebug-list-form(((((bar (&optional qux) qux)) (bar 123)) (171 (172 (173 = . 176) (177 (178 . 187) (188 . 191) . 192) (193 . 196) . 197) . 198) (203 (= 204 . 207) (208 . 211) . 212) . 213)) edebug-form((((cl-flet ((bar (&optional qux) qux)) (bar 123))) (162 (163 = . 170) (171 (172 (173 . 176) (177 (178 . 187) (188 . 191) . 192) (193 . 196= ) . 197) . 198) (203 (204 . 207) (208 . 211) . 212) . 213) . 214)) edebug-match-form((((cl-flet ((bar (&optional qux) qux)) (bar 123))) (162= (163 . 170) (171 (172 (173 . 176) (177 (178 . 187) (188 . 191) . 192) (193= . 196) . 197) . 198) (203 (204 . 207) (208 . 211) . 212) . 213) . 214)) edebug-match-symbol((((cl-flet ((bar (&optional qux) qux)) (bar 123))) (1= 62 (163 . 170) (171 (172 (173 . 176) (177 (178 . 187) (188 . 191) . 192) (1= 93 . 196) . 197) . 198) (203 (204 . 207) (208 . 211) . 212) . 213) . 214) f= orm) edebug-match-one-spec((((cl-flet ((bar (&optional qux) qux)) (bar 123))) = (162 (163 . 170) (171 (172 (173 . 176) (177 (178 . 187) (188 . 191) . 192) = (193 . 196) . 197) . 198) (203 (204 . 207) (208 . 211) . 212) . 213) . 214)= form) edebug-match-specs((((cl-flet ((bar (&optional qux) qux)) (bar 123))) (16= 2 (163 . 170) (171 (172 (173 . 176) (177 (178 . 187) (188 . 191) . 192) (19= 3 . 196) . 197) . 198) (203 (204 . 207) (208 . 211) . 212) . 213) . 214) (f= orm) edebug-&rest-wrapper) edebug-&optional-wrapper((((cl-flet ((bar (&optional qux) qux)) (bar 123)= )) (162 (163 . 170) (171 (172 (173 . 176) (177 (178 . 187) (188 . 191) . 19= 2) (193 . 196) . 197) . 198) (203 (204 . 207) (208 . 211) . 212) . 213) . 2= 14) (form) edebug-&rest-wrapper) edebug-&rest-wrapper((((cl-flet ((bar (&optional qux) qux)) (bar 123))) (= 162 (163 . 170) (171 (172 (173 . 176) (177 (178 . 187) (188 . 191) . 192) (= 193 . 196) . 197) . 198) (203 (204 . 207) (208 . 211) . 212) . 213) . 214) = (form) edebug-&rest-wrapper) edebug-match-&rest((((cl-flet ((bar (&optional qux) qux)) (bar 123))) (16= 2 (163 . 170) (171 (172 (173 . 176) (177 (178 . 187) (188 . 191) . 192) (19= 3 . 196) . 197) . 198) (203 (204 . 207) (208 . 211) . 212) . 213) . 214) (f= orm)) edebug-match-specs((((cl-flet ((bar (&optional qux) qux)) (bar 123))) (16= 2 (163 . 170) (171 (172 (173 . 176) (177 (178 . 187) (188 . 191) . 192) (19= 3 . 196) . 197) . 198) (203 (204 . 207) (208 . 211) . 212) . 213) . 214) (&= rest form) edebug-match-specs) edebug-match((((cl-flet ((bar (&optional qux) qux)) (bar 123))) (162 (163= . 170) (171 (172 (173 . 176) (177 (178 . 187) (188 . 191) . 192) (193 . 19= 6) . 197) . 198) (203 (204 . 207) (208 . 211) . 212) . 213) . 214) (&rest f= orm)) edebug-match-def-body((((cl-flet ((bar (&optional qux) qux)) (bar 123))) = (162 (163 . 170) (171 (172 (173 . 176) (177 (178 . 187) (188 . 191) . 192) = (193 . 196) . 197) . 198) (203 (204 . 207) (208 . 211) . 212) . 213) . 214)) edebug-match-symbol((((cl-flet ((bar (&optional qux) qux)) (bar 123))) (1= 62 (163 . 170) (171 (172 (173 . 176) (177 (178 . 187) (188 . 191) . 192) (1= 93 . 196) . 197) . 198) (203 (204 . 207) (208 . 211) . 212) . 213) . 214) d= ef-body) edebug-match-one-spec((((cl-flet ((bar (&optional qux) qux)) (bar 123))) = (162 (163 . 170) (171 (172 (173 . 176) (177 (178 . 187) (188 . 191) . 192) = (193 . 196) . 197) . 198) (203 (204 . 207) (208 . 211) . 212) . 213) . 214)= def-body) edebug-match-specs((((cl-flet ((bar (&optional qux) qux)) (bar 123))) (16= 2 (163 . 170) (171 (172 (173 . 176) (177 (178 . 187) (188 . 191) . 192) (19= 3 . 196) . 197) . 198) (203 (204 . 207) (208 . 211) . 212) . 213) . 214) (d= ef-body) edebug-match-specs) edebug-match-specs((((cl-flet ((bar (&optional qux) qux)) (bar 123))) (16= 2 (163 . 170) (171 (172 (173 . 176) (177 (178 . 187) (188 . 191) . 192) (19= 3 . 196) . 197) . 198) (203 (204 . 207) (208 . 211) . 212) . 213) . 214) ([= &optional ("interactive" interactive)] def-body) edebug-match-specs) edebug-match-specs((((cl-flet ((bar (&optional qux) qux)) (bar 123))) (16= 2 (163 . 170) (171 (172 (173 . 176) (177 (178 . 187) (188 . 191) . 192) (19= 3 . 196) . 197) . 198) (203 (204 . 207) (208 . 211) . 212) . 213) . 214) ([= &optional ("declare" &rest sexp)] [&optional ("interactive" interactive)] d= ef-body) edebug-match-specs) edebug-match-specs((((cl-flet ((bar (&optional qux) qux)) (bar 123))) (16= 2 (163 . 170) (171 (172 (173 . 176) (177 (178 . 187) (188 . 191) . 192) (19= 3 . 196) . 197) . 198) (203 (204 . 207) (208 . 211) . 212) . 213) . 214) (l= ambda-doc [&optional ("declare" &rest sexp)] [&optional ("interactive" inte= ractive)] def-body) edebug-match-specs) edebug-match-specs((((cl-flet ((bar (&optional qux) qux)) (bar 123))) (16= 2 (163 . 170) (171 (172 (173 . 176) (177 (178 . 187) (188 . 191) . 192) (19= 3 . 196) . 197) . 198) (203 (204 . 207) (208 . 211) . 212) . 213) . 214) (l= ambda-list lambda-doc [&optional ("declare" &rest sexp)] [&optional ("inter= active" interactive)] def-body) edebug-match-specs) edebug-match-specs((((cl-flet ((bar (&optional qux) qux)) (bar 123))) (16= 2 (163 . 170) (171 (172 (173 . 176) (177 (178 . 187) (188 . 191) . 192) (19= 3 . 196) . 197) . 198) (203 (204 . 207) (208 . 211) . 212) . 213) . 214) (n= ame lambda-list lambda-doc [&optional ("declare" &rest sexp)] [&optional ("= interactive" interactive)] def-body) edebug-match-specs) edebug-match-specs((((cl-flet ((bar (&optional qux) qux)) (bar 123))) (16= 2 (163 . 170) (171 (172 (173 . 176) (177 (178 . 187) (188 . 191) . 192) (19= 3 . 196) . 197) . 198) (203 (204 . 207) (208 . 211) . 212) . 213) . 214) ("= defun" name lambda-list lambda-doc [&optional ("declare" &rest sexp)] [&opt= ional ("interactive" interactive)] def-body) edebug-match-specs) edebug-match-sublist((((cl-flet ((bar (&optional qux) qux)) (bar 123))) (= 162 (163 . 170) (171 (172 (173 . 176) (177 (178 . 187) (188 . 191) . 192) (= 193 . 196) . 197) . 198) (203 (204 . 207) (208 . 211) . 212) . 213) . 214) = ("defun" name lambda-list lambda-doc [&optional ("declare" &rest sexp)] [&o= ptional ("interactive" interactive)] def-body)) edebug-match-list((((defun foo nil (cl-flet ((bar (&optional qux) qux)) (= bar 123)))) (146 (147 . 152) (153 . 156) (157 . 159) (162 (163 . 170) (171 = (172 (173 . 176) (177 (178 . 187) (188 . 191) . 192) (193 . 196) . 197) . 1= 98) (203 (204 . 207) (208 . 211) . 212) . 213) . 214)) ("defun" name lambda= -list lambda-doc [&optional ("declare" &rest sexp)] [&optional ("interactiv= e" interactive)] def-body)) edebug-match-one-spec((((defun foo nil (cl-flet ((bar (&optional qux) qux= )) (bar 123)))) (146 (147 . 152) (153 . 156) (157 . 159) (162 (163 . 170) (= 171 (172 (173 . 176) (177 (178 . 187) (188 . 191) . 192) (193 . 196) . 197)= . 198) (203 (204 . 207) (208 . 211) . 212) . 213) . 214)) ("defun" name la= mbda-list lambda-doc [&optional ("declare" &rest sexp)] [&optional ("intera= ctive" interactive)] def-body)) edebug-match-specs((((defun foo nil (cl-flet ((bar (&optional qux) qux)) = (bar 123)))) (146 (147 . 152) (153 . 156) (157 . 159) (162 (163 . 170) (171= (172 (173 . 176) (177 (178 . 187) (188 . 191) . 192) (193 . 196) . 197) . = 198) (203 (204 . 207) (208 . 211) . 212) . 213) . 214)) (("defun" name lamb= da-list lambda-doc [&optional ("declare" &rest sexp)] [&optional ("interact= ive" interactive)] def-body)) edebug-match-specs) edebug-match((((defun foo nil (cl-flet ((bar (&optional qux) qux)) (bar 1= 23)))) (146 (147 . 152) (153 . 156) (157 . 159) (162 (163 . 170) (171 (172 = (173 . 176) (177 (178 . 187) (188 . 191) . 192) (193 . 196) . 197) . 198) (= 203 (204 . 207) (208 . 211) . 212) . 213) . 214)) (("defun" name lambda-lis= t lambda-doc [&optional ("declare" &rest sexp)] [&optional ("interactive" i= nteractive)] def-body))) edebug-make-form-wrapper((((defun foo nil (cl-flet ((bar (&optional qux) = qux)) (bar 123)))) (146 (147 . 152) (153 . 156) (157 . 159) (162 (163 . 170= ) (171 (172 (173 . 176) (177 (178 . 187) (188 . 191) . 192) (193 . 196) . 1= 97) . 198) (203 (204 . 207) (208 . 211) . 212) . 213) . 214)) 146 213 (("de= fun" name lambda-list lambda-doc [&optional ("declare" &rest sexp)] [&optio= nal ("interactive" interactive)] def-body))) edebug-read-and-maybe-wrap-form1() edebug-read-and-maybe-wrap-form() edebug-read-top-level-form() edebug-eval-defun((4)) apply(edebug-eval-defun (4)) eval-defun((4)) funcall-interactively(eval-defun (4)) call-interactively(eval-defun nil nil) command-execute(eval-defun) In GNU Emacs 27.0.90 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.12) of 2020-04-03 Repository revision: fa823653ffb0e3e893d30daa5abf68e909934e2e Repository branch: emacs-27 Windowing system distributor 'The X.Org Foundation', version 11.0.12004000 System Description: Debian GNU/Linux rodete Recent messages: For information about GNU Emacs and the GNU system, type C-h C-a. Configured using: 'configure --enable-gcc-warnings=3Dwarn-only --enable-gtk-deprecation-warnings --without-pop --with-mailutils --enable-checking --enable-check-lisp-object-type --with-modules 'CFLAGS=3D-O0 -ggdb3'' Configured features: XPM JPEG TIFF GIF PNG SOUND DBUS GSETTINGS GLIB NOTIFY INOTIFY LIBSELINUX GNUTLS FREETYPE HARFBUZZ XFT ZLIB TOOLKIT_SCROLL_BARS GTK3 X11 XDBE XIM MODULES THREADS PDUMPER GMP Important settings: value of $LANG: en_US.UTF-8 locale-coding-system: utf-8-unix Major mode: Lisp Interaction Minor modes in effect: tooltip-mode: t global-eldoc-mode: t eldoc-mode: t electric-indent-mode: t mouse-wheel-mode: t tool-bar-mode: t menu-bar-mode: t file-name-shadow-mode: t global-font-lock-mode: t font-lock-mode: t blink-cursor-mode: t auto-composition-mode: t auto-encryption-mode: t auto-compression-mode: t line-number-mode: t transient-mark-mode: t Load-path shadows: None found. Features: (shadow sort mail-extr emacsbug message rmc dired dired-loaddefs format-spec rfc822 mml easymenu mml-sec epa epg epg-config gnus-util rmail rmail-loaddefs text-property-search time-date mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums mm-util mail-prsvr mail-utils phst skeleton derived edmacro kmacro pcase ffap thingatpt url-parse auth-source cl-seq eieio eieio-core cl-macs eieio-loaddefs password-cache json map url-vars subr-x rx gnutls puny seq byte-opt gv bytecomp byte-compile cconv dbus xml cl-loaddefs cl-lib tooltip eldoc electric uniquify ediff-hook vc-hooks lisp-float-type mwheel term/x-win x-win term/common-win x-dnd tool-bar dnd fontset image regexp-opt fringe tabulated-list replace newcomment text-mode elisp-mode lisp-mode prog-mode register page tab-bar menu-bar rfn-eshadow isearch timer select scroll-bar mouse jit-lock font-lock syntax facemenu font-core term/tty-colors frame minibuffer cl-generic cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean japanese eucjp-ms cp51932 hebrew greek romanian slovak czech european ethiopic indian cyrillic chinese composite charscript charprop case-table epa-hook jka-cmpr-hook help simple abbrev obarray cl-preloaded nadvice loaddefs button faces cus-face macroexp files text-properties overlay sha1 md5 base64 format env code-pages mule custom widget hashtable-print-readable backquote threads dbusbind inotify dynamic-setting system-font-setting font-render-setting move-toolbar gtk x-toolkit x multi-tty make-network-process emacs) Memory information: ((conses 16 60694 8220) (symbols 48 8240 1) (strings 32 21021 1702) (string-bytes 1 684629) (vectors 16 12143) (vector-slots 8 169106 5388) (floats 8 25 25) (intervals 56 202 0) (buffers 1000 12)) --=20 Google Germany GmbH Erika-Mann-Stra=C3=9Fe 33 80636 M=C3=BCnchen Registergericht und -nummer: Hamburg, HRB 86891 Sitz der Gesellschaft: Hamburg Gesch=C3=A4ftsf=C3=BChrer: Paul Manicle, Halimah DeLaine Prado If you received this communication by mistake, please don=E2=80=99t forward= it to anyone else (it may contain confidential or privileged information), please erase all copies of it, including all attachments, and please let the sender know it went to the wrong person. Thanks. From debbugs-submit-bounces@debbugs.gnu.org Sat Apr 04 20:33:44 2020 Received: (at control) by debbugs.gnu.org; 5 Apr 2020 00:33:44 +0000 Received: from localhost ([127.0.0.1]:44989 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jKtEO-0003KJ-JR for submit@debbugs.gnu.org; Sat, 04 Apr 2020 20:33:44 -0400 Received: from mail-qv1-f47.google.com ([209.85.219.47]:41168) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jKtEM-0003Jg-2J for control@debbugs.gnu.org; Sat, 04 Apr 2020 20:33:43 -0400 Received: by mail-qv1-f47.google.com with SMTP id t4so5669454qvz.8 for ; Sat, 04 Apr 2020 17:33:42 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:to:subject:date:message-id:mime-version; bh=vfFsYmzntOc7FItf3Sd1hVw7+MKzx7tUEF3CHlzbjwU=; b=osG/3P7V11+O1g/97+X6Pk2oko1S6xfsJdBb6yR3oMJedD5+uxkl8oTA9Txjpgv5GA bshAUJFTdeyPhIrIY8IBnupp2QScEIntlP1Fynw7TM47zocO0L6ftkXyvb2htCXdcrzj GDnP/gdpyHctzaWDLj9CfQBfmrQNgKIaEwOv+jm/Y/RitMG/Dl8m3SSzcgsmaQ0sdFmI 2ysarCdmlfDRUT981nrcevDSAV4Qbn1jUiIPZk6pgakh/bP8ijZWmshNHxVNJh1XdIn2 PexgTmM6acLklN81/NoEXuLQ/UCALqxAKOMCFzxoj3KSeabfLc/agwybYAL6jP5Egm6D LxEQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:subject:date:message-id:mime-version; bh=vfFsYmzntOc7FItf3Sd1hVw7+MKzx7tUEF3CHlzbjwU=; b=dq+tUIKZvJ23MWHiSgV3Fvp/LCjuIP5YCCgUIwk1xcGZXLSKcxCVJIuHse9cs/821j XMEl6Q+ayvq4aEk/nO+ydb+wGUWpTK6JsETzfuNxSfnLx74SgnvypvJj7j/Wkq/4ePX4 RJAOlRO5eNblP/IytuDI6vdud0MafxATVExMGQ8ovXimUY9k4aEbE/gcuTQK2L3+X8ul AQVsBZOhD6hh/OL1C00dua2AoH8qc62Xzn1IEerkMD6TMd167cl5hbVxBQy2Ph2cjAKi meZ8f3yGuxPf9jl9sgQGaMbv9lqX38JWrBG8IFtGswJLiCKpwYiNM4iyTit4s0gB4d8i ncPw== X-Gm-Message-State: AGi0PuYq1PQB1bsHgJUbimrvoWidnZWLGfFAtIDt0E74rvQenaAiF58c +iQvPai9VfNHu/g7eUwLumoqVbgv X-Google-Smtp-Source: APiQypJxEX3d4Fmyf1w6wVzyatP4i6hznArDaCDxfbGIdUHXfnwuiamLVRPBR/IbaltOmd+peHwEHg== X-Received: by 2002:a05:6214:70e:: with SMTP id b14mr14570519qvz.246.1586046816447; Sat, 04 Apr 2020 17:33:36 -0700 (PDT) Received: from minid (cbl-45-2-119-47.yyz.frontiernetworks.ca. [45.2.119.47]) by smtp.gmail.com with ESMTPSA id e17sm8339260qtw.1.2020.04.04.17.33.35 for (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Sat, 04 Apr 2020 17:33:36 -0700 (PDT) From: Noam Postavsky To: control@debbugs.gnu.org Subject: control message for bug #40432 Date: Sat, 04 Apr 2020 20:33:35 -0400 Message-ID: <87imiehiu8.fsf@gmail.com> MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: control 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 (-) tags 40432 + confirmed tags 40431 + confirmed quit From unknown Wed Jun 18 00:28:25 2025 X-Loop: help-debbugs@gnu.org Subject: bug#40432: 27.0.90; Edebug not possible if a cl-flet has an &optional argument Resent-From: Lars Ingebrigtsen Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 01 Mar 2021 15:41:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 40432 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: confirmed To: Philipp Stephani Cc: 40432@debbugs.gnu.org Received: via spool by 40432-submit@debbugs.gnu.org id=B40432.161461324528305 (code B ref 40432); Mon, 01 Mar 2021 15:41:02 +0000 Received: (at 40432) by debbugs.gnu.org; 1 Mar 2021 15:40:45 +0000 Received: from localhost ([127.0.0.1]:50464 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lGkf6-0007MT-VD for submit@debbugs.gnu.org; Mon, 01 Mar 2021 10:40:45 -0500 Received: from quimby.gnus.org ([95.216.78.240]:44364) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lGkf5-0007ME-5U for 40432@debbugs.gnu.org; Mon, 01 Mar 2021 10:40:43 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnus.org; s=20200322; h=Content-Type:MIME-Version:Message-ID:In-Reply-To:Date: References:Subject:Cc:To:From:Sender:Reply-To:Content-Transfer-Encoding: Content-ID:Content-Description:Resent-Date:Resent-From:Resent-Sender: Resent-To:Resent-Cc:Resent-Message-ID:List-Id:List-Help:List-Unsubscribe: List-Subscribe:List-Post:List-Owner:List-Archive; bh=5oSJqVfRtXxRAPVw9R3X8F44uMeQPORMe/3xsRNTLPw=; b=d9w/UkA+qlQWOHJXg5WToGLrTV EE5d5cflEU9iKTVwj13648jkRIPMCgKO/lk+noDTb28K1/P2jE+8VmVUxFtZcCARtyjHF8mJCeR1/ 3a7Ff8l0hajk/SpC+A0W8tIHMzIUb/RyTpJ6/LcJP+8TgpfVyIT6kwpkbL1hdqWB/3/o=; Received: from cm-84.212.220.105.getinternet.no ([84.212.220.105] helo=xo) by quimby.gnus.org with esmtpsa (TLS1.3:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1lGkex-0003H2-0j; Mon, 01 Mar 2021 16:40:37 +0100 From: Lars Ingebrigtsen References: X-Now-Playing: Stephen Mallinder's _Um Dada_: "Robber" Date: Mon, 01 Mar 2021 16:40:34 +0100 In-Reply-To: (Philipp Stephani's message of "Sat, 04 Apr 2020 18:23:47 +0200") Message-ID: <87lfb651cd.fsf@gnus.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Report: Spam detection software, running on the system "quimby.gnus.org", has NOT identified this incoming email as spam. The original message has been attached to this so you can view it or label similar future email. If you have any questions, see @@CONTACT_ADDRESS@@ for details. Content preview: Philipp Stephani writes: > Insert into *scratch*: > > (defun foo () > (cl-flet ((bar (&optional qux) qux)) > (bar 123))) > > Try to edebug this function (move point into it, hit C-u C-M-x). This > gives an error: > > Debugger [...] Content analysis details: (-2.9 points, 5.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- -1.0 ALL_TRUSTED Passed through trusted hosts only via SMTP -1.9 BAYES_00 BODY: Bayes spam probability is 0 to 1% [score: 0.0000] 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 (-) Philipp Stephani writes: > Insert into *scratch*: > > (defun foo () > (cl-flet ((bar (&optional qux) qux)) > (bar 123))) > > Try to edebug this function (move point into it, hit C-u C-M-x). This > gives an error: > > Debugger entered--Lisp error: (wrong-number-of-arguments (2 . 2) 1) > edebug-match-&optional(((qux) (188 . 191) . 192)) I can reproduce this in Emacs 27.1, but not in Emacs 28. This was apparently fixed very recently by this change: commit 2007afd21b5f6c72a7a9c15fd7c4785331f2700f Author: Stefan Monnier AuthorDate: Sat Feb 13 16:21:53 2021 -0500 So I'm closing this bug report. -- (domestic pets only, the antidote for overdose, milk.) bloggy blog: http://lars.ingebrigtsen.no From debbugs-submit-bounces@debbugs.gnu.org Mon Mar 01 10:40:50 2021 Received: (at control) by debbugs.gnu.org; 1 Mar 2021 15:40:50 +0000 Received: from localhost ([127.0.0.1]:50467 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lGkfC-0007Mk-6C for submit@debbugs.gnu.org; Mon, 01 Mar 2021 10:40:50 -0500 Received: from quimby.gnus.org ([95.216.78.240]:44378) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lGkfA-0007MQ-Uo for control@debbugs.gnu.org; Mon, 01 Mar 2021 10:40:49 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnus.org; s=20200322; h=Subject:From:To:Message-Id:Date:Sender:Reply-To:Cc: MIME-Version:Content-Type:Content-Transfer-Encoding:Content-ID: Content-Description:Resent-Date:Resent-From:Resent-Sender:Resent-To:Resent-Cc :Resent-Message-ID:In-Reply-To:References:List-Id:List-Help:List-Unsubscribe: List-Subscribe:List-Post:List-Owner:List-Archive; bh=RWq3Mg6XS2uJOOwu6Bp8H46Zhzn8/Gkzj+W8UM3NLJA=; b=fgRU2YOW6yi7QEum3m9ond/lS8 +F1H9ZF9K6G5HCfcj07BA1NtM7CAPQTDsmGQw2erhF7bMe5IcQEai5bJPfbuSI9Xopy400Ssk5DEC bXKzrcblOT4QDTfRuFYCAGPNnu6IyoeUtNfYaVyGZabtpaUv68HV2JieIkUSqlJeu4xg=; Received: from cm-84.212.220.105.getinternet.no ([84.212.220.105] helo=xo) by quimby.gnus.org with esmtpsa (TLS1.3:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1lGkf3-0003HB-Cf for control@debbugs.gnu.org; Mon, 01 Mar 2021 16:40:43 +0100 Date: Mon, 01 Mar 2021 16:40:40 +0100 Message-Id: <87k0qq51c7.fsf@gnus.org> To: control@debbugs.gnu.org From: Lars Ingebrigtsen Subject: control message for bug #40432 X-Spam-Report: Spam detection software, running on the system "quimby.gnus.org", has NOT identified this incoming email as spam. The original message has been attached to this so you can view it or label similar future email. If you have any questions, see @@CONTACT_ADDRESS@@ for details. Content preview: tags 40432 fixed close 40432 28.1 quit Content analysis details: (-2.9 points, 5.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- -1.0 ALL_TRUSTED Passed through trusted hosts only via SMTP -1.9 BAYES_00 BODY: Bayes spam probability is 0 to 1% [score: 0.0000] X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: control 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 (-) tags 40432 fixed close 40432 28.1 quit