From unknown Sun Jun 15 08:50:18 2025 X-Loop: help-debbugs@gnu.org Subject: bug#40431: 27.0.90; Can't edebug cl-defuns with &aux destructuring Resent-From: Philipp Stephani Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 04 Apr 2020 16:19:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 40431 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: 40431@debbugs.gnu.org X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.158601708528637 (code B ref -1); Sat, 04 Apr 2020 16:19:01 +0000 Received: (at submit) by debbugs.gnu.org; 4 Apr 2020 16:18:05 +0000 Received: from localhost ([127.0.0.1]:44631 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jKlUi-0007Ro-9G for submit@debbugs.gnu.org; Sat, 04 Apr 2020 12:18:04 -0400 Received: from lists.gnu.org ([209.51.188.17]:37038) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jKlUg-0007Rc-D3 for submit@debbugs.gnu.org; Sat, 04 Apr 2020 12:18:03 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:53984) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jKlUd-0004Kf-Ra for bug-gnu-emacs@gnu.org; Sat, 04 Apr 2020 12:18:02 -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 1jKlUb-0001zD-Et for bug-gnu-emacs@gnu.org; Sat, 04 Apr 2020 12:17:59 -0400 Received: from mail-wr1-x42d.google.com ([2a00:1450:4864:20::42d]:35463) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1jKlUb-0001yk-4u for bug-gnu-emacs@gnu.org; Sat, 04 Apr 2020 12:17:57 -0400 Received: by mail-wr1-x42d.google.com with SMTP id g3so9969815wrx.2 for ; Sat, 04 Apr 2020 09:17:56 -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=fJZ/wKwFZHfrVGskthwKLFB7N7dMngy+rjBV65//d8Y=; b=iBhrJpPRp/3hGO4YRQiUlSrW3Rnd1EExlXuhO+6OlzkmhPRz620c8T2gRPGArpst1Z HVuPjP3b8D5dyde2Vp2uV4VENmFjeNnCFrFRux7wjBeYCgkK8V13vWcW8hTqb614gt2x +ZYqXa7GY0XNdY0cQX1HoB94VgDsTUyGRO/oNnlvcmaMXYg0FeK77vfCrfyDspUob60v ETnHtE9dKlzthn2OLmYoq1Ds31B1osMy/OLIeVjzrUO2F4gIk0jx5oVE4iSNgDtZY36m jCZ+uKnWxM6w3qorx+xnxbl0+g/FRc+fXlokFTzFf4X9cZK4I+RC6zvZCSv5PEyr3zh9 +Xqg== 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=fJZ/wKwFZHfrVGskthwKLFB7N7dMngy+rjBV65//d8Y=; b=nsy9HcUuaU/lRhExpkjH4q2BDA/n/FoHVQPYn96+hScoRVMvQDrkS0LfZ+3uygrcy7 Nl4edr46V/9IzMKMDRV+B8w3s5pBweGUePou3FN1Ox3wTL+xmi4GhWjbkU5F4S0weGMU ho4KjWKKwZbk5ZPWdL6gvaH75q8ryL0ojaedjIvOaZQw5YX8UqqaflcX0tFNZSaY3iuI sOpZrX9jQgye3EsKR/Y4kExU8zOijz2z0yAA8lfJ1zm0aRkxlo5t5g7rtRCdprhKlx7p 2iQD0YPzXukYcLeFKKsf9YdY/W5PPgEKDMB69kpcuLGeBx513MOxrrFvyYaJEFN5YV80 lENQ== X-Gm-Message-State: AGi0PuYLdPeXx9LGFkLzno7VELILNNQeAaHla7mz4uGzk4uup/8BZ3hu jgoRm4G8K1YmjNkf2P5glsE08tWb X-Google-Smtp-Source: APiQypIgBFinn+31aZuBeq5W2IEDbjEsSfjpZhLwPGkbtd9PgbqAR/MOR0DJM7Oa84sPdqYnaxzZTA== X-Received: by 2002:adf:f88b:: with SMTP id u11mr14663226wrp.84.1586017074360; Sat, 04 Apr 2020 09:17:54 -0700 (PDT) Received: from phst1 ([2a02:2455:2a2:100:c351:ffcc:5d8e:4288]) by smtp.gmail.com with ESMTPSA id g2sm16772265wrs.42.2020.04.04.09.17.53 for (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Sat, 04 Apr 2020 09:17:53 -0700 (PDT) From: Philipp Stephani Date: Sat, 04 Apr 2020 18:17:52 +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::42d 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*: (cl-defun foo (&aux ((a . b) '(1 . 2))) (list a b)) Now 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*: (cl-defun foo (&aux ((a . b) '(1 . 2))) (list a b)) Now try to edebug this function (move point into it, hit C-u C-M-x). This gives an error: Debugger entered--Lisp error: (invalid-read-syntax "Expected one of" arg ni= l) signal(invalid-read-syntax ("Expected one of" arg nil)) edebug-syntax-error("Expected one of" arg nil) apply(edebug-syntax-error ("Expected one of" arg nil)) edebug-no-match(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . 173) .= 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 184) . = 185) "Expected one of" arg nil) apply(edebug-no-match ((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . = 173) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 1= 84) . 185) "Expected one of" (arg nil)) edebug-match-&or(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . 173) = . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 184) .= 185) (arg nil)) edebug-match-specs(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . 173= ) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 184)= . 185) (&or arg nil) edebug-match-specs) edebug-match(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . 173) . 17= 4) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 184) . 185= ) (&or arg nil)) edebug-match-one-spec(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . = 173) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 1= 84) . 185) [&or arg nil]) edebug-match-specs(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . 173= ) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 184)= . 185) ([&or arg nil]) edebug-match-specs) edebug-match-specs(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . 173= ) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 184)= . 185) [&or arg nil] edebug-match-specs) edebug-match-specs(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . 173= ) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 184)= . 185) ([&optional ["&aux" &rest &or (symbolp &optional def-form) symbolp]= ] . [&or arg nil]) edebug-match-specs) edebug-match-specs(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . 173= ) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 184)= . 185) ([&optional ["&key" [cl-&key-arg &rest cl-&key-arg] &optional "&all= ow-other-keys"]] [&optional ["&aux" &rest &or (symbolp &optional def-form) = symbolp]] . [&or arg nil]) edebug-match-specs) edebug-match-specs(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . 173= ) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 184)= . 185) ([&optional ["&rest" cl-lambda-arg]] [&optional ["&key" [cl-&key-ar= g &rest cl-&key-arg] &optional "&allow-other-keys"]] [&optional ["&aux" &re= st &or (symbolp &optional def-form) symbolp]] . [&or arg nil]) edebug-match= -specs) edebug-match-specs(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . 173= ) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 184)= . 185) ([&optional ["&optional" cl-&optional-arg &rest cl-&optional-arg]] = [&optional ["&rest" cl-lambda-arg]] [&optional ["&key" [cl-&key-arg &rest c= l-&key-arg] &optional "&allow-other-keys"]] [&optional ["&aux" &rest &or (s= ymbolp &optional def-form) symbolp]] . [&or arg nil]) edebug-match-specs) edebug-match-specs(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . 173= ) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 184)= . 185) ([&rest cl-lambda-arg] [&optional ["&optional" cl-&optional-arg &re= st cl-&optional-arg]] [&optional ["&rest" cl-lambda-arg]] [&optional ["&key= " [cl-&key-arg &rest cl-&key-arg] &optional "&allow-other-keys"]] [&optiona= l ["&aux" &rest &or (symbolp &optional def-form) symbolp]] . [&or arg nil])= edebug-match-specs) edebug-match-sublist(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . 1= 73) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 18= 4) . 185) ([&rest cl-lambda-arg] [&optional ["&optional" cl-&optional-arg &= rest cl-&optional-arg]] [&optional ["&rest" cl-lambda-arg]] [&optional ["&k= ey" [cl-&key-arg &rest cl-&key-arg] &optional "&allow-other-keys"]] [&optio= nal ["&aux" &rest &or (symbolp &optional def-form) symbolp]] . [&or arg nil= ])) edebug-match-list((((&aux ((a . b) '(1 . 2))) (list a b)) (160 (161 . 165= ) (166 (167 (168 . 169) (171 . 173) . 174) (175 (175 . 176) (176 (177 . 178= ) (180 . 182) . 183) . 183) . 184) . 185) (188 (189 . 193) (194 . 195) (196= . 197) . 198) . 199) ([&rest cl-lambda-arg] [&optional ["&optional" cl-&op= tional-arg &rest cl-&optional-arg]] [&optional ["&rest" cl-lambda-arg]] [&o= ptional ["&key" [cl-&key-arg &rest cl-&key-arg] &optional "&allow-other-key= s"]] [&optional ["&aux" &rest &or (symbolp &optional def-form) symbolp]] . = [&or arg nil])) edebug-match-one-spec((((&aux ((a . b) '(1 . 2))) (list a b)) (160 (161 .= 165) (166 (167 (168 . 169) (171 . 173) . 174) (175 (175 . 176) (176 (177 .= 178) (180 . 182) . 183) . 183) . 184) . 185) (188 (189 . 193) (194 . 195) = (196 . 197) . 198) . 199) ([&rest cl-lambda-arg] [&optional ["&optional" cl= -&optional-arg &rest cl-&optional-arg]] [&optional ["&rest" cl-lambda-arg]]= [&optional ["&key" [cl-&key-arg &rest cl-&key-arg] &optional "&allow-other= -keys"]] [&optional ["&aux" &rest &or (symbolp &optional def-form) symbolp]= ] . [&or arg nil])) edebug-match-specs((((&aux ((a . b) '(1 . 2))) (list a b)) (160 (161 . 16= 5) (166 (167 (168 . 169) (171 . 173) . 174) (175 (175 . 176) (176 (177 . 17= 8) (180 . 182) . 183) . 183) . 184) . 185) (188 (189 . 193) (194 . 195) (19= 6 . 197) . 198) . 199) (([&rest cl-lambda-arg] [&optional ["&optional" cl-&= optional-arg &rest cl-&optional-arg]] [&optional ["&rest" cl-lambda-arg]] [= &optional ["&key" [cl-&key-arg &rest cl-&key-arg] &optional "&allow-other-k= eys"]] [&optional ["&aux" &rest &or (symbolp &optional def-form) symbolp]] = . [&or arg nil])) edebug-match-specs) edebug-match((((&aux ((a . b) '(1 . 2))) (list a b)) (160 (161 . 165) (16= 6 (167 (168 . 169) (171 . 173) . 174) (175 (175 . 176) (176 (177 . 178) (18= 0 . 182) . 183) . 183) . 184) . 185) (188 (189 . 193) (194 . 195) (196 . 19= 7) . 198) . 199) (([&rest cl-lambda-arg] [&optional ["&optional" cl-&option= al-arg &rest cl-&optional-arg]] [&optional ["&rest" cl-lambda-arg]] [&optio= nal ["&key" [cl-&key-arg &rest cl-&key-arg] &optional "&allow-other-keys"]]= [&optional ["&aux" &rest &or (symbolp &optional def-form) symbolp]] . [&or= arg nil]))) edebug-match-symbol((((&aux ((a . b) '(1 . 2))) (list a b)) (160 (161 . 1= 65) (166 (167 (168 . 169) (171 . 173) . 174) (175 (175 . 176) (176 (177 . 1= 78) (180 . 182) . 183) . 183) . 184) . 185) (188 (189 . 193) (194 . 195) (1= 96 . 197) . 198) . 199) cl-lambda-list) edebug-match-one-spec((((&aux ((a . b) '(1 . 2))) (list a b)) (160 (161 .= 165) (166 (167 (168 . 169) (171 . 173) . 174) (175 (175 . 176) (176 (177 .= 178) (180 . 182) . 183) . 183) . 184) . 185) (188 (189 . 193) (194 . 195) = (196 . 197) . 198) . 199) cl-lambda-list) edebug-match-specs((((&aux ((a . b) '(1 . 2))) (list a b)) (160 (161 . 16= 5) (166 (167 (168 . 169) (171 . 173) . 174) (175 (175 . 176) (176 (177 . 17= 8) (180 . 182) . 183) . 183) . 184) . 185) (188 (189 . 193) (194 . 195) (19= 6 . 197) . 198) . 199) (cl-lambda-list cl-declarations-or-string [&optional= ("interactive" interactive)] def-body) edebug-match-specs) edebug-match-specs((((&aux ((a . b) '(1 . 2))) (list a b)) (160 (161 . 16= 5) (166 (167 (168 . 169) (171 . 173) . 174) (175 (175 . 176) (176 (177 . 17= 8) (180 . 182) . 183) . 183) . 184) . 185) (188 (189 . 193) (194 . 195) (19= 6 . 197) . 198) . 199) ([&or name ("setf" :name setf name)] cl-lambda-list = cl-declarations-or-string [&optional ("interactive" interactive)] def-body)= edebug-match-specs) edebug-match-specs((((&aux ((a . b) '(1 . 2))) (list a b)) (160 (161 . 16= 5) (166 (167 (168 . 169) (171 . 173) . 174) (175 (175 . 176) (176 (177 . 17= 8) (180 . 182) . 183) . 183) . 184) . 185) (188 (189 . 193) (194 . 195) (19= 6 . 197) . 198) . 199) ("cl-defun" [&or name ("setf" :name setf name)] cl-l= ambda-list cl-declarations-or-string [&optional ("interactive" interactive)= ] def-body) edebug-match-specs) edebug-match-sublist((((&aux ((a . b) '(1 . 2))) (list a b)) (160 (161 . = 165) (166 (167 (168 . 169) (171 . 173) . 174) (175 (175 . 176) (176 (177 . = 178) (180 . 182) . 183) . 183) . 184) . 185) (188 (189 . 193) (194 . 195) (= 196 . 197) . 198) . 199) ("cl-defun" [&or name ("setf" :name setf name)] cl= -lambda-list cl-declarations-or-string [&optional ("interactive" interactiv= e)] def-body)) edebug-match-list((((cl-defun foo (&aux ((a . b) '(1 . 2))) (list a b))) = (146 (147 . 155) (156 . 159) (160 (161 . 165) (166 (167 (168 . 169) (171 . = 173) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 1= 84) . 185) (188 (189 . 193) (194 . 195) (196 . 197) . 198) . 199)) ("cl-def= un" [&or name ("setf" :name setf name)] cl-lambda-list cl-declarations-or-s= tring [&optional ("interactive" interactive)] def-body)) edebug-match-one-spec((((cl-defun foo (&aux ((a . b) '(1 . 2))) (list a b= ))) (146 (147 . 155) (156 . 159) (160 (161 . 165) (166 (167 (168 . 169) (17= 1 . 173) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183)= . 184) . 185) (188 (189 . 193) (194 . 195) (196 . 197) . 198) . 199)) ("cl= -defun" [&or name ("setf" :name setf name)] cl-lambda-list cl-declarations-= or-string [&optional ("interactive" interactive)] def-body)) edebug-match-specs((((cl-defun foo (&aux ((a . b) '(1 . 2))) (list a b)))= (146 (147 . 155) (156 . 159) (160 (161 . 165) (166 (167 (168 . 169) (171 .= 173) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . = 184) . 185) (188 (189 . 193) (194 . 195) (196 . 197) . 198) . 199)) (("cl-d= efun" [&or name ("setf" :name setf name)] cl-lambda-list cl-declarations-or= -string [&optional ("interactive" interactive)] def-body)) edebug-match-spe= cs) edebug-match((((cl-defun foo (&aux ((a . b) '(1 . 2))) (list a b))) (146 = (147 . 155) (156 . 159) (160 (161 . 165) (166 (167 (168 . 169) (171 . 173) = . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 184) .= 185) (188 (189 . 193) (194 . 195) (196 . 197) . 198) . 199)) (("cl-defun" = [&or name ("setf" :name setf name)] cl-lambda-list cl-declarations-or-strin= g [&optional ("interactive" interactive)] def-body))) edebug-make-form-wrapper((((cl-defun foo (&aux ((a . b) '(1 . 2))) (list = a b))) (146 (147 . 155) (156 . 159) (160 (161 . 165) (166 (167 (168 . 169) = (171 . 173) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 1= 83) . 184) . 185) (188 (189 . 193) (194 . 195) (196 . 197) . 198) . 199)) 1= 46 198 (("cl-defun" [&or name ("setf" :name setf name)] cl-lambda-list cl-d= eclarations-or-string [&optional ("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 60657 8869) (symbols 48 8240 1) (strings 32 21020 1889) (string-bytes 1 684567) (vectors 16 12144) (vector-slots 8 169116 5378) (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 unknown Sun Jun 15 08:50:18 2025 X-Loop: help-debbugs@gnu.org Subject: bug#40431: 27.0.90; Can't edebug cl-defuns with &aux destructuring Resent-From: Andreas Schwab Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 04 Apr 2020 16:25:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 40431 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: Philipp Stephani Cc: 40431@debbugs.gnu.org Received: via spool by 40431-submit@debbugs.gnu.org id=B40431.158601746930028 (code B ref 40431); Sat, 04 Apr 2020 16:25:01 +0000 Received: (at 40431) by debbugs.gnu.org; 4 Apr 2020 16:24:29 +0000 Received: from localhost ([127.0.0.1]:44642 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jKlav-0007oG-Bi for submit@debbugs.gnu.org; Sat, 04 Apr 2020 12:24:29 -0400 Received: from mail-out.m-online.net ([212.18.0.10]:39718) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jKlas-0007o6-N0 for 40431@debbugs.gnu.org; Sat, 04 Apr 2020 12:24:27 -0400 Received: from frontend01.mail.m-online.net (unknown [192.168.8.182]) by mail-out.m-online.net (Postfix) with ESMTP id 48vhvs3Cb6z1rlhj; Sat, 4 Apr 2020 18:24:25 +0200 (CEST) Received: from localhost (dynscan1.mnet-online.de [192.168.6.70]) by mail.m-online.net (Postfix) with ESMTP id 48vhvs0M7Pz1r0bc; Sat, 4 Apr 2020 18:24:25 +0200 (CEST) X-Virus-Scanned: amavisd-new at mnet-online.de Received: from mail.mnet-online.de ([192.168.8.182]) by localhost (dynscan1.mail.m-online.net [192.168.6.70]) (amavisd-new, port 10024) with ESMTP id QrjBS4JgfHDr; Sat, 4 Apr 2020 18:24:24 +0200 (CEST) X-Auth-Info: zaX1LGGmcQon6HV5GZGnTeoqAap5W5B/y0VpM6SG9lUahSs6JR3Fh+xLXC6zDj2i Received: from igel.home (ppp-46-244-179-114.dynamic.mnet-online.de [46.244.179.114]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by mail.mnet-online.de (Postfix) with ESMTPSA; Sat, 4 Apr 2020 18:24:24 +0200 (CEST) Received: by igel.home (Postfix, from userid 1000) id BC2932C0F15; Sat, 4 Apr 2020 18:24:23 +0200 (CEST) From: Andreas Schwab References: X-Yow: I feel real SOPHISTICATED being in FRANCE! Date: Sat, 04 Apr 2020 18:24:23 +0200 In-Reply-To: (Philipp Stephani's message of "Sat, 04 Apr 2020 18:17:52 +0200") Message-ID: <87y2rb43t4.fsf@igel.home> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.90 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: -0.4 (/) 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.4 (-) On Apr 04 2020, Philipp Stephani wrote: > Insert into *scratch*: > > (cl-defun foo (&aux ((a . b) '(1 . 2))) > (list a b)) > > Now try to edebug this function (move point into it, hit C-u C-M-x). > This gives an error: > > Debugger entered--Lisp error: (invalid-read-syntax "Expected one of" arg nil) Did you load cl-macs before running edebug? Andreas. -- Andreas Schwab, schwab@linux-m68k.org GPG Key fingerprint = 7578 EB47 D4E5 4D69 2510 2552 DF73 E780 A9DA AEC1 "And now for something completely different." From unknown Sun Jun 15 08:50:18 2025 X-Loop: help-debbugs@gnu.org Subject: bug#40431: 27.0.90; Can't edebug cl-defuns with &aux destructuring Resent-From: Philipp Stephani Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 04 Apr 2020 16:28:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 40431 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: Andreas Schwab Cc: 40431@debbugs.gnu.org Received: via spool by 40431-submit@debbugs.gnu.org id=B40431.158601764630695 (code B ref 40431); Sat, 04 Apr 2020 16:28:01 +0000 Received: (at 40431) by debbugs.gnu.org; 4 Apr 2020 16:27:26 +0000 Received: from localhost ([127.0.0.1]:44648 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jKldl-0007yy-OG for submit@debbugs.gnu.org; Sat, 04 Apr 2020 12:27:25 -0400 Received: from mail-ot1-f48.google.com ([209.85.210.48]:44820) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jKldk-0007yX-Rp for 40431@debbugs.gnu.org; Sat, 04 Apr 2020 12:27:25 -0400 Received: by mail-ot1-f48.google.com with SMTP id a49so10640734otc.11 for <40431@debbugs.gnu.org>; Sat, 04 Apr 2020 09:27:24 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=mime-version:references:in-reply-to:from:date:message-id:subject:to :cc; bh=2/RgN3fPYyHNK2pC91tHxtmwrVfwRFH7kLIeK2NDhDs=; b=dtwFVCGeukcF8PAA4XMMY7y94grWbSdPcoMHEqDM4Df8CrzFUOtsZhmIzpDwdp9aH8 zz120YO4igkvGgMoG+t4A8gp1mao5616xM9LRXezvardtr7lN36HnVCiOT25B7119UEq 9nUODph6okUPCIuNpdSa9LCPlMgFZqjRm3FpxPp1+2KU6vAmdNZcWWHYx1TkWhmfpnFV CDbbPLpdOrjLwcaDmFqxKCDI+sfut2dptV29TXTaKpPAz4ZAWQC4zftKT4ygSq6QIbpO HahBtxPRygYbt0/nnSJxOHfAz87bt4jmCToTDcx6XS7xLsRD/IYK9l09fWau7oXMjecf pRJg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:references:in-reply-to:from:date :message-id:subject:to:cc; bh=2/RgN3fPYyHNK2pC91tHxtmwrVfwRFH7kLIeK2NDhDs=; b=eCN7Fet/BYSiBFtcPWnXucercwO8fIWOXHrMy+ty3PPJc/B2nvMLU/QPPhJsbl4FSZ cVPqq07b+cpRej6aYmft0hdWPLIbMVTulhcCB3CtGos5VZ40PRL29afSr7qsYuJ7W6+v l41GS1CYLwMozVkzeAKGdrGx4kb0Hd9oQlSzbsSmAHFWMJQKjjoXuC5UKNDO43tnvSgF 1zEOiQ887HW7aCMktOR9jsnH8RDm85eXHeLoxwrSXOGLEY0PvQLB5uFJz4vwSveuCvQ4 LMuIY2YtzMjLmwOgKXBi6dFODbarJRFxPwMlOrcYR/i2gGugqWOoXl2GNWMDIeoTcqGX jJ5w== X-Gm-Message-State: AGi0PuZg5efTCbpuE9DGlnJA3iGAXR4SSmSTD8CbgoDNb4dZhme4p/3F q8hin9etOmFVXqvN6I0+Zbfy4vREYXu5dlhLA7nHnw== X-Google-Smtp-Source: APiQypIiGqoXvZhQXuX5JR3T1n5Z03nIWvwbiBnAYWhlpbululuHodxiqJN/jh15JY0AbzKCSTpXV4HLnKcpdUiKU0M= X-Received: by 2002:a4a:3854:: with SMTP id o20mr11163795oof.69.1586017639061; Sat, 04 Apr 2020 09:27:19 -0700 (PDT) MIME-Version: 1.0 References: <87y2rb43t4.fsf@igel.home> In-Reply-To: <87y2rb43t4.fsf@igel.home> From: Philipp Stephani Date: Sat, 4 Apr 2020 18:27:08 +0200 Message-ID: Content-Type: text/plain; charset="UTF-8" X-Spam-Score: 0.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: -0.7 (/) Am Sa., 4. Apr. 2020 um 18:24 Uhr schrieb Andreas Schwab : > > On Apr 04 2020, Philipp Stephani wrote: > > > Insert into *scratch*: > > > > (cl-defun foo (&aux ((a . b) '(1 . 2))) > > (list a b)) > > > > Now try to edebug this function (move point into it, hit C-u C-M-x). > > This gives an error: > > > > Debugger entered--Lisp error: (invalid-read-syntax "Expected one of" arg nil) > > Did you load cl-macs before running edebug? > No, but it also doesn't seem to make a difference. 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 Sun Jun 15 08:50:18 2025 X-Loop: help-debbugs@gnu.org Subject: bug#40431: 27.0.90; Can't edebug cl-defuns with &aux destructuring Resent-From: Philipp Stephani Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 10 Jun 2020 11:34:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 40431 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: confirmed To: 40431@debbugs.gnu.org Received: via spool by 40431-submit@debbugs.gnu.org id=B40431.159178879313165 (code B ref 40431); Wed, 10 Jun 2020 11:34:02 +0000 Received: (at 40431) by debbugs.gnu.org; 10 Jun 2020 11:33:13 +0000 Received: from localhost ([127.0.0.1]:33500 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jiyyn-0003QH-Hn for submit@debbugs.gnu.org; Wed, 10 Jun 2020 07:33:13 -0400 Received: from mail-oo1-f43.google.com ([209.85.161.43]:39794) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jiyyl-0003Q2-Od for 40431@debbugs.gnu.org; Wed, 10 Jun 2020 07:33:12 -0400 Received: by mail-oo1-f43.google.com with SMTP id x17so419326oog.6 for <40431@debbugs.gnu.org>; Wed, 10 Jun 2020 04:33:11 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=mime-version:references:in-reply-to:from:date:message-id:subject:to; bh=USnfymr9rsgz8kHfFMqZnAvMTpxIpLgawQhVXrlBV90=; b=csDl+0uARZIUhsoOYuzaa3tuZAWGzN9sJdopIidoz7qjJu+AdZsfKpklxuaWq14NjX TU/sfsCDT4UEmtM9VP9BrDe5yRg7aGzdN8n2dfpuuPwBLAvVqd006h0UmNJK8mi24A3+ kPkF8cmFena4eubnrLDcd1A23rYbfkwokrlyt/+x840p2ySZOlr7c1e2YI0v5+wV3i3E EDgsEr+mg4Z2JU5IFyYSnDnB4kzw+R3xhqqs/1mPZPf97KYl1MPcpcaHz20ScfbDeLuG PY3tkBxBMUr4eaR0jlEwV0ei0lIb7GpldJSeYRnsywNhGaRs6kwc0AvlYF4OUnxGn1dv ufcQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:references:in-reply-to:from:date :message-id:subject:to; bh=USnfymr9rsgz8kHfFMqZnAvMTpxIpLgawQhVXrlBV90=; b=cs8iNpxnLJG/wTNUzMx/f/wSe1MV3n0aymH8eIO1Fl7iD1Lg5xNS5wUBxpRD0yIhOU 0erqeT2Wu/ZaV/pQhDIfPkjMufJw6OnAXPD1tmm+Z7EARJXfQCr0qCExeTlObWJ6OsM1 qVahWa0WCncoZURsPjgd/NP8xb5fLY8R6BoVj77dln0m9uMwv0TZkG3lc4rLR9GDMKr+ lQplfAPUtAwi6mkb7NFM8D/xlyKp3qfVZlP4S+Twb79/Bxw/Pf/ID4kC3YS80BtnG/5a qsWRToAFwzP5PuCqpqEImcIn92O7r5YzdOUyPAblicFPMfL94RUs6udoWb6P8A0ufKAy cjbQ== X-Gm-Message-State: AOAM5304aoKfoigR/XDUW3/d9loVCz5GiN+w/JeGF1y8+SP60sfTG7cH oJQJswpT4Brbh2yGWpBwg6lNt1Zyx6nasPfIJ5VURPip2/o= X-Google-Smtp-Source: ABdhPJy0CY/AWZQvR5+PzZhw8KInrW9gc2XEpb0W8j0tkIXzh/iwtHsLJXWpC6t8G+qn4QiOYbYqRAiqRqpoXfi1wRA= X-Received: by 2002:a4a:2c88:: with SMTP id o130mr2007506ooo.81.1591788785583; Wed, 10 Jun 2020 04:33:05 -0700 (PDT) MIME-Version: 1.0 References: In-Reply-To: From: Philipp Stephani Date: Wed, 10 Jun 2020 13:32:54 +0200 Message-ID: Content-Type: text/plain; charset="UTF-8" X-Spam-Score: 0.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: -0.7 (/) Am Sa., 4. Apr. 2020 um 18:19 Uhr schrieb Philipp Stephani : > > > Insert into *scratch*: > > (cl-defun foo (&aux ((a . b) '(1 . 2))) > (list a b)) > > Now try to edebug this function (move point into it, hit C-u C-M-x). > This gives an error: > > Debugger entered--Lisp error: (invalid-read-syntax "Expected one of" arg nil) My guess is that in the specification ["&aux" &rest &or (symbolp &optional def-form) symbolp] we should replace 'symbolp' with 'cl-macro-arg'. This might cause other issues, however, as that specification is probably no longer decidable. From unknown Sun Jun 15 08:50:18 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: Philipp Stephani Subject: bug#40431: closed (Re: bug#40431: 27.0.90; Can't edebug cl-defuns with &aux destructuring) Message-ID: References: X-Gnu-PR-Message: they-closed 40431 X-Gnu-PR-Package: emacs X-Gnu-PR-Keywords: confirmed Reply-To: 40431@debbugs.gnu.org Date: Wed, 10 Jun 2020 13:44:02 +0000 Content-Type: multipart/mixed; boundary="----------=_1591796642-25612-1" This is a multi-part message in MIME format... ------------=_1591796642-25612-1 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset="utf-8" Your bug report #40431: 27.0.90; Can't edebug cl-defuns with &aux destructuring 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 40431@debbugs.gnu.org. --=20 40431: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D40431 GNU Bug Tracking System Contact help-debbugs@gnu.org with problems ------------=_1591796642-25612-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at 40431-done) by debbugs.gnu.org; 10 Jun 2020 13:43:23 +0000 Received: from localhost ([127.0.0.1]:33599 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jj10k-0006dp-Uq for submit@debbugs.gnu.org; Wed, 10 Jun 2020 09:43:23 -0400 Received: from mail-ot1-f45.google.com ([209.85.210.45]:42821) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jj10j-0006db-H8 for 40431-done@debbugs.gnu.org; Wed, 10 Jun 2020 09:43:21 -0400 Received: by mail-ot1-f45.google.com with SMTP id t6so1706605otk.9 for <40431-done@debbugs.gnu.org>; Wed, 10 Jun 2020 06:43:21 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=mime-version:references:in-reply-to:from:date:message-id:subject:to; bh=5VhaiNBMuZog1g6S1m+iDqE6SMxaffm8wDUNfrIS0rc=; b=PfTvqE7bDRH5M4VMmAK+DKzmolpQQ7tKpsx9QWzoa5AnZuoTL6u7unVdQVA9zJFmW/ RZZLwZXyZPAooUqT43IpPg5xydoUHDWmdb1pbtwrd3d9nJAtWon6Y9aiCRkodPdN8srV NzE/4CRYNg9ZzNue7lYwtHdOlR51bMwqFiKzJ0b0zQL3sZL8lslyx3IVXskM7pIPaAHh oL4tEHOIhWijNOKzVwu79irq0/2SdJvTm+Gwg24YD3Ay3l/ti464msvFI5A5+O3l+Tnb 34w81kCqmZ5EUPaGVOsvT3EzrXQWgQAcuMvhalgdPvO6USc0Dyc7cBwYCGdIdLGOXsSG rwzQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:references:in-reply-to:from:date :message-id:subject:to; bh=5VhaiNBMuZog1g6S1m+iDqE6SMxaffm8wDUNfrIS0rc=; b=CloTZ6qgW/JIqjRPb2oR255lN00nwOtYS3HT+AHmTo1tzZ7kBqMpDNv40d/he0iWy8 AsjMpoJ+NYpEbgaVNoxoQANTozJV5uxtpZG+kUA4I/bHBSepFBGs4ikdKcwbvtkHUdjH 269No44pTVBz1fC0tTs5yrAphIBketd5KVYxsyF5lUWu+rPxvJI0ZUTzPSN9kOGLVln8 mV9nxPGzELGgc+hu9PhrMGrMLkiMTFwJWwyM9yApvKpPDIhuMMCHq/WVKznWgAT1Yb2u hBYIpKMehfKCtESJUswcX7fLpm31pLcupxRCI00gJ5vvRM/qRNDSKsc2FvSaMbMeXAOg ZmOA== X-Gm-Message-State: AOAM530jEMExxZbJFxw3sF/JtUEyYaORDGafss1O46vIueZJSI80I9n0 HUyyyS/Hmmem/tj26/BAU3ad3Tx756YZwCWSR+47sUjbHKk= X-Google-Smtp-Source: ABdhPJy3wHYmaMOuZBELIp/6KclRSvT8+jDKPAtkueTHG18v59nI0mtPs2efrZW+vTUF09U3F0CpUAkk7Nhfck7sebE= X-Received: by 2002:a9d:2d88:: with SMTP id g8mr2503300otb.149.1591796595494; Wed, 10 Jun 2020 06:43:15 -0700 (PDT) MIME-Version: 1.0 References: In-Reply-To: From: Philipp Stephani Date: Wed, 10 Jun 2020 15:43:03 +0200 Message-ID: Subject: Re: bug#40431: 27.0.90; Can't edebug cl-defuns with &aux destructuring To: 40431-done@debbugs.gnu.org Content-Type: text/plain; charset="UTF-8" X-Spam-Score: 0.3 (/) X-Debbugs-Envelope-To: 40431-done 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.7 (/) Am Mi., 10. Juni 2020 um 13:32 Uhr schrieb Philipp Stephani : > > Am Sa., 4. Apr. 2020 um 18:19 Uhr schrieb Philipp Stephani > : > > > > > > Insert into *scratch*: > > > > (cl-defun foo (&aux ((a . b) '(1 . 2))) > > (list a b)) > > > > Now try to edebug this function (move point into it, hit C-u C-M-x). > > This gives an error: > > > > Debugger entered--Lisp error: (invalid-read-syntax "Expected one of" arg nil) > > My guess is that in the specification > > ["&aux" &rest &or (symbolp &optional def-form) symbolp] > > we should replace 'symbolp' with 'cl-macro-arg'. This might cause > other issues, however, as that specification is probably no longer > decidable. Actually, &optional uses the same thing, which appears to work fine, so I went ahead and implemented this with commit 73be4d1ed5b190bd93e9bad6aebe43d0dea0d7d3. ------------=_1591796642-25612-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at submit) by debbugs.gnu.org; 4 Apr 2020 16:18:05 +0000 Received: from localhost ([127.0.0.1]:44631 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jKlUi-0007Ro-9G for submit@debbugs.gnu.org; Sat, 04 Apr 2020 12:18:04 -0400 Received: from lists.gnu.org ([209.51.188.17]:37038) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jKlUg-0007Rc-D3 for submit@debbugs.gnu.org; Sat, 04 Apr 2020 12:18:03 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:53984) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jKlUd-0004Kf-Ra for bug-gnu-emacs@gnu.org; Sat, 04 Apr 2020 12:18:02 -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 1jKlUb-0001zD-Et for bug-gnu-emacs@gnu.org; Sat, 04 Apr 2020 12:17:59 -0400 Received: from mail-wr1-x42d.google.com ([2a00:1450:4864:20::42d]:35463) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1jKlUb-0001yk-4u for bug-gnu-emacs@gnu.org; Sat, 04 Apr 2020 12:17:57 -0400 Received: by mail-wr1-x42d.google.com with SMTP id g3so9969815wrx.2 for ; Sat, 04 Apr 2020 09:17:56 -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=fJZ/wKwFZHfrVGskthwKLFB7N7dMngy+rjBV65//d8Y=; b=iBhrJpPRp/3hGO4YRQiUlSrW3Rnd1EExlXuhO+6OlzkmhPRz620c8T2gRPGArpst1Z HVuPjP3b8D5dyde2Vp2uV4VENmFjeNnCFrFRux7wjBeYCgkK8V13vWcW8hTqb614gt2x +ZYqXa7GY0XNdY0cQX1HoB94VgDsTUyGRO/oNnlvcmaMXYg0FeK77vfCrfyDspUob60v ETnHtE9dKlzthn2OLmYoq1Ds31B1osMy/OLIeVjzrUO2F4gIk0jx5oVE4iSNgDtZY36m jCZ+uKnWxM6w3qorx+xnxbl0+g/FRc+fXlokFTzFf4X9cZK4I+RC6zvZCSv5PEyr3zh9 +Xqg== 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=fJZ/wKwFZHfrVGskthwKLFB7N7dMngy+rjBV65//d8Y=; b=nsy9HcUuaU/lRhExpkjH4q2BDA/n/FoHVQPYn96+hScoRVMvQDrkS0LfZ+3uygrcy7 Nl4edr46V/9IzMKMDRV+B8w3s5pBweGUePou3FN1Ox3wTL+xmi4GhWjbkU5F4S0weGMU ho4KjWKKwZbk5ZPWdL6gvaH75q8ryL0ojaedjIvOaZQw5YX8UqqaflcX0tFNZSaY3iuI sOpZrX9jQgye3EsKR/Y4kExU8zOijz2z0yAA8lfJ1zm0aRkxlo5t5g7rtRCdprhKlx7p 2iQD0YPzXukYcLeFKKsf9YdY/W5PPgEKDMB69kpcuLGeBx513MOxrrFvyYaJEFN5YV80 lENQ== X-Gm-Message-State: AGi0PuYLdPeXx9LGFkLzno7VELILNNQeAaHla7mz4uGzk4uup/8BZ3hu jgoRm4G8K1YmjNkf2P5glsE08tWb X-Google-Smtp-Source: APiQypIgBFinn+31aZuBeq5W2IEDbjEsSfjpZhLwPGkbtd9PgbqAR/MOR0DJM7Oa84sPdqYnaxzZTA== X-Received: by 2002:adf:f88b:: with SMTP id u11mr14663226wrp.84.1586017074360; Sat, 04 Apr 2020 09:17:54 -0700 (PDT) Received: from phst1 ([2a02:2455:2a2:100:c351:ffcc:5d8e:4288]) by smtp.gmail.com with ESMTPSA id g2sm16772265wrs.42.2020.04.04.09.17.53 for (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Sat, 04 Apr 2020 09:17:53 -0700 (PDT) From: Philipp Stephani To: bug-gnu-emacs@gnu.org Subject: 27.0.90; Can't edebug cl-defuns with &aux destructuring Date: Sat, 04 Apr 2020 18:17:52 +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::42d 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*: (cl-defun foo (&aux ((a . b) '(1 . 2))) (list a b)) Now 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-Debbugs-Envelope-To: submit 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*: (cl-defun foo (&aux ((a . b) '(1 . 2))) (list a b)) Now try to edebug this function (move point into it, hit C-u C-M-x). This gives an error: Debugger entered--Lisp error: (invalid-read-syntax "Expected one of" arg ni= l) signal(invalid-read-syntax ("Expected one of" arg nil)) edebug-syntax-error("Expected one of" arg nil) apply(edebug-syntax-error ("Expected one of" arg nil)) edebug-no-match(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . 173) .= 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 184) . = 185) "Expected one of" arg nil) apply(edebug-no-match ((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . = 173) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 1= 84) . 185) "Expected one of" (arg nil)) edebug-match-&or(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . 173) = . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 184) .= 185) (arg nil)) edebug-match-specs(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . 173= ) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 184)= . 185) (&or arg nil) edebug-match-specs) edebug-match(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . 173) . 17= 4) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 184) . 185= ) (&or arg nil)) edebug-match-one-spec(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . = 173) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 1= 84) . 185) [&or arg nil]) edebug-match-specs(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . 173= ) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 184)= . 185) ([&or arg nil]) edebug-match-specs) edebug-match-specs(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . 173= ) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 184)= . 185) [&or arg nil] edebug-match-specs) edebug-match-specs(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . 173= ) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 184)= . 185) ([&optional ["&aux" &rest &or (symbolp &optional def-form) symbolp]= ] . [&or arg nil]) edebug-match-specs) edebug-match-specs(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . 173= ) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 184)= . 185) ([&optional ["&key" [cl-&key-arg &rest cl-&key-arg] &optional "&all= ow-other-keys"]] [&optional ["&aux" &rest &or (symbolp &optional def-form) = symbolp]] . [&or arg nil]) edebug-match-specs) edebug-match-specs(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . 173= ) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 184)= . 185) ([&optional ["&rest" cl-lambda-arg]] [&optional ["&key" [cl-&key-ar= g &rest cl-&key-arg] &optional "&allow-other-keys"]] [&optional ["&aux" &re= st &or (symbolp &optional def-form) symbolp]] . [&or arg nil]) edebug-match= -specs) edebug-match-specs(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . 173= ) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 184)= . 185) ([&optional ["&optional" cl-&optional-arg &rest cl-&optional-arg]] = [&optional ["&rest" cl-lambda-arg]] [&optional ["&key" [cl-&key-arg &rest c= l-&key-arg] &optional "&allow-other-keys"]] [&optional ["&aux" &rest &or (s= ymbolp &optional def-form) symbolp]] . [&or arg nil]) edebug-match-specs) edebug-match-specs(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . 173= ) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 184)= . 185) ([&rest cl-lambda-arg] [&optional ["&optional" cl-&optional-arg &re= st cl-&optional-arg]] [&optional ["&rest" cl-lambda-arg]] [&optional ["&key= " [cl-&key-arg &rest cl-&key-arg] &optional "&allow-other-keys"]] [&optiona= l ["&aux" &rest &or (symbolp &optional def-form) symbolp]] . [&or arg nil])= edebug-match-specs) edebug-match-sublist(((((a . b) '(1 . 2))) (166 (167 (168 . 169) (171 . 1= 73) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 18= 4) . 185) ([&rest cl-lambda-arg] [&optional ["&optional" cl-&optional-arg &= rest cl-&optional-arg]] [&optional ["&rest" cl-lambda-arg]] [&optional ["&k= ey" [cl-&key-arg &rest cl-&key-arg] &optional "&allow-other-keys"]] [&optio= nal ["&aux" &rest &or (symbolp &optional def-form) symbolp]] . [&or arg nil= ])) edebug-match-list((((&aux ((a . b) '(1 . 2))) (list a b)) (160 (161 . 165= ) (166 (167 (168 . 169) (171 . 173) . 174) (175 (175 . 176) (176 (177 . 178= ) (180 . 182) . 183) . 183) . 184) . 185) (188 (189 . 193) (194 . 195) (196= . 197) . 198) . 199) ([&rest cl-lambda-arg] [&optional ["&optional" cl-&op= tional-arg &rest cl-&optional-arg]] [&optional ["&rest" cl-lambda-arg]] [&o= ptional ["&key" [cl-&key-arg &rest cl-&key-arg] &optional "&allow-other-key= s"]] [&optional ["&aux" &rest &or (symbolp &optional def-form) symbolp]] . = [&or arg nil])) edebug-match-one-spec((((&aux ((a . b) '(1 . 2))) (list a b)) (160 (161 .= 165) (166 (167 (168 . 169) (171 . 173) . 174) (175 (175 . 176) (176 (177 .= 178) (180 . 182) . 183) . 183) . 184) . 185) (188 (189 . 193) (194 . 195) = (196 . 197) . 198) . 199) ([&rest cl-lambda-arg] [&optional ["&optional" cl= -&optional-arg &rest cl-&optional-arg]] [&optional ["&rest" cl-lambda-arg]]= [&optional ["&key" [cl-&key-arg &rest cl-&key-arg] &optional "&allow-other= -keys"]] [&optional ["&aux" &rest &or (symbolp &optional def-form) symbolp]= ] . [&or arg nil])) edebug-match-specs((((&aux ((a . b) '(1 . 2))) (list a b)) (160 (161 . 16= 5) (166 (167 (168 . 169) (171 . 173) . 174) (175 (175 . 176) (176 (177 . 17= 8) (180 . 182) . 183) . 183) . 184) . 185) (188 (189 . 193) (194 . 195) (19= 6 . 197) . 198) . 199) (([&rest cl-lambda-arg] [&optional ["&optional" cl-&= optional-arg &rest cl-&optional-arg]] [&optional ["&rest" cl-lambda-arg]] [= &optional ["&key" [cl-&key-arg &rest cl-&key-arg] &optional "&allow-other-k= eys"]] [&optional ["&aux" &rest &or (symbolp &optional def-form) symbolp]] = . [&or arg nil])) edebug-match-specs) edebug-match((((&aux ((a . b) '(1 . 2))) (list a b)) (160 (161 . 165) (16= 6 (167 (168 . 169) (171 . 173) . 174) (175 (175 . 176) (176 (177 . 178) (18= 0 . 182) . 183) . 183) . 184) . 185) (188 (189 . 193) (194 . 195) (196 . 19= 7) . 198) . 199) (([&rest cl-lambda-arg] [&optional ["&optional" cl-&option= al-arg &rest cl-&optional-arg]] [&optional ["&rest" cl-lambda-arg]] [&optio= nal ["&key" [cl-&key-arg &rest cl-&key-arg] &optional "&allow-other-keys"]]= [&optional ["&aux" &rest &or (symbolp &optional def-form) symbolp]] . [&or= arg nil]))) edebug-match-symbol((((&aux ((a . b) '(1 . 2))) (list a b)) (160 (161 . 1= 65) (166 (167 (168 . 169) (171 . 173) . 174) (175 (175 . 176) (176 (177 . 1= 78) (180 . 182) . 183) . 183) . 184) . 185) (188 (189 . 193) (194 . 195) (1= 96 . 197) . 198) . 199) cl-lambda-list) edebug-match-one-spec((((&aux ((a . b) '(1 . 2))) (list a b)) (160 (161 .= 165) (166 (167 (168 . 169) (171 . 173) . 174) (175 (175 . 176) (176 (177 .= 178) (180 . 182) . 183) . 183) . 184) . 185) (188 (189 . 193) (194 . 195) = (196 . 197) . 198) . 199) cl-lambda-list) edebug-match-specs((((&aux ((a . b) '(1 . 2))) (list a b)) (160 (161 . 16= 5) (166 (167 (168 . 169) (171 . 173) . 174) (175 (175 . 176) (176 (177 . 17= 8) (180 . 182) . 183) . 183) . 184) . 185) (188 (189 . 193) (194 . 195) (19= 6 . 197) . 198) . 199) (cl-lambda-list cl-declarations-or-string [&optional= ("interactive" interactive)] def-body) edebug-match-specs) edebug-match-specs((((&aux ((a . b) '(1 . 2))) (list a b)) (160 (161 . 16= 5) (166 (167 (168 . 169) (171 . 173) . 174) (175 (175 . 176) (176 (177 . 17= 8) (180 . 182) . 183) . 183) . 184) . 185) (188 (189 . 193) (194 . 195) (19= 6 . 197) . 198) . 199) ([&or name ("setf" :name setf name)] cl-lambda-list = cl-declarations-or-string [&optional ("interactive" interactive)] def-body)= edebug-match-specs) edebug-match-specs((((&aux ((a . b) '(1 . 2))) (list a b)) (160 (161 . 16= 5) (166 (167 (168 . 169) (171 . 173) . 174) (175 (175 . 176) (176 (177 . 17= 8) (180 . 182) . 183) . 183) . 184) . 185) (188 (189 . 193) (194 . 195) (19= 6 . 197) . 198) . 199) ("cl-defun" [&or name ("setf" :name setf name)] cl-l= ambda-list cl-declarations-or-string [&optional ("interactive" interactive)= ] def-body) edebug-match-specs) edebug-match-sublist((((&aux ((a . b) '(1 . 2))) (list a b)) (160 (161 . = 165) (166 (167 (168 . 169) (171 . 173) . 174) (175 (175 . 176) (176 (177 . = 178) (180 . 182) . 183) . 183) . 184) . 185) (188 (189 . 193) (194 . 195) (= 196 . 197) . 198) . 199) ("cl-defun" [&or name ("setf" :name setf name)] cl= -lambda-list cl-declarations-or-string [&optional ("interactive" interactiv= e)] def-body)) edebug-match-list((((cl-defun foo (&aux ((a . b) '(1 . 2))) (list a b))) = (146 (147 . 155) (156 . 159) (160 (161 . 165) (166 (167 (168 . 169) (171 . = 173) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 1= 84) . 185) (188 (189 . 193) (194 . 195) (196 . 197) . 198) . 199)) ("cl-def= un" [&or name ("setf" :name setf name)] cl-lambda-list cl-declarations-or-s= tring [&optional ("interactive" interactive)] def-body)) edebug-match-one-spec((((cl-defun foo (&aux ((a . b) '(1 . 2))) (list a b= ))) (146 (147 . 155) (156 . 159) (160 (161 . 165) (166 (167 (168 . 169) (17= 1 . 173) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183)= . 184) . 185) (188 (189 . 193) (194 . 195) (196 . 197) . 198) . 199)) ("cl= -defun" [&or name ("setf" :name setf name)] cl-lambda-list cl-declarations-= or-string [&optional ("interactive" interactive)] def-body)) edebug-match-specs((((cl-defun foo (&aux ((a . b) '(1 . 2))) (list a b)))= (146 (147 . 155) (156 . 159) (160 (161 . 165) (166 (167 (168 . 169) (171 .= 173) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . = 184) . 185) (188 (189 . 193) (194 . 195) (196 . 197) . 198) . 199)) (("cl-d= efun" [&or name ("setf" :name setf name)] cl-lambda-list cl-declarations-or= -string [&optional ("interactive" interactive)] def-body)) edebug-match-spe= cs) edebug-match((((cl-defun foo (&aux ((a . b) '(1 . 2))) (list a b))) (146 = (147 . 155) (156 . 159) (160 (161 . 165) (166 (167 (168 . 169) (171 . 173) = . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 183) . 184) .= 185) (188 (189 . 193) (194 . 195) (196 . 197) . 198) . 199)) (("cl-defun" = [&or name ("setf" :name setf name)] cl-lambda-list cl-declarations-or-strin= g [&optional ("interactive" interactive)] def-body))) edebug-make-form-wrapper((((cl-defun foo (&aux ((a . b) '(1 . 2))) (list = a b))) (146 (147 . 155) (156 . 159) (160 (161 . 165) (166 (167 (168 . 169) = (171 . 173) . 174) (175 (175 . 176) (176 (177 . 178) (180 . 182) . 183) . 1= 83) . 184) . 185) (188 (189 . 193) (194 . 195) (196 . 197) . 198) . 199)) 1= 46 198 (("cl-defun" [&or name ("setf" :name setf name)] cl-lambda-list cl-d= eclarations-or-string [&optional ("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 60657 8869) (symbols 48 8240 1) (strings 32 21020 1889) (string-bytes 1 684567) (vectors 16 12144) (vector-slots 8 169116 5378) (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. ------------=_1591796642-25612-1--