From unknown Mon Jun 23 13:14:09 2025 X-Loop: help-debbugs@gnu.org Subject: bug#24430: 25.1.50; incorrect edebug spec for cl-defstruct Resent-From: Gemini Lasswell Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 13 Sep 2016 19:21:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 24430 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: 24430@debbugs.gnu.org X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.14737944544379 (code B ref -1); Tue, 13 Sep 2016 19:21:02 +0000 Received: (at submit) by debbugs.gnu.org; 13 Sep 2016 19:20:54 +0000 Received: from localhost ([127.0.0.1]:58909 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bjtGH-00018Y-J8 for submit@debbugs.gnu.org; Tue, 13 Sep 2016 15:20:54 -0400 Received: from eggs.gnu.org ([208.118.235.92]:51537) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bjtGE-00018K-OF for submit@debbugs.gnu.org; Tue, 13 Sep 2016 15:20:51 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bjtG7-0005fv-0L for submit@debbugs.gnu.org; Tue, 13 Sep 2016 15:20:45 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=0.8 required=5.0 tests=BAYES_50,FREEMAIL_FROM autolearn=disabled version=3.3.2 Received: from lists.gnu.org ([2001:4830:134:3::11]:45955) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bjtG6-0005fO-N3 for submit@debbugs.gnu.org; Tue, 13 Sep 2016 15:20:42 -0400 Received: from eggs.gnu.org ([2001:4830:134:3::10]:42459) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bjtG2-0005f4-Pn for bug-gnu-emacs@gnu.org; Tue, 13 Sep 2016 15:20:41 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bjtFz-0005cl-EM for bug-gnu-emacs@gnu.org; Tue, 13 Sep 2016 15:20:38 -0400 Received: from aibo.runbox.com ([91.220.196.211]:44932) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bjtFy-0005bk-Nl for bug-gnu-emacs@gnu.org; Tue, 13 Sep 2016 15:20:35 -0400 Received: from [10.9.9.210] (helo=mailfront10.runbox.com) by bars.runbox.com with esmtp (Exim 4.71) (envelope-from ) id 1bjtFw-000438-1i for bug-gnu-emacs@gnu.org; Tue, 13 Sep 2016 21:20:32 +0200 Received: from c-24-22-244-161.hsd1.wa.comcast.net ([24.22.244.161] helo=[172.20.1.143]) by mailfront10.runbox.com with esmtpsa (uid:179284 ) (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:256) (Exim 4.82) id 1bjtFT-0004QQ-Kj for bug-gnu-emacs@gnu.org; Tue, 13 Sep 2016 21:20:04 +0200 From: Gemini Lasswell Content-Type: multipart/mixed; boundary="Apple-Mail=_EEC583E9-A557-4228-A895-5ACCC730B635" Message-Id: Date: Tue, 13 Sep 2016 12:20:01 -0700 Mime-Version: 1.0 (Mac OS X Mail 9.3 \(3124\)) X-Mailer: Apple Mail (2.3124) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 2001:4830:134:3::11 X-Spam-Score: -4.1 (----) 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: -4.1 (----) --Apple-Mail=_EEC583E9-A557-4228-A895-5ACCC730B635 Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset=utf-8 Edebug fails to instrument code which uses cl-defstruct. I found an = example of the problem in Emacs=E2=80=99s source tree. Here are the = steps to reproduce it: 1. emacs -Q 2. C-x C-f emacs/lisp/emacs-lisp/avl-tree.el RET 3. M-x toggle-debug-on-error RET 4. M-x edebug-all-defs RET 5. M-x eval-buffer RET Result: invalid-read-syntax error. See attachment for backtrace. The = cursor is at :named in the code excerpt below: (cl-defstruct (avl-tree- ;; A tagged list is the pre-defstruct representation. ;; (:type list) :named (:constructor nil) (:constructor avl-tree--create (cmpfun)) (:predicate avl-tree-p) (:copier nil)) (dummyroot (avl-tree--node-create nil nil nil 0)) cmpfun) --Apple-Mail=_EEC583E9-A557-4228-A895-5ACCC730B635 Content-Disposition: attachment; filename=bug.txt Content-Type: text/plain; name="bug.txt" Content-Transfer-Encoding: quoted-printable Debugger entered--Lisp error: (invalid-read-syntax "Failed matching" = (gate symbolp &rest (&or [":conc-name" symbolp] [":constructor" symbolp = &optional cl-lambda-list] [":copier" symbolp] [":predicate" symbolp] = [":include" symbolp &rest sexp]))) signal(invalid-read-syntax ("Failed matching" (gate symbolp &rest (&or = [":conc-name" symbolp] [":constructor" symbolp &optional cl-lambda-list] = [":copier" symbolp] [":predicate" symbolp] [":include" symbolp &rest = sexp])))) edebug-syntax-error("Failed matching" (gate symbolp &rest (&or = [":conc-name" symbolp] [":constructor" symbolp &optional cl-lambda-list] = [":copier" symbolp] [":predicate" symbolp] [":include" symbolp &rest = sexp]))) apply(edebug-syntax-error ("Failed matching" (gate symbolp &rest (&or = [":conc-name" symbolp] [":constructor" symbolp &optional cl-lambda-list] = [":copier" symbolp] [":predicate" symbolp] [":include" symbolp &rest = sexp])))) edebug-no-match(((:named (:constructor nil) (:constructor = avl-tree--create (cmpfun)) (:predicate avl-tree-p) (:copier nil)) (2710 = . 2716) (2729 (2730 . 2742) (2743 . 2746) . 2747) (2760 (2761 . 2773) = (2774 . 2790) (2791 (2792 . 2798) . 2799) . 2800) (2813 (2814 . 2824) = (2825 . 2835) . 2836) (2849 (2850 . 2857) (2858 . 2861) . 2862) . 2863) = "Failed matching" (gate symbolp &rest (&or [":conc-name" symbolp] = [":constructor" symbolp &optional cl-lambda-list] [":copier" symbolp] = [":predicate" symbolp] [":include" symbolp &rest sexp]))) edebug-match-sublist(((:named (:constructor nil) (:constructor = avl-tree--create (cmpfun)) (:predicate avl-tree-p) (:copier nil)) (2710 = . 2716) (2729 (2730 . 2742) (2743 . 2746) . 2747) (2760 (2761 . 2773) = (2774 . 2790) (2791 (2792 . 2798) . 2799) . 2800) (2813 (2814 . 2824) = (2825 . 2835) . 2836) (2849 (2850 . 2857) (2858 . 2861) . 2862) . 2863) = (gate symbolp &rest (&or [":conc-name" symbolp] [":constructor" symbolp = &optional cl-lambda-list] [":copier" symbolp] [":predicate" symbolp] = [":include" symbolp &rest sexp]))) edebug-match-list((((avl-tree- :named (:constructor nil) (:constructor = avl-tree--create (cmpfun)) (:predicate avl-tree-p) (:copier nil)) = (dummyroot (avl-tree--node-create nil nil nil 0)) cmpfun) (2593 (2594 . = 2603) (2710 . 2716) (2729 (2730 . 2742) (2743 . 2746) . 2747) (2760 = (2761 . 2773) (2774 . 2790) (2791 (2792 . 2798) . 2799) . 2800) (2813 = (2814 . 2824) (2825 . 2835) . 2836) (2849 (2850 . 2857) (2858 . 2861) . = 2862) . 2863) (2866 (2867 . 2876) (2877 (2878 . 2899) (2900 . 2903) = (2904 . 2907) (2908 . 2911) (2912 . 2913) . 2914) . 2915) (2918 . 2924) = . 2925) (gate symbolp &rest (&or [":conc-name" symbolp] [":constructor" = symbolp &optional cl-lambda-list] [":copier" symbolp] [":predicate" = symbolp] [":include" symbolp &rest sexp]))) edebug-match-one-spec((((avl-tree- :named (:constructor nil) = (:constructor avl-tree--create (cmpfun)) (:predicate avl-tree-p) = (:copier nil)) (dummyroot (avl-tree--node-create nil nil nil 0)) cmpfun) = (2593 (2594 . 2603) (2710 . 2716) (2729 (2730 . 2742) (2743 . 2746) . = 2747) (2760 (2761 . 2773) (2774 . 2790) (2791 (2792 . 2798) . 2799) . = 2800) (2813 (2814 . 2824) (2825 . 2835) . 2836) (2849 (2850 . 2857) = (2858 . 2861) . 2862) . 2863) (2866 (2867 . 2876) (2877 (2878 . 2899) = (2900 . 2903) (2904 . 2907) (2908 . 2911) (2912 . 2913) . 2914) . 2915) = (2918 . 2924) . 2925) (gate symbolp &rest (&or [":conc-name" symbolp] = [":constructor" symbolp &optional cl-lambda-list] [":copier" symbolp] = [":predicate" symbolp] [":include" symbolp &rest sexp]))) edebug-match-&or((((avl-tree- :named (:constructor nil) (:constructor = avl-tree--create (cmpfun)) (:predicate avl-tree-p) (:copier nil)) = (dummyroot (avl-tree--node-create nil nil nil 0)) cmpfun) (2593 (2594 . = 2603) (2710 . 2716) (2729 (2730 . 2742) (2743 . 2746) . 2747) (2760 = (2761 . 2773) (2774 . 2790) (2791 (2792 . 2798) . 2799) . 2800) (2813 = (2814 . 2824) (2825 . 2835) . 2836) (2849 (2850 . 2857) (2858 . 2861) . = 2862) . 2863) (2866 (2867 . 2876) (2877 (2878 . 2899) (2900 . 2903) = (2904 . 2907) (2908 . 2911) (2912 . 2913) . 2914) . 2915) (2918 . 2924) = . 2925) (symbolp (gate symbolp &rest (&or [":conc-name" symbolp] = [":constructor" symbolp &optional cl-lambda-list] [":copier" symbolp] = [":predicate" symbolp] [":include" symbolp &rest sexp])))) edebug-match-specs((((avl-tree- :named (:constructor nil) = (:constructor avl-tree--create (cmpfun)) (:predicate avl-tree-p) = (:copier nil)) (dummyroot (avl-tree--node-create nil nil nil 0)) cmpfun) = (2593 (2594 . 2603) (2710 . 2716) (2729 (2730 . 2742) (2743 . 2746) . = 2747) (2760 (2761 . 2773) (2774 . 2790) (2791 (2792 . 2798) . 2799) . = 2800) (2813 (2814 . 2824) (2825 . 2835) . 2836) (2849 (2850 . 2857) = (2858 . 2861) . 2862) . 2863) (2866 (2867 . 2876) (2877 (2878 . 2899) = (2900 . 2903) (2904 . 2907) (2908 . 2911) (2912 . 2913) . 2914) . 2915) = (2918 . 2924) . 2925) (&or symbolp (gate symbolp &rest (&or = [":conc-name" symbolp] [":constructor" symbolp &optional cl-lambda-list] = [":copier" symbolp] [":predicate" symbolp] [":include" symbolp &rest = sexp]))) edebug-match-specs) edebug-match((((avl-tree- :named (:constructor nil) (:constructor = avl-tree--create (cmpfun)) (:predicate avl-tree-p) (:copier nil)) = (dummyroot (avl-tree--node-create nil nil nil 0)) cmpfun) (2593 (2594 . = 2603) (2710 . 2716) (2729 (2730 . 2742) (2743 . 2746) . 2747) (2760 = (2761 . 2773) (2774 . 2790) (2791 (2792 . 2798) . 2799) . 2800) (2813 = (2814 . 2824) (2825 . 2835) . 2836) (2849 (2850 . 2857) (2858 . 2861) . = 2862) . 2863) (2866 (2867 . 2876) (2877 (2878 . 2899) (2900 . 2903) = (2904 . 2907) (2908 . 2911) (2912 . 2913) . 2914) . 2915) (2918 . 2924) = . 2925) (&or symbolp (gate symbolp &rest (&or [":conc-name" symbolp] = [":constructor" symbolp &optional cl-lambda-list] [":copier" symbolp] = [":predicate" symbolp] [":include" symbolp &rest sexp])))) edebug-match-one-spec((((avl-tree- :named (:constructor nil) = (:constructor avl-tree--create (cmpfun)) (:predicate avl-tree-p) = (:copier nil)) (dummyroot (avl-tree--node-create nil nil nil 0)) cmpfun) = (2593 (2594 . 2603) (2710 . 2716) (2729 (2730 . 2742) (2743 . 2746) . = 2747) (2760 (2761 . 2773) (2774 . 2790) (2791 (2792 . 2798) . 2799) . = 2800) (2813 (2814 . 2824) (2825 . 2835) . 2836) (2849 (2850 . 2857) = (2858 . 2861) . 2862) . 2863) (2866 (2867 . 2876) (2877 (2878 . 2899) = (2900 . 2903) (2904 . 2907) (2908 . 2911) (2912 . 2913) . 2914) . 2915) = (2918 . 2924) . 2925) [&or symbolp (gate symbolp &rest (&or = [":conc-name" symbolp] [":constructor" symbolp &optional cl-lambda-list] = [":copier" symbolp] [":predicate" symbolp] [":include" symbolp &rest = sexp]))]) edebug-match-specs((((avl-tree- :named (:constructor nil) = (:constructor avl-tree--create (cmpfun)) (:predicate avl-tree-p) = (:copier nil)) (dummyroot (avl-tree--node-create nil nil nil 0)) cmpfun) = (2593 (2594 . 2603) (2710 . 2716) (2729 (2730 . 2742) (2743 . 2746) . = 2747) (2760 (2761 . 2773) (2774 . 2790) (2791 (2792 . 2798) . 2799) . = 2800) (2813 (2814 . 2824) (2825 . 2835) . 2836) (2849 (2850 . 2857) = (2858 . 2861) . 2862) . 2863) (2866 (2867 . 2876) (2877 (2878 . 2899) = (2900 . 2903) (2904 . 2907) (2908 . 2911) (2912 . 2913) . 2914) . 2915) = (2918 . 2924) . 2925) ([&or symbolp (gate symbolp &rest (&or = [":conc-name" symbolp] [":constructor" symbolp &optional cl-lambda-list] = [":copier" symbolp] [":predicate" symbolp] [":include" symbolp &rest = sexp]))] [&optional stringp] &rest &or symbolp (symbolp def-form = &optional ":read-only" sexp)) edebug-match-specs) edebug-match-specs((((avl-tree- :named (:constructor nil) = (:constructor avl-tree--create (cmpfun)) (:predicate avl-tree-p) = (:copier nil)) (dummyroot (avl-tree--node-create nil nil nil 0)) cmpfun) = (2593 (2594 . 2603) (2710 . 2716) (2729 (2730 . 2742) (2743 . 2746) . = 2747) (2760 (2761 . 2773) (2774 . 2790) (2791 (2792 . 2798) . 2799) . = 2800) (2813 (2814 . 2824) (2825 . 2835) . 2836) (2849 (2850 . 2857) = (2858 . 2861) . 2862) . 2863) (2866 (2867 . 2876) (2877 (2878 . 2899) = (2900 . 2903) (2904 . 2907) (2908 . 2911) (2912 . 2913) . 2914) . 2915) = (2918 . 2924) . 2925) ("cl-defstruct" [&or symbolp (gate symbolp &rest = (&or [":conc-name" symbolp] [":constructor" symbolp &optional = cl-lambda-list] [":copier" symbolp] [":predicate" symbolp] [":include" = symbolp &rest sexp]))] [&optional stringp] &rest &or symbolp (symbolp = def-form &optional ":read-only" sexp)) edebug-match-specs) edebug-match-sublist((((avl-tree- :named (:constructor nil) = (:constructor avl-tree--create (cmpfun)) (:predicate avl-tree-p) = (:copier nil)) (dummyroot (avl-tree--node-create nil nil nil 0)) cmpfun) = (2593 (2594 . 2603) (2710 . 2716) (2729 (2730 . 2742) (2743 . 2746) . = 2747) (2760 (2761 . 2773) (2774 . 2790) (2791 (2792 . 2798) . 2799) . = 2800) (2813 (2814 . 2824) (2825 . 2835) . 2836) (2849 (2850 . 2857) = (2858 . 2861) . 2862) . 2863) (2866 (2867 . 2876) (2877 (2878 . 2899) = (2900 . 2903) (2904 . 2907) (2908 . 2911) (2912 . 2913) . 2914) . 2915) = (2918 . 2924) . 2925) ("cl-defstruct" [&or symbolp (gate symbolp &rest = (&or [":conc-name" symbolp] [":constructor" symbolp &optional = cl-lambda-list] [":copier" symbolp] [":predicate" symbolp] [":include" = symbolp &rest sexp]))] [&optional stringp] &rest &or symbolp (symbolp = def-form &optional ":read-only" sexp))) edebug-match-list((((cl-defstruct (avl-tree- :named (:constructor nil) = (:constructor avl-tree--create (cmpfun)) (:predicate avl-tree-p) = (:copier nil)) (dummyroot (avl-tree--node-create nil nil nil 0)) = cmpfun)) (2579 (2580 . 2592) (2593 (2594 . 2603) (2710 . 2716) (2729 = (2730 . 2742) (2743 . 2746) . 2747) (2760 (2761 . 2773) (2774 . 2790) = (2791 (2792 . 2798) . 2799) . 2800) (2813 (2814 . 2824) (2825 . 2835) . = 2836) (2849 (2850 . 2857) (2858 . 2861) . 2862) . 2863) (2866 (2867 . = 2876) (2877 (2878 . 2899) (2900 . 2903) (2904 . 2907) (2908 . 2911) = (2912 . 2913) . 2914) . 2915) (2918 . 2924) . 2925)) ("cl-defstruct" = [&or symbolp (gate symbolp &rest (&or [":conc-name" symbolp] = [":constructor" symbolp &optional cl-lambda-list] [":copier" symbolp] = [":predicate" symbolp] [":include" symbolp &rest sexp]))] [&optional = stringp] &rest &or symbolp (symbolp def-form &optional ":read-only" = sexp))) edebug-match-one-spec((((cl-defstruct (avl-tree- :named (:constructor = nil) (:constructor avl-tree--create (cmpfun)) (:predicate avl-tree-p) = (:copier nil)) (dummyroot (avl-tree--node-create nil nil nil 0)) = cmpfun)) (2579 (2580 . 2592) (2593 (2594 . 2603) (2710 . 2716) (2729 = (2730 . 2742) (2743 . 2746) . 2747) (2760 (2761 . 2773) (2774 . 2790) = (2791 (2792 . 2798) . 2799) . 2800) (2813 (2814 . 2824) (2825 . 2835) . = 2836) (2849 (2850 . 2857) (2858 . 2861) . 2862) . 2863) (2866 (2867 . = 2876) (2877 (2878 . 2899) (2900 . 2903) (2904 . 2907) (2908 . 2911) = (2912 . 2913) . 2914) . 2915) (2918 . 2924) . 2925)) ("cl-defstruct" = [&or symbolp (gate symbolp &rest (&or [":conc-name" symbolp] = [":constructor" symbolp &optional cl-lambda-list] [":copier" symbolp] = [":predicate" symbolp] [":include" symbolp &rest sexp]))] [&optional = stringp] &rest &or symbolp (symbolp def-form &optional ":read-only" = sexp))) edebug-match-specs((((cl-defstruct (avl-tree- :named (:constructor = nil) (:constructor avl-tree--create (cmpfun)) (:predicate avl-tree-p) = (:copier nil)) (dummyroot (avl-tree--node-create nil nil nil 0)) = cmpfun)) (2579 (2580 . 2592) (2593 (2594 . 2603) (2710 . 2716) (2729 = (2730 . 2742) (2743 . 2746) . 2747) (2760 (2761 . 2773) (2774 . 2790) = (2791 (2792 . 2798) . 2799) . 2800) (2813 (2814 . 2824) (2825 . 2835) . = 2836) (2849 (2850 . 2857) (2858 . 2861) . 2862) . 2863) (2866 (2867 . = 2876) (2877 (2878 . 2899) (2900 . 2903) (2904 . 2907) (2908 . 2911) = (2912 . 2913) . 2914) . 2915) (2918 . 2924) . 2925)) (("cl-defstruct" = [&or symbolp (gate symbolp &rest (&or [":conc-name" symbolp] = [":constructor" symbolp &optional cl-lambda-list] [":copier" symbolp] = [":predicate" symbolp] [":include" symbolp &rest sexp]))] [&optional = stringp] &rest &or symbolp (symbolp def-form &optional ":read-only" = sexp))) edebug-match-specs) edebug-match((((cl-defstruct (avl-tree- :named (:constructor nil) = (:constructor avl-tree--create (cmpfun)) (:predicate avl-tree-p) = (:copier nil)) (dummyroot (avl-tree--node-create nil nil nil 0)) = cmpfun)) (2579 (2580 . 2592) (2593 (2594 . 2603) (2710 . 2716) (2729 = (2730 . 2742) (2743 . 2746) . 2747) (2760 (2761 . 2773) (2774 . 2790) = (2791 (2792 . 2798) . 2799) . 2800) (2813 (2814 . 2824) (2825 . 2835) . = 2836) (2849 (2850 . 2857) (2858 . 2861) . 2862) . 2863) (2866 (2867 . = 2876) (2877 (2878 . 2899) (2900 . 2903) (2904 . 2907) (2908 . 2911) = (2912 . 2913) . 2914) . 2915) (2918 . 2924) . 2925)) (("cl-defstruct" = [&or symbolp (gate symbolp &rest (&or [":conc-name" symbolp] = [":constructor" symbolp &optional cl-lambda-list] [":copier" symbolp] = [":predicate" symbolp] [":include" symbolp &rest sexp]))] [&optional = stringp] &rest &or symbolp (symbolp def-form &optional ":read-only" = sexp)))) edebug-make-form-wrapper((((cl-defstruct (avl-tree- :named = (:constructor nil) (:constructor avl-tree--create (cmpfun)) (:predicate = avl-tree-p) (:copier nil)) (dummyroot (avl-tree--node-create nil nil nil = 0)) cmpfun)) (2579 (2580 . 2592) (2593 (2594 . 2603) (2710 . 2716) (2729 = (2730 . 2742) (2743 . 2746) . 2747) (2760 (2761 . 2773) (2774 . 2790) = (2791 (2792 . 2798) . 2799) . 2800) (2813 (2814 . 2824) (2825 . 2835) . = 2836) (2849 (2850 . 2857) (2858 . 2861) . 2862) . 2863) (2866 (2867 . = 2876) (2877 (2878 . 2899) (2900 . 2903) (2904 . 2907) (2908 . 2911) = (2912 . 2913) . 2914) . 2915) (2918 . 2924) . 2925)) 2579 2924 = (("cl-defstruct" [&or symbolp (gate symbolp &rest (&or [":conc-name" = symbolp] [":constructor" symbolp &optional cl-lambda-list] [":copier" = symbolp] [":predicate" symbolp] [":include" symbolp &rest sexp]))] = [&optional stringp] &rest &or symbolp (symbolp def-form &optional = ":read-only" sexp)))) edebug-read-and-maybe-wrap-form1() edebug-read-and-maybe-wrap-form() edebug--read(read #) apply(edebug--read read #) #[128 "\300\301\302=03#\207" [apply edebug--read read nil] 5 = nil](#) eval-buffer() ; Reading at buffer position 2710 funcall-interactively(eval-buffer) call-interactively(eval-buffer record nil) command-execute(eval-buffer record) execute-extended-command(nil "eval-buffer" "eval-buffer") funcall-interactively(execute-extended-command nil "eval-buffer" = "eval-buffer") call-interactively(execute-extended-command nil nil) command-execute(execute-extended-command) --Apple-Mail=_EEC583E9-A557-4228-A895-5ACCC730B635 Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset=utf-8 In GNU Emacs 25.1.50.13 (x86_64-apple-darwin15.6.0, NS appkit-1404.47 = Version 10.11.6 (Build 15G1004)) of 2016-09-13 built on rainbow.local Windowing system distributor 'Apple', version 10.3.1404 Recent messages: For information about GNU Emacs and the GNU system, type C-h C-a. Debug on Error enabled globally You can run the command =E2=80=98toggle-debug-on-error=E2=80=99 with M-x = t-er RET Debug on Error enabled globally Edebugging all definitions is on. You can run the command =E2=80=98edebug-all-defs=E2=80=99 with M-x -defs = RET Edebugging all definitions is on. Entering debugger... Configured using: 'configure --with-ns --without-gnutls' Configured features: JPEG IMAGEMAGICK NOTIFY ACL LIBXML2 ZLIB TOOLKIT_SCROLL_BARS NS Important settings: value of $LANG: en_US.UTF-8 locale-coding-system: utf-8-unix Major mode: Debugger Minor modes in effect: diff-auto-refine-mode: t tooltip-mode: t global-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 buffer-read-only: t line-number-mode: t transient-mark-mode: t Load-path shadows: None found. Features: (shadow sort mail-extr emacsbug message subr-x puny dired dired-loaddefs format-spec rfc822 mml mml-sec password-cache epa derived epg epg-config gnus-util rmail rmail-loaddefs mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums mm-util mail-prsvr mail-utils debug cl-macs edebug cus-start cus-load vc-git diff-mode easy-mmode map seq byte-opt gv bytecomp byte-compile cl-extra help-mode easymenu cconv cl-loaddefs pcase cl-lib time-date mule-util tooltip eldoc electric uniquify ediff-hook vc-hooks lisp-float-type mwheel term/ns-win ns-win ucs-normalize term/common-win tool-bar dnd fontset image regexp-opt fringe tabulated-list newcomment elisp-mode lisp-mode prog-mode register page menu-bar rfn-eshadow timer select scroll-bar mouse jit-lock font-lock syntax facemenu font-core term/tty-colors frame 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 charscript case-table epa-hook jka-cmpr-hook help simple abbrev obarray minibuffer 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 kqueue cocoa ns multi-tty make-network-process emacs) Memory information: ((conses 16 221064 8535) (symbols 48 22186 0) (miscs 40 64 176) (strings 32 22570 6911) (string-bytes 1 697139) (vectors 16 35903) (vector-slots 8 679780 5699) (floats 8 188 29) (intervals 56 412 0) (buffers 976 13)) --Apple-Mail=_EEC583E9-A557-4228-A895-5ACCC730B635-- From unknown Mon Jun 23 13:14:09 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: Gemini Lasswell Subject: bug#24430: closed (Re: bug#24430: 25.1.50; incorrect edebug spec for cl-defstruct) Message-ID: References: <87oa3qi6ys.fsf@gnu.org> X-Gnu-PR-Message: they-closed 24430 X-Gnu-PR-Package: emacs Reply-To: 24430@debbugs.gnu.org Date: Wed, 14 Sep 2016 20:05:02 +0000 Content-Type: multipart/mixed; boundary="----------=_1473883502-28987-1" This is a multi-part message in MIME format... ------------=_1473883502-28987-1 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset="utf-8" Your bug report #24430: 25.1.50; incorrect edebug spec for cl-defstruct 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 24430@debbugs.gnu.org. --=20 24430: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D24430 GNU Bug Tracking System Contact help-debbugs@gnu.org with problems ------------=_1473883502-28987-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at 24430-done) by debbugs.gnu.org; 14 Sep 2016 20:04:30 +0000 Received: from localhost ([127.0.0.1]:59844 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bkGQ2-0007Wa-I0 for submit@debbugs.gnu.org; Wed, 14 Sep 2016 16:04:30 -0400 Received: from smtprelay-b32.telenor.se ([213.150.131.21]:52667) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bkGQ0-0007WM-L4 for 24430-done@debbugs.gnu.org; Wed, 14 Sep 2016 16:04:28 -0400 Received: from ipb3.telenor.se (ipb3.telenor.se [195.54.127.166]) by smtprelay-b32.telenor.se (Postfix) with ESMTP id 5B72887451 for <24430-done@debbugs.gnu.org>; Wed, 14 Sep 2016 22:04:18 +0200 (CEST) X-SMTPAUTH-B2: [bocjoh] X-SENDER-IP: [85.229.6.57] X-LISTENER: [smtp.bredband.net] X-IronPort-Anti-Spam-Filtered: true X-IronPort-Anti-Spam-Result: A2A9GgCGrNlXEDkG5VVdg2oBAQEBAR6IRrNohh4CgUw9EAECAQEBAQEBAQYBAQEBAQEBATdAhGIBAQQZPTMLISUPAQQYAQwKiHsBAbxKAQEIAiWLAIUMhRAFmWiRLAGOCZBWNYUKOodVAQEB X-IPAS-Result: A2A9GgCGrNlXEDkG5VVdg2oBAQEBAR6IRrNohh4CgUw9EAECAQEBAQEBAQYBAQEBAQEBATdAhGIBAQQZPTMLISUPAQQYAQwKiHsBAbxKAQEIAiWLAIUMhRAFmWiRLAGOCZBWNYUKOodVAQEB X-IronPort-AV: E=Sophos;i="5.30,335,1470693600"; d="scan'208";a="1439345808" Received: from c-3906e555.04-211-6c6b701.cust.bredbandsbolaget.se (HELO muon.localdomain) ([85.229.6.57]) by ipb3.telenor.se with ESMTP; 14 Sep 2016 22:04:17 +0200 Received: by muon.localdomain (Postfix, from userid 1000) id 07D6F4841D9; Wed, 14 Sep 2016 22:04:11 +0200 (CEST) From: =?utf-8?Q?Johan_Bockg=C3=A5rd?= To: 24430-done@debbugs.gnu.org Subject: Re: bug#24430: 25.1.50; incorrect edebug spec for cl-defstruct References: Date: Wed, 14 Sep 2016 22:04:11 +0200 In-Reply-To: (Gemini Lasswell's message of "Tue, 13 Sep 2016 12:20:01 -0700") Message-ID: <87oa3qi6ys.fsf@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.0.50 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: 0.3 (/) X-Debbugs-Envelope-To: 24430-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.3 (/) Fixed in master. ------------=_1473883502-28987-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at submit) by debbugs.gnu.org; 13 Sep 2016 19:20:54 +0000 Received: from localhost ([127.0.0.1]:58909 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bjtGH-00018Y-J8 for submit@debbugs.gnu.org; Tue, 13 Sep 2016 15:20:54 -0400 Received: from eggs.gnu.org ([208.118.235.92]:51537) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bjtGE-00018K-OF for submit@debbugs.gnu.org; Tue, 13 Sep 2016 15:20:51 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bjtG7-0005fv-0L for submit@debbugs.gnu.org; Tue, 13 Sep 2016 15:20:45 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=0.8 required=5.0 tests=BAYES_50,FREEMAIL_FROM autolearn=disabled version=3.3.2 Received: from lists.gnu.org ([2001:4830:134:3::11]:45955) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bjtG6-0005fO-N3 for submit@debbugs.gnu.org; Tue, 13 Sep 2016 15:20:42 -0400 Received: from eggs.gnu.org ([2001:4830:134:3::10]:42459) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bjtG2-0005f4-Pn for bug-gnu-emacs@gnu.org; Tue, 13 Sep 2016 15:20:41 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bjtFz-0005cl-EM for bug-gnu-emacs@gnu.org; Tue, 13 Sep 2016 15:20:38 -0400 Received: from aibo.runbox.com ([91.220.196.211]:44932) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bjtFy-0005bk-Nl for bug-gnu-emacs@gnu.org; Tue, 13 Sep 2016 15:20:35 -0400 Received: from [10.9.9.210] (helo=mailfront10.runbox.com) by bars.runbox.com with esmtp (Exim 4.71) (envelope-from ) id 1bjtFw-000438-1i for bug-gnu-emacs@gnu.org; Tue, 13 Sep 2016 21:20:32 +0200 Received: from c-24-22-244-161.hsd1.wa.comcast.net ([24.22.244.161] helo=[172.20.1.143]) by mailfront10.runbox.com with esmtpsa (uid:179284 ) (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:256) (Exim 4.82) id 1bjtFT-0004QQ-Kj for bug-gnu-emacs@gnu.org; Tue, 13 Sep 2016 21:20:04 +0200 From: Gemini Lasswell Content-Type: multipart/mixed; boundary="Apple-Mail=_EEC583E9-A557-4228-A895-5ACCC730B635" Subject: 25.1.50; incorrect edebug spec for cl-defstruct Message-Id: Date: Tue, 13 Sep 2016 12:20:01 -0700 To: bug-gnu-emacs@gnu.org Mime-Version: 1.0 (Mac OS X Mail 9.3 \(3124\)) X-Mailer: Apple Mail (2.3124) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 2001:4830:134:3::11 X-Spam-Score: -4.1 (----) 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: -4.1 (----) --Apple-Mail=_EEC583E9-A557-4228-A895-5ACCC730B635 Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset=utf-8 Edebug fails to instrument code which uses cl-defstruct. I found an = example of the problem in Emacs=E2=80=99s source tree. Here are the = steps to reproduce it: 1. emacs -Q 2. C-x C-f emacs/lisp/emacs-lisp/avl-tree.el RET 3. M-x toggle-debug-on-error RET 4. M-x edebug-all-defs RET 5. M-x eval-buffer RET Result: invalid-read-syntax error. See attachment for backtrace. The = cursor is at :named in the code excerpt below: (cl-defstruct (avl-tree- ;; A tagged list is the pre-defstruct representation. ;; (:type list) :named (:constructor nil) (:constructor avl-tree--create (cmpfun)) (:predicate avl-tree-p) (:copier nil)) (dummyroot (avl-tree--node-create nil nil nil 0)) cmpfun) --Apple-Mail=_EEC583E9-A557-4228-A895-5ACCC730B635 Content-Disposition: attachment; filename=bug.txt Content-Type: text/plain; name="bug.txt" Content-Transfer-Encoding: quoted-printable Debugger entered--Lisp error: (invalid-read-syntax "Failed matching" = (gate symbolp &rest (&or [":conc-name" symbolp] [":constructor" symbolp = &optional cl-lambda-list] [":copier" symbolp] [":predicate" symbolp] = [":include" symbolp &rest sexp]))) signal(invalid-read-syntax ("Failed matching" (gate symbolp &rest (&or = [":conc-name" symbolp] [":constructor" symbolp &optional cl-lambda-list] = [":copier" symbolp] [":predicate" symbolp] [":include" symbolp &rest = sexp])))) edebug-syntax-error("Failed matching" (gate symbolp &rest (&or = [":conc-name" symbolp] [":constructor" symbolp &optional cl-lambda-list] = [":copier" symbolp] [":predicate" symbolp] [":include" symbolp &rest = sexp]))) apply(edebug-syntax-error ("Failed matching" (gate symbolp &rest (&or = [":conc-name" symbolp] [":constructor" symbolp &optional cl-lambda-list] = [":copier" symbolp] [":predicate" symbolp] [":include" symbolp &rest = sexp])))) edebug-no-match(((:named (:constructor nil) (:constructor = avl-tree--create (cmpfun)) (:predicate avl-tree-p) (:copier nil)) (2710 = . 2716) (2729 (2730 . 2742) (2743 . 2746) . 2747) (2760 (2761 . 2773) = (2774 . 2790) (2791 (2792 . 2798) . 2799) . 2800) (2813 (2814 . 2824) = (2825 . 2835) . 2836) (2849 (2850 . 2857) (2858 . 2861) . 2862) . 2863) = "Failed matching" (gate symbolp &rest (&or [":conc-name" symbolp] = [":constructor" symbolp &optional cl-lambda-list] [":copier" symbolp] = [":predicate" symbolp] [":include" symbolp &rest sexp]))) edebug-match-sublist(((:named (:constructor nil) (:constructor = avl-tree--create (cmpfun)) (:predicate avl-tree-p) (:copier nil)) (2710 = . 2716) (2729 (2730 . 2742) (2743 . 2746) . 2747) (2760 (2761 . 2773) = (2774 . 2790) (2791 (2792 . 2798) . 2799) . 2800) (2813 (2814 . 2824) = (2825 . 2835) . 2836) (2849 (2850 . 2857) (2858 . 2861) . 2862) . 2863) = (gate symbolp &rest (&or [":conc-name" symbolp] [":constructor" symbolp = &optional cl-lambda-list] [":copier" symbolp] [":predicate" symbolp] = [":include" symbolp &rest sexp]))) edebug-match-list((((avl-tree- :named (:constructor nil) (:constructor = avl-tree--create (cmpfun)) (:predicate avl-tree-p) (:copier nil)) = (dummyroot (avl-tree--node-create nil nil nil 0)) cmpfun) (2593 (2594 . = 2603) (2710 . 2716) (2729 (2730 . 2742) (2743 . 2746) . 2747) (2760 = (2761 . 2773) (2774 . 2790) (2791 (2792 . 2798) . 2799) . 2800) (2813 = (2814 . 2824) (2825 . 2835) . 2836) (2849 (2850 . 2857) (2858 . 2861) . = 2862) . 2863) (2866 (2867 . 2876) (2877 (2878 . 2899) (2900 . 2903) = (2904 . 2907) (2908 . 2911) (2912 . 2913) . 2914) . 2915) (2918 . 2924) = . 2925) (gate symbolp &rest (&or [":conc-name" symbolp] [":constructor" = symbolp &optional cl-lambda-list] [":copier" symbolp] [":predicate" = symbolp] [":include" symbolp &rest sexp]))) edebug-match-one-spec((((avl-tree- :named (:constructor nil) = (:constructor avl-tree--create (cmpfun)) (:predicate avl-tree-p) = (:copier nil)) (dummyroot (avl-tree--node-create nil nil nil 0)) cmpfun) = (2593 (2594 . 2603) (2710 . 2716) (2729 (2730 . 2742) (2743 . 2746) . = 2747) (2760 (2761 . 2773) (2774 . 2790) (2791 (2792 . 2798) . 2799) . = 2800) (2813 (2814 . 2824) (2825 . 2835) . 2836) (2849 (2850 . 2857) = (2858 . 2861) . 2862) . 2863) (2866 (2867 . 2876) (2877 (2878 . 2899) = (2900 . 2903) (2904 . 2907) (2908 . 2911) (2912 . 2913) . 2914) . 2915) = (2918 . 2924) . 2925) (gate symbolp &rest (&or [":conc-name" symbolp] = [":constructor" symbolp &optional cl-lambda-list] [":copier" symbolp] = [":predicate" symbolp] [":include" symbolp &rest sexp]))) edebug-match-&or((((avl-tree- :named (:constructor nil) (:constructor = avl-tree--create (cmpfun)) (:predicate avl-tree-p) (:copier nil)) = (dummyroot (avl-tree--node-create nil nil nil 0)) cmpfun) (2593 (2594 . = 2603) (2710 . 2716) (2729 (2730 . 2742) (2743 . 2746) . 2747) (2760 = (2761 . 2773) (2774 . 2790) (2791 (2792 . 2798) . 2799) . 2800) (2813 = (2814 . 2824) (2825 . 2835) . 2836) (2849 (2850 . 2857) (2858 . 2861) . = 2862) . 2863) (2866 (2867 . 2876) (2877 (2878 . 2899) (2900 . 2903) = (2904 . 2907) (2908 . 2911) (2912 . 2913) . 2914) . 2915) (2918 . 2924) = . 2925) (symbolp (gate symbolp &rest (&or [":conc-name" symbolp] = [":constructor" symbolp &optional cl-lambda-list] [":copier" symbolp] = [":predicate" symbolp] [":include" symbolp &rest sexp])))) edebug-match-specs((((avl-tree- :named (:constructor nil) = (:constructor avl-tree--create (cmpfun)) (:predicate avl-tree-p) = (:copier nil)) (dummyroot (avl-tree--node-create nil nil nil 0)) cmpfun) = (2593 (2594 . 2603) (2710 . 2716) (2729 (2730 . 2742) (2743 . 2746) . = 2747) (2760 (2761 . 2773) (2774 . 2790) (2791 (2792 . 2798) . 2799) . = 2800) (2813 (2814 . 2824) (2825 . 2835) . 2836) (2849 (2850 . 2857) = (2858 . 2861) . 2862) . 2863) (2866 (2867 . 2876) (2877 (2878 . 2899) = (2900 . 2903) (2904 . 2907) (2908 . 2911) (2912 . 2913) . 2914) . 2915) = (2918 . 2924) . 2925) (&or symbolp (gate symbolp &rest (&or = [":conc-name" symbolp] [":constructor" symbolp &optional cl-lambda-list] = [":copier" symbolp] [":predicate" symbolp] [":include" symbolp &rest = sexp]))) edebug-match-specs) edebug-match((((avl-tree- :named (:constructor nil) (:constructor = avl-tree--create (cmpfun)) (:predicate avl-tree-p) (:copier nil)) = (dummyroot (avl-tree--node-create nil nil nil 0)) cmpfun) (2593 (2594 . = 2603) (2710 . 2716) (2729 (2730 . 2742) (2743 . 2746) . 2747) (2760 = (2761 . 2773) (2774 . 2790) (2791 (2792 . 2798) . 2799) . 2800) (2813 = (2814 . 2824) (2825 . 2835) . 2836) (2849 (2850 . 2857) (2858 . 2861) . = 2862) . 2863) (2866 (2867 . 2876) (2877 (2878 . 2899) (2900 . 2903) = (2904 . 2907) (2908 . 2911) (2912 . 2913) . 2914) . 2915) (2918 . 2924) = . 2925) (&or symbolp (gate symbolp &rest (&or [":conc-name" symbolp] = [":constructor" symbolp &optional cl-lambda-list] [":copier" symbolp] = [":predicate" symbolp] [":include" symbolp &rest sexp])))) edebug-match-one-spec((((avl-tree- :named (:constructor nil) = (:constructor avl-tree--create (cmpfun)) (:predicate avl-tree-p) = (:copier nil)) (dummyroot (avl-tree--node-create nil nil nil 0)) cmpfun) = (2593 (2594 . 2603) (2710 . 2716) (2729 (2730 . 2742) (2743 . 2746) . = 2747) (2760 (2761 . 2773) (2774 . 2790) (2791 (2792 . 2798) . 2799) . = 2800) (2813 (2814 . 2824) (2825 . 2835) . 2836) (2849 (2850 . 2857) = (2858 . 2861) . 2862) . 2863) (2866 (2867 . 2876) (2877 (2878 . 2899) = (2900 . 2903) (2904 . 2907) (2908 . 2911) (2912 . 2913) . 2914) . 2915) = (2918 . 2924) . 2925) [&or symbolp (gate symbolp &rest (&or = [":conc-name" symbolp] [":constructor" symbolp &optional cl-lambda-list] = [":copier" symbolp] [":predicate" symbolp] [":include" symbolp &rest = sexp]))]) edebug-match-specs((((avl-tree- :named (:constructor nil) = (:constructor avl-tree--create (cmpfun)) (:predicate avl-tree-p) = (:copier nil)) (dummyroot (avl-tree--node-create nil nil nil 0)) cmpfun) = (2593 (2594 . 2603) (2710 . 2716) (2729 (2730 . 2742) (2743 . 2746) . = 2747) (2760 (2761 . 2773) (2774 . 2790) (2791 (2792 . 2798) . 2799) . = 2800) (2813 (2814 . 2824) (2825 . 2835) . 2836) (2849 (2850 . 2857) = (2858 . 2861) . 2862) . 2863) (2866 (2867 . 2876) (2877 (2878 . 2899) = (2900 . 2903) (2904 . 2907) (2908 . 2911) (2912 . 2913) . 2914) . 2915) = (2918 . 2924) . 2925) ([&or symbolp (gate symbolp &rest (&or = [":conc-name" symbolp] [":constructor" symbolp &optional cl-lambda-list] = [":copier" symbolp] [":predicate" symbolp] [":include" symbolp &rest = sexp]))] [&optional stringp] &rest &or symbolp (symbolp def-form = &optional ":read-only" sexp)) edebug-match-specs) edebug-match-specs((((avl-tree- :named (:constructor nil) = (:constructor avl-tree--create (cmpfun)) (:predicate avl-tree-p) = (:copier nil)) (dummyroot (avl-tree--node-create nil nil nil 0)) cmpfun) = (2593 (2594 . 2603) (2710 . 2716) (2729 (2730 . 2742) (2743 . 2746) . = 2747) (2760 (2761 . 2773) (2774 . 2790) (2791 (2792 . 2798) . 2799) . = 2800) (2813 (2814 . 2824) (2825 . 2835) . 2836) (2849 (2850 . 2857) = (2858 . 2861) . 2862) . 2863) (2866 (2867 . 2876) (2877 (2878 . 2899) = (2900 . 2903) (2904 . 2907) (2908 . 2911) (2912 . 2913) . 2914) . 2915) = (2918 . 2924) . 2925) ("cl-defstruct" [&or symbolp (gate symbolp &rest = (&or [":conc-name" symbolp] [":constructor" symbolp &optional = cl-lambda-list] [":copier" symbolp] [":predicate" symbolp] [":include" = symbolp &rest sexp]))] [&optional stringp] &rest &or symbolp (symbolp = def-form &optional ":read-only" sexp)) edebug-match-specs) edebug-match-sublist((((avl-tree- :named (:constructor nil) = (:constructor avl-tree--create (cmpfun)) (:predicate avl-tree-p) = (:copier nil)) (dummyroot (avl-tree--node-create nil nil nil 0)) cmpfun) = (2593 (2594 . 2603) (2710 . 2716) (2729 (2730 . 2742) (2743 . 2746) . = 2747) (2760 (2761 . 2773) (2774 . 2790) (2791 (2792 . 2798) . 2799) . = 2800) (2813 (2814 . 2824) (2825 . 2835) . 2836) (2849 (2850 . 2857) = (2858 . 2861) . 2862) . 2863) (2866 (2867 . 2876) (2877 (2878 . 2899) = (2900 . 2903) (2904 . 2907) (2908 . 2911) (2912 . 2913) . 2914) . 2915) = (2918 . 2924) . 2925) ("cl-defstruct" [&or symbolp (gate symbolp &rest = (&or [":conc-name" symbolp] [":constructor" symbolp &optional = cl-lambda-list] [":copier" symbolp] [":predicate" symbolp] [":include" = symbolp &rest sexp]))] [&optional stringp] &rest &or symbolp (symbolp = def-form &optional ":read-only" sexp))) edebug-match-list((((cl-defstruct (avl-tree- :named (:constructor nil) = (:constructor avl-tree--create (cmpfun)) (:predicate avl-tree-p) = (:copier nil)) (dummyroot (avl-tree--node-create nil nil nil 0)) = cmpfun)) (2579 (2580 . 2592) (2593 (2594 . 2603) (2710 . 2716) (2729 = (2730 . 2742) (2743 . 2746) . 2747) (2760 (2761 . 2773) (2774 . 2790) = (2791 (2792 . 2798) . 2799) . 2800) (2813 (2814 . 2824) (2825 . 2835) . = 2836) (2849 (2850 . 2857) (2858 . 2861) . 2862) . 2863) (2866 (2867 . = 2876) (2877 (2878 . 2899) (2900 . 2903) (2904 . 2907) (2908 . 2911) = (2912 . 2913) . 2914) . 2915) (2918 . 2924) . 2925)) ("cl-defstruct" = [&or symbolp (gate symbolp &rest (&or [":conc-name" symbolp] = [":constructor" symbolp &optional cl-lambda-list] [":copier" symbolp] = [":predicate" symbolp] [":include" symbolp &rest sexp]))] [&optional = stringp] &rest &or symbolp (symbolp def-form &optional ":read-only" = sexp))) edebug-match-one-spec((((cl-defstruct (avl-tree- :named (:constructor = nil) (:constructor avl-tree--create (cmpfun)) (:predicate avl-tree-p) = (:copier nil)) (dummyroot (avl-tree--node-create nil nil nil 0)) = cmpfun)) (2579 (2580 . 2592) (2593 (2594 . 2603) (2710 . 2716) (2729 = (2730 . 2742) (2743 . 2746) . 2747) (2760 (2761 . 2773) (2774 . 2790) = (2791 (2792 . 2798) . 2799) . 2800) (2813 (2814 . 2824) (2825 . 2835) . = 2836) (2849 (2850 . 2857) (2858 . 2861) . 2862) . 2863) (2866 (2867 . = 2876) (2877 (2878 . 2899) (2900 . 2903) (2904 . 2907) (2908 . 2911) = (2912 . 2913) . 2914) . 2915) (2918 . 2924) . 2925)) ("cl-defstruct" = [&or symbolp (gate symbolp &rest (&or [":conc-name" symbolp] = [":constructor" symbolp &optional cl-lambda-list] [":copier" symbolp] = [":predicate" symbolp] [":include" symbolp &rest sexp]))] [&optional = stringp] &rest &or symbolp (symbolp def-form &optional ":read-only" = sexp))) edebug-match-specs((((cl-defstruct (avl-tree- :named (:constructor = nil) (:constructor avl-tree--create (cmpfun)) (:predicate avl-tree-p) = (:copier nil)) (dummyroot (avl-tree--node-create nil nil nil 0)) = cmpfun)) (2579 (2580 . 2592) (2593 (2594 . 2603) (2710 . 2716) (2729 = (2730 . 2742) (2743 . 2746) . 2747) (2760 (2761 . 2773) (2774 . 2790) = (2791 (2792 . 2798) . 2799) . 2800) (2813 (2814 . 2824) (2825 . 2835) . = 2836) (2849 (2850 . 2857) (2858 . 2861) . 2862) . 2863) (2866 (2867 . = 2876) (2877 (2878 . 2899) (2900 . 2903) (2904 . 2907) (2908 . 2911) = (2912 . 2913) . 2914) . 2915) (2918 . 2924) . 2925)) (("cl-defstruct" = [&or symbolp (gate symbolp &rest (&or [":conc-name" symbolp] = [":constructor" symbolp &optional cl-lambda-list] [":copier" symbolp] = [":predicate" symbolp] [":include" symbolp &rest sexp]))] [&optional = stringp] &rest &or symbolp (symbolp def-form &optional ":read-only" = sexp))) edebug-match-specs) edebug-match((((cl-defstruct (avl-tree- :named (:constructor nil) = (:constructor avl-tree--create (cmpfun)) (:predicate avl-tree-p) = (:copier nil)) (dummyroot (avl-tree--node-create nil nil nil 0)) = cmpfun)) (2579 (2580 . 2592) (2593 (2594 . 2603) (2710 . 2716) (2729 = (2730 . 2742) (2743 . 2746) . 2747) (2760 (2761 . 2773) (2774 . 2790) = (2791 (2792 . 2798) . 2799) . 2800) (2813 (2814 . 2824) (2825 . 2835) . = 2836) (2849 (2850 . 2857) (2858 . 2861) . 2862) . 2863) (2866 (2867 . = 2876) (2877 (2878 . 2899) (2900 . 2903) (2904 . 2907) (2908 . 2911) = (2912 . 2913) . 2914) . 2915) (2918 . 2924) . 2925)) (("cl-defstruct" = [&or symbolp (gate symbolp &rest (&or [":conc-name" symbolp] = [":constructor" symbolp &optional cl-lambda-list] [":copier" symbolp] = [":predicate" symbolp] [":include" symbolp &rest sexp]))] [&optional = stringp] &rest &or symbolp (symbolp def-form &optional ":read-only" = sexp)))) edebug-make-form-wrapper((((cl-defstruct (avl-tree- :named = (:constructor nil) (:constructor avl-tree--create (cmpfun)) (:predicate = avl-tree-p) (:copier nil)) (dummyroot (avl-tree--node-create nil nil nil = 0)) cmpfun)) (2579 (2580 . 2592) (2593 (2594 . 2603) (2710 . 2716) (2729 = (2730 . 2742) (2743 . 2746) . 2747) (2760 (2761 . 2773) (2774 . 2790) = (2791 (2792 . 2798) . 2799) . 2800) (2813 (2814 . 2824) (2825 . 2835) . = 2836) (2849 (2850 . 2857) (2858 . 2861) . 2862) . 2863) (2866 (2867 . = 2876) (2877 (2878 . 2899) (2900 . 2903) (2904 . 2907) (2908 . 2911) = (2912 . 2913) . 2914) . 2915) (2918 . 2924) . 2925)) 2579 2924 = (("cl-defstruct" [&or symbolp (gate symbolp &rest (&or [":conc-name" = symbolp] [":constructor" symbolp &optional cl-lambda-list] [":copier" = symbolp] [":predicate" symbolp] [":include" symbolp &rest sexp]))] = [&optional stringp] &rest &or symbolp (symbolp def-form &optional = ":read-only" sexp)))) edebug-read-and-maybe-wrap-form1() edebug-read-and-maybe-wrap-form() edebug--read(read #) apply(edebug--read read #) #[128 "\300\301\302=03#\207" [apply edebug--read read nil] 5 = nil](#) eval-buffer() ; Reading at buffer position 2710 funcall-interactively(eval-buffer) call-interactively(eval-buffer record nil) command-execute(eval-buffer record) execute-extended-command(nil "eval-buffer" "eval-buffer") funcall-interactively(execute-extended-command nil "eval-buffer" = "eval-buffer") call-interactively(execute-extended-command nil nil) command-execute(execute-extended-command) --Apple-Mail=_EEC583E9-A557-4228-A895-5ACCC730B635 Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset=utf-8 In GNU Emacs 25.1.50.13 (x86_64-apple-darwin15.6.0, NS appkit-1404.47 = Version 10.11.6 (Build 15G1004)) of 2016-09-13 built on rainbow.local Windowing system distributor 'Apple', version 10.3.1404 Recent messages: For information about GNU Emacs and the GNU system, type C-h C-a. Debug on Error enabled globally You can run the command =E2=80=98toggle-debug-on-error=E2=80=99 with M-x = t-er RET Debug on Error enabled globally Edebugging all definitions is on. You can run the command =E2=80=98edebug-all-defs=E2=80=99 with M-x -defs = RET Edebugging all definitions is on. Entering debugger... Configured using: 'configure --with-ns --without-gnutls' Configured features: JPEG IMAGEMAGICK NOTIFY ACL LIBXML2 ZLIB TOOLKIT_SCROLL_BARS NS Important settings: value of $LANG: en_US.UTF-8 locale-coding-system: utf-8-unix Major mode: Debugger Minor modes in effect: diff-auto-refine-mode: t tooltip-mode: t global-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 buffer-read-only: t line-number-mode: t transient-mark-mode: t Load-path shadows: None found. Features: (shadow sort mail-extr emacsbug message subr-x puny dired dired-loaddefs format-spec rfc822 mml mml-sec password-cache epa derived epg epg-config gnus-util rmail rmail-loaddefs mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums mm-util mail-prsvr mail-utils debug cl-macs edebug cus-start cus-load vc-git diff-mode easy-mmode map seq byte-opt gv bytecomp byte-compile cl-extra help-mode easymenu cconv cl-loaddefs pcase cl-lib time-date mule-util tooltip eldoc electric uniquify ediff-hook vc-hooks lisp-float-type mwheel term/ns-win ns-win ucs-normalize term/common-win tool-bar dnd fontset image regexp-opt fringe tabulated-list newcomment elisp-mode lisp-mode prog-mode register page menu-bar rfn-eshadow timer select scroll-bar mouse jit-lock font-lock syntax facemenu font-core term/tty-colors frame 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 charscript case-table epa-hook jka-cmpr-hook help simple abbrev obarray minibuffer 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 kqueue cocoa ns multi-tty make-network-process emacs) Memory information: ((conses 16 221064 8535) (symbols 48 22186 0) (miscs 40 64 176) (strings 32 22570 6911) (string-bytes 1 697139) (vectors 16 35903) (vector-slots 8 679780 5699) (floats 8 188 29) (intervals 56 412 0) (buffers 976 13)) --Apple-Mail=_EEC583E9-A557-4228-A895-5ACCC730B635-- ------------=_1473883502-28987-1--