From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Gemini Lasswell Newsgroups: gmane.emacs.bugs Subject: bug#24430: 25.1.50; incorrect edebug spec for cl-defstruct Date: Tue, 13 Sep 2016 12:20:01 -0700 Message-ID: NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 (Mac OS X Mail 9.3 \(3124\)) Content-Type: multipart/mixed; boundary="Apple-Mail=_EEC583E9-A557-4228-A895-5ACCC730B635" X-Trace: blaine.gmane.org 1473794483 10185 195.159.176.226 (13 Sep 2016 19:21:23 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Tue, 13 Sep 2016 19:21:23 +0000 (UTC) To: 24430@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Sep 13 21:21:18 2016 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bjtGd-0001l0-KH for geb-bug-gnu-emacs@m.gmane.org; Tue, 13 Sep 2016 21:21:15 +0200 Original-Received: from localhost ([::1]:51247 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bjtGb-0005nb-Q5 for geb-bug-gnu-emacs@m.gmane.org; Tue, 13 Sep 2016 15:21:13 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:42635) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bjtGT-0005mT-QQ for bug-gnu-emacs@gnu.org; Tue, 13 Sep 2016 15:21:08 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bjtGQ-0005nP-II for bug-gnu-emacs@gnu.org; Tue, 13 Sep 2016 15:21:05 -0400 Original-Received: from debbugs.gnu.org ([208.118.235.43]:32964) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bjtGQ-0005nL-Ec for bug-gnu-emacs@gnu.org; Tue, 13 Sep 2016 15:21:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1bjtGQ-00019F-Ap for bug-gnu-emacs@gnu.org; Tue, 13 Sep 2016 15:21:02 -0400 X-Loop: help-debbugs@gnu.org 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: X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.14737944544379 (code B ref -1); Tue, 13 Sep 2016 19:21:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 13 Sep 2016 19:20:54 +0000 Original-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 Original-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 Original-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 Original-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 Original-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 Original-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 Original-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 Original-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 Original-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 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-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.org gmane.emacs.bugs:123269 Archived-At: --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--