From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Live System User Newsgroups: gmane.emacs.bugs Subject: bug#32748: 26.1; EDEBUG eval error Date: Sun, 16 Sep 2018 23:51:31 -0400 Message-ID: <87in34bx30.fsf@aol.com> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: blaine.gmane.org 1537156280 13858 195.159.176.226 (17 Sep 2018 03:51:20 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Mon, 17 Sep 2018 03:51:20 +0000 (UTC) To: 32748@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Mon Sep 17 05:51:16 2018 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 1g1kZ7-0003QW-Ko for geb-bug-gnu-emacs@m.gmane.org; Mon, 17 Sep 2018 05:51:14 +0200 Original-Received: from localhost ([::1]:33513 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1g1kbE-0008V6-4A for geb-bug-gnu-emacs@m.gmane.org; Sun, 16 Sep 2018 23:53:24 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:55493) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1g1kb0-0008Uo-FT for bug-gnu-emacs@gnu.org; Sun, 16 Sep 2018 23:53:17 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1g1kat-00035E-5F for bug-gnu-emacs@gnu.org; Sun, 16 Sep 2018 23:53:10 -0400 Original-Received: from debbugs.gnu.org ([208.118.235.43]:38258) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1g1kas-00034b-PH for bug-gnu-emacs@gnu.org; Sun, 16 Sep 2018 23:53:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1g1kas-0004KK-N5 for bug-gnu-emacs@gnu.org; Sun, 16 Sep 2018 23:53:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Live System User Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 17 Sep 2018 03:53:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 32748 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.153715634616581 (code B ref -1); Mon, 17 Sep 2018 03:53:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 17 Sep 2018 03:52:26 +0000 Original-Received: from localhost ([127.0.0.1]:42516 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1g1kaF-0004JK-Rj for submit@debbugs.gnu.org; Sun, 16 Sep 2018 23:52:26 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:34163) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1g1kaA-0004J2-Rz for submit@debbugs.gnu.org; Sun, 16 Sep 2018 23:52:22 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1g1kZx-0000ji-Aj for submit@debbugs.gnu.org; Sun, 16 Sep 2018 23:52:12 -0400 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:47363) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1g1kZn-0000cw-8i for submit@debbugs.gnu.org; Sun, 16 Sep 2018 23:51:59 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:55066) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1g1kZf-00088j-Ti for bug-gnu-emacs@gnu.org; Sun, 16 Sep 2018 23:51:55 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1g1kZY-0000I9-Rj for bug-gnu-emacs@gnu.org; Sun, 16 Sep 2018 23:51:47 -0400 Original-Received: from sonic308-4.consmr.mail.bf2.yahoo.com ([74.6.130.43]:40323) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1g1kZY-0000Da-9f for bug-gnu-emacs@gnu.org; Sun, 16 Sep 2018 23:51:40 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=aol.com; s=a2048; t=1537156299; bh=uhZcFV5kJvBoyDpIKNt0KMtY9Kq/ZQFKwWqrTirrHrc=; h=From:To:Subject:Date:From:Subject; b=Gzy28/bRpyO5vdA9UomLN40C6UuarKCkBev5pmweQkJIRsHYfNXTCHoBKdnzlOHjsjF8G4hu9qHRZixnt7BTMVYYZuLSNbww8ZcviB9v4qQSl21ujO5wCkH5yuDWE+OvkeAQmYkPS3rVYoCdjCTM1p7ugfqRbowv+4JCQDgym54LXLz352yizyy9pM3t43bHiZpNMFwhNcZrbhUsqGmaAlBGSPSKmfcbFrytZgUE0fyF89iZ/tEV3hz9P+n13ATAO36OOlCzwQCZE/O6WG+RJTYeKzWlLQzCDP3JwcM/feO+Yjz8KAYpbUSptEehguGv/PXoA7wA6mo/k0z/SR3shA== X-YMail-OSG: XhsVlfsVM1kvQg_fwBRZrC2IHwMtt4Y2tCDLTMWuHXyC.RxrAizDuxxtL7NS7dZ 3w1vk4a_1gt1yKnu4zrjpLEkFlC3.wsTkrhSesJuipk0TyQl_2kSQMDu5AUVUBW5462am_tVk9tk hGXAPOLCe8S0JKjcYVfmVcvuihZKHBkPzdAhw75f0yF_Qk8IoTZBMpqqD3woioyIV5DAaHKOJOkh buHEJMpUQX9DSsdCX4fREoZfyS6JCzgL_vwl0jim8x9.CY.UF.3SEW29YYFdSQ9W8xhiklZ4mJCu sXGqtvrwxa3Q7w3ztzLwbq6v6J3Y69m2HOgo1f_av3vMjgGdcDEiAXCsErpnc17qYuBR4Jbwr5iA eEUGrZcapSZOSEnSRSuvnDUsf_HhbE_aY5FpSdGppPa3QWKHTkjl348YDL5.th4M0H_PcQIWLLMh VlRewxN9MQiENpySIT71ONhxhj0k1TK_x_P0FT_NnQzERwve3D5ViAjSElbMP1Ef55hPOoUh0N8W WE_XxMid.BV8PzqcjkjSYGHic99kDfNfwIQWrOOk_WYMl4PMHSc.N7aOAqh_Q2mVUaWYemvBn8zV njleb.zEiqqFmFLr3VmSTZ.qQZepLK.8vSmQIWxPCZQvLEJC_c15qp2lgQQihDQwLUjZJA0T2v0U t2FdG4hUN_.gwYcbi8ocRTcsjtbjBaQxB.LNTcio.5wZzoBOa09Nf4L.fSbOIBQHSwrwErDar31Q Gv9RXQKTfSmFheeYj.NhkhZP8UDExR9hmTrVucsTRI9tVxhQ8tQWGt1iAxYTFc1_YHFN.JCuyk5e 9C_rZ.e.2E_rO7uM0rx21ABcGflQvyg4nS53uU4CRi Original-Received: from sonic.gate.mail.ne1.yahoo.com by sonic308.consmr.mail.bf2.yahoo.com with HTTP; Mon, 17 Sep 2018 03:51:39 +0000 Original-Received: from c-73-16-70-190.hsd1.ma.comcast.net (EHLO localhost.localdomain) ([73.16.70.190]) by smtp406.mail.bf1.yahoo.com (Oath Hermes SMTP Server) with ESMTPA ID 8104ad3be705e949331c267e12cb8228 for ; Mon, 17 Sep 2018 03:51:32 +0000 (UTC) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.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:150364 Archived-At: --=-=-= Content-Type: text/plain Hi, While using/learning edebug, I ran into the following error when eval'ing: --=-=-= Content-Type: text/plain Content-Disposition: attachment; filename=edebug-error.txt Content-Transfer-Encoding: quoted-printable Content-Description: Edebug eval error Debugger entered--Lisp error: (void-variable predicate) apply(debug error (void-variable predicate)) (if (and edebug-entered (eq (recursion-depth) edebug-recursion-depth)) (l= et ((offset-index (car edebug-offset-indices)) (value (car args)) edebug-br= eakpoints edebug-break-data edebug-break-condition edebug-global-break (ede= bug-break (null arg-mode))) (edebug--display value offset-index arg-mode) (= if (eq arg-mode 'error) nil value)) (apply (function debug) arg-mode args)) edebug(error (void-variable predicate)) backtrace-eval(predicate 0 edebug-after) edebug-eval(predicate) (cons (edebug-eval expr) values) (setq values (cons (edebug-eval expr) values)) (save-current-buffer (set-buffer edebug-outside-buffer) (goto-char edebug= -outside-point) (if (marker-buffer (edebug-mark-marker)) (set-marker (edebu= g-mark-marker) edebug-outside-mark)) (setq values (cons (edebug-eval expr) = values)) (concat (edebug-safe-prin1-to-string (car values)) (eval-expressio= n-print-format (car values)))) (unwind-protect (save-current-buffer (set-buffer edebug-outside-buffer) (= goto-char edebug-outside-point) (if (marker-buffer (edebug-mark-marker)) (s= et-marker (edebug-mark-marker) edebug-outside-mark)) (setq values (cons (ed= ebug-eval expr) values)) (concat (edebug-safe-prin1-to-string (car values))= (eval-expression-print-format (car values)))) (if edebug-save-windows (ede= bug-set-windows edebug-inside-windows)) (setq edebug-outside-d-c-i-n-s-w (d= efault-value 'cursor-in-non-selected-windows)) (setq-default cursor-in-non-= selected-windows t)) (save-excursion (if edebug-save-windows (progn (setq edebug-inside-window= s (edebug-current-windows edebug-save-windows)) (edebug-set-windows edebug-= outside-windows))) (set-buffer edebug-buffer) (set-match-data edebug-outsid= e-match-data) (setq-default cursor-in-non-selected-windows edebug-outside-d= -c-i-n-s-w) (unwind-protect (save-current-buffer (set-buffer edebug-outside= -buffer) (goto-char edebug-outside-point) (if (marker-buffer (edebug-mark-m= arker)) (set-marker (edebug-mark-marker) edebug-outside-mark)) (setq values= (cons (edebug-eval expr) values)) (concat (edebug-safe-prin1-to-string (ca= r values)) (eval-expression-print-format (car values)))) (if edebug-save-wi= ndows (edebug-set-windows edebug-inside-windows)) (setq edebug-outside-d-c-= i-n-s-w (default-value 'cursor-in-non-selected-windows)) (setq-default curs= or-in-non-selected-windows t))) (princ (save-excursion (if edebug-save-windows (progn (setq edebug-inside= -windows (edebug-current-windows edebug-save-windows)) (edebug-set-windows = edebug-outside-windows))) (set-buffer edebug-buffer) (set-match-data edebug= -outside-match-data) (setq-default cursor-in-non-selected-windows edebug-ou= tside-d-c-i-n-s-w) (unwind-protect (save-current-buffer (set-buffer edebug-= outside-buffer) (goto-char edebug-outside-point) (if (marker-buffer (edebug= -mark-marker)) (set-marker (edebug-mark-marker) edebug-outside-mark)) (setq= values (cons (edebug-eval expr) values)) (concat (edebug-safe-prin1-to-str= ing (car values)) (eval-expression-print-format (car values)))) (if edebug-= save-windows (edebug-set-windows edebug-inside-windows)) (setq edebug-outsi= de-d-c-i-n-s-w (default-value 'cursor-in-non-selected-windows)) (setq-defau= lt cursor-in-non-selected-windows t)))) edebug-eval-expression(predicate) funcall-interactively(edebug-eval-expression predicate) call-interactively(edebug-eval-expression nil nil) command-execute(edebug-eval-expression) recursive-edit() (unwind-protect (recursive-edit) (setq signal-hook-function 'edebug-signa= l) (if edebug-backtrace-buffer (kill-buffer edebug-backtrace-buffer)) (set-= match-data edebug-outside-match-data) (if (buffer-name edebug-buffer) (prog= n (set-buffer edebug-buffer) (if (memq edebug-execution-mode '(go Go-nonsto= p)) (progn (edebug-overlay-arrow) (sit-for 0))) (edebug-mode -1)) (get-buff= er-create " bogus edebug buffer"))) (let ((last-command last-command) (this-command this-command) (current-pr= efix-arg nil) (last-input-event nil) (last-command-event nil) (last-event-f= rame nil) (last-nonmenu-event nil) (track-mouse nil) (standard-output t) (s= tandard-input t) (executing-kbd-macro (if edebug-continue-kbd-macro executi= ng-kbd-macro)) (overriding-local-map nil) (overriding-terminal-local-map ni= l) (debug-on-error edebug-outside-debug-on-error) (debug-on-quit edebug-out= side-debug-on-quit) (defining-kbd-macro (if edebug-continue-kbd-macro defin= ing-kbd-macro))) (if (and (eq edebug-execution-mode 'go) (not (memq arg-mod= e '(after error)))) (message "Break")) (setq signal-hook-function nil) (ede= bug-mode 1) (unwind-protect (recursive-edit) (setq signal-hook-function 'ed= ebug-signal) (if edebug-backtrace-buffer (kill-buffer edebug-backtrace-buff= er)) (set-match-data edebug-outside-match-data) (if (buffer-name edebug-buf= fer) (progn (set-buffer edebug-buffer) (if (memq edebug-execution-mode '(go= Go-nonstop)) (progn (edebug-overlay-arrow) (sit-for 0))) (edebug-mode -1))= (get-buffer-create " bogus edebug buffer")))) (unwind-protect (let ((last-command last-command) (this-command this-comm= and) (current-prefix-arg nil) (last-input-event nil) (last-command-event ni= l) (last-event-frame nil) (last-nonmenu-event nil) (track-mouse nil) (stand= ard-output t) (standard-input t) (executing-kbd-macro (if edebug-continue-k= bd-macro executing-kbd-macro)) (overriding-local-map nil) (overriding-termi= nal-local-map nil) (debug-on-error edebug-outside-debug-on-error) (debug-on= -quit edebug-outside-debug-on-quit) (defining-kbd-macro (if edebug-continue= -kbd-macro defining-kbd-macro))) (if (and (eq edebug-execution-mode 'go) (n= ot (memq arg-mode '(after error)))) (message "Break")) (setq signal-hook-fu= nction nil) (edebug-mode 1) (unwind-protect (recursive-edit) (setq signal-h= ook-function 'edebug-signal) (if edebug-backtrace-buffer (kill-buffer edebu= g-backtrace-buffer)) (set-match-data edebug-outside-match-data) (if (buffer= -name edebug-buffer) (progn (set-buffer edebug-buffer) (if (memq edebug-exe= cution-mode '(go Go-nonstop)) (progn (edebug-overlay-arrow) (sit-for 0))) (= edebug-mode -1)) (get-buffer-create " bogus edebug buffer"))))) (let ((edebug-outside-match-data (save-current-buffer (set-buffer edebug-= outside-buffer) (match-data))) (edebug-recursion-depth (recursion-depth)) e= debug-entered (edebug-interactive-p nil) edebug-backtrace-buffer edebug-ins= ide-windows) (unwind-protect (let ((last-command last-command) (this-comman= d this-command) (current-prefix-arg nil) (last-input-event nil) (last-comma= nd-event nil) (last-event-frame nil) (last-nonmenu-event nil) (track-mouse = nil) (standard-output t) (standard-input t) (executing-kbd-macro (if edebug= -continue-kbd-macro executing-kbd-macro)) (overriding-local-map nil) (overr= iding-terminal-local-map nil) (debug-on-error edebug-outside-debug-on-error= ) (debug-on-quit edebug-outside-debug-on-quit) (defining-kbd-macro (if edeb= ug-continue-kbd-macro defining-kbd-macro))) (if (and (eq edebug-execution-m= ode 'go) (not (memq arg-mode '(after error)))) (message "Break")) (setq sig= nal-hook-function nil) (edebug-mode 1) (unwind-protect (recursive-edit) (se= tq signal-hook-function 'edebug-signal) (if edebug-backtrace-buffer (kill-b= uffer edebug-backtrace-buffer)) (set-match-data edebug-outside-match-data) = (if (buffer-name edebug-buffer) (progn (set-buffer edebug-buffer) (if (memq= edebug-execution-mode '(go Go-nonstop)) (progn (edebug-overlay-arrow) (sit= -for 0))) (edebug-mode -1)) (get-buffer-create " bogus edebug buffer")))))) edebug--recursive-edit(after) (if (or edebug-stop (memq edebug-execution-mode '(step next)) (eq arg-mod= e 'error)) (edebug--recursive-edit arg-mode)) (unwind-protect (if (or edebug-stop (memq edebug-execution-mode '(step ne= xt)) (eq arg-mode 'error)) (edebug--recursive-edit arg-mode)) (let ((window= (if (eq (window-buffer) edebug-buffer) (selected-window) (get-buffer-windo= w edebug-buffer)))) (if window (progn (setcar edebug-window-data window) (s= etcdr edebug-window-data (window-start window))))) (setq edebug-trace-windo= w (get-buffer-window edebug-trace-buffer)) (if edebug-trace-window (setq ed= ebug-trace-window-start (and edebug-trace-window (window-start edebug-trace= -window)))) (if edebug-save-windows (progn (edebug-set-windows edebug-outsi= de-windows) (if edebug-save-displayed-buffer-points (edebug-set-buffer-poin= ts edebug-buffer-points)) (if edebug-trace-window (set-window-start edebug-= trace-window edebug-trace-window-start)) (let ((window (car edebug-window-d= ata))) (if (and (edebug-window-live-p window) (eq (window-buffer) edebug-bu= ffer)) (progn (set-window-start window (cdr edebug-window-data) 'no-force))= ))) (if (edebug-window-live-p edebug-outside-window) (select-window edebug-= outside-window))) (if (buffer-name edebug-outside-buffer) (set-buffer edebu= g-outside-buffer)) (if (not (eq edebug-buffer edebug-outside-buffer)) (goto= -char edebug-outside-point)) (if (marker-buffer (edebug-mark-marker)) (set-= marker (edebug-mark-marker) edebug-outside-mark))) (let ((overlay-arrow-position overlay-arrow-position) (overlay-arrow-stri= ng overlay-arrow-string)) (edebug-overlay-arrow) (cond ((eq 'error arg-mode= ) (setq edebug-execution-mode 'step) (edebug-overlay-arrow) (beep) (if (eq = 'quit (car value)) (message "Quit") (edebug-report-error value))) (edebug-b= reak (cond (edebug-global-break (message "Global Break: %s =3D> %s" edebug-= global-break-condition edebug-global-break-result)) (edebug-break-condition= (message "Break: %s =3D> %s" edebug-break-condition edebug-break-result)) = ((not (eq edebug-execution-mode 'Continue-fast)) (message "Break")) (t))) (= t (message ""))) (if (eq 'after arg-mode) (progn (if (and edebug-break edeb= ug-sit-on-break (not (eq edebug-execution-mode 'Continue-fast))) (sit-for e= debug-sit-for-seconds)) (edebug-previous-result))) (cond (edebug-break (con= d ((eq edebug-execution-mode 'continue) (sit-for edebug-sit-for-seconds)) (= (eq edebug-execution-mode 'Continue-fast) (sit-for 0)) (t (setq edebug-stop= t)))) ((eq edebug-execution-mode 'trace) (sit-for edebug-sit-for-seconds))= ((eq edebug-execution-mode 'Trace-fast) (sit-for 0))) (if (input-pending-p= ) (progn (setq edebug-stop t) (setq edebug-execution-mode 'step) (edebug-st= op))) (edebug-overlay-arrow) (unwind-protect (if (or edebug-stop (memq edeb= ug-execution-mode '(step next)) (eq arg-mode 'error)) (edebug--recursive-ed= it arg-mode)) (let ((window (if (eq (window-buffer) edebug-buffer) (selecte= d-window) (get-buffer-window edebug-buffer)))) (if window (progn (setcar ed= ebug-window-data window) (setcdr edebug-window-data (window-start window)))= )) (setq edebug-trace-window (get-buffer-window edebug-trace-buffer)) (if e= debug-trace-window (setq edebug-trace-window-start (and edebug-trace-window= (window-start edebug-trace-window)))) (if edebug-save-windows (progn (edeb= ug-set-windows edebug-outside-windows) (if edebug-save-displayed-buffer-poi= nts (edebug-set-buffer-points edebug-buffer-points)) (if edebug-trace-windo= w (set-window-start edebug-trace-window edebug-trace-window-start)) (let ((= window (car edebug-window-data))) (if (and (edebug-window-live-p window) (e= q (window-buffer) edebug-buffer)) (progn (set-window-start window (cdr edeb= ug-window-data) 'no-force))))) (if (edebug-window-live-p edebug-outside-win= dow) (select-window edebug-outside-window))) (if (buffer-name edebug-outsid= e-buffer) (set-buffer edebug-outside-buffer)) (if (not (eq edebug-buffer ed= ebug-outside-buffer)) (goto-char edebug-outside-point)) (if (marker-buffer = (edebug-mark-marker)) (set-marker (edebug-mark-marker) edebug-outside-mark)= ))) (let ((cursor-in-echo-area nil) (unread-command-events nil)) (setq-defaul= t cursor-in-non-selected-windows t) (if (not (buffer-name edebug-buffer)) (= user-error "Buffer defining %s not found" edebug-function)) (if (eq 'after = arg-mode) (edebug-compute-previous-result value)) (if edebug-save-windows (= setq edebug-outside-windows (edebug-current-windows edebug-save-windows))) = (if edebug-save-displayed-buffer-points (setq edebug-buffer-points (edebug-= get-displayed-buffer-points))) (edebug-pop-to-buffer edebug-buffer (car ede= bug-window-data)) (setcar edebug-window-data (selected-window)) (edebug-eva= l-display eval-result-list) (select-window (car edebug-window-data)) (set-b= uffer edebug-buffer) (setq edebug-buffer-outside-point (point)) (goto-char = edebug-point) (if (eq 'before arg-mode) (if (not (memq (following-char) '(4= 0 35 96))) (user-error "Source has changed - reevaluate definition of %s" e= debug-function))) (let ((overlay-arrow-position overlay-arrow-position) (ov= erlay-arrow-string overlay-arrow-string)) (edebug-overlay-arrow) (cond ((eq= 'error arg-mode) (setq edebug-execution-mode 'step) (edebug-overlay-arrow)= (beep) (if (eq 'quit (car value)) (message "Quit") (edebug-report-error va= lue))) (edebug-break (cond (edebug-global-break (message "Global Break: %s = =3D> %s" edebug-global-break-condition edebug-global-break-result)) (edebug= -break-condition (message "Break: %s =3D> %s" edebug-break-condition edebug= -break-result)) ((not (eq edebug-execution-mode 'Continue-fast)) (message "= Break")) (t))) (t (message ""))) (if (eq 'after arg-mode) (progn (if (and e= debug-break edebug-sit-on-break (not (eq edebug-execution-mode 'Continue-fa= st))) (sit-for edebug-sit-for-seconds)) (edebug-previous-result))) (cond (e= debug-break (cond ((eq edebug-execution-mode 'continue) (sit-for edebug-sit= -for-seconds)) ((eq edebug-execution-mode 'Continue-fast) (sit-for 0)) (t (= setq edebug-stop t)))) ((eq edebug-execution-mode 'trace) (sit-for edebug-s= it-for-seconds)) ((eq edebug-execution-mode 'Trace-fast) (sit-for 0))) (if = (input-pending-p) (progn (setq edebug-stop t) (setq edebug-execution-mode '= step) (edebug-stop))) (edebug-overlay-arrow) (unwind-protect (if (or edebug= -stop (memq edebug-execution-mode '(step next)) (eq arg-mode 'error)) (edeb= ug--recursive-edit arg-mode)) (let ((window (if (eq (window-buffer) edebug-= buffer) (selected-window) (get-buffer-window edebug-buffer)))) (if window (= progn (setcar edebug-window-data window) (setcdr edebug-window-data (window= -start window))))) (setq edebug-trace-window (get-buffer-window edebug-trac= e-buffer)) (if edebug-trace-window (setq edebug-trace-window-start (and ede= bug-trace-window (window-start edebug-trace-window)))) (if edebug-save-wind= ows (progn (edebug-set-windows edebug-outside-windows) (if edebug-save-disp= layed-buffer-points (edebug-set-buffer-points edebug-buffer-points)) (if ed= ebug-trace-window (set-window-start edebug-trace-window edebug-trace-window= -start)) (let ((window (car edebug-window-data))) (if (and (edebug-window-l= ive-p window) (eq (window-buffer) edebug-buffer)) (progn (set-window-start = window (cdr edebug-window-data) 'no-force))))) (if (edebug-window-live-p ed= ebug-outside-window) (select-window edebug-outside-window))) (if (buffer-na= me edebug-outside-buffer) (set-buffer edebug-outside-buffer)) (if (not (eq = edebug-buffer edebug-outside-buffer)) (goto-char edebug-outside-point)) (if= (marker-buffer (edebug-mark-marker)) (set-marker (edebug-mark-marker) edeb= ug-outside-mark)))) (save-current-buffer (set-buffer edebug-buffer) (goto-c= har edebug-buffer-outside-point))) (unwind-protect (let ((cursor-in-echo-area nil) (unread-command-events ni= l)) (setq-default cursor-in-non-selected-windows t) (if (not (buffer-name e= debug-buffer)) (user-error "Buffer defining %s not found" edebug-function))= (if (eq 'after arg-mode) (edebug-compute-previous-result value)) (if edebu= g-save-windows (setq edebug-outside-windows (edebug-current-windows edebug-= save-windows))) (if edebug-save-displayed-buffer-points (setq edebug-buffer= -points (edebug-get-displayed-buffer-points))) (edebug-pop-to-buffer edebug= -buffer (car edebug-window-data)) (setcar edebug-window-data (selected-wind= ow)) (edebug-eval-display eval-result-list) (select-window (car edebug-wind= ow-data)) (set-buffer edebug-buffer) (setq edebug-buffer-outside-point (poi= nt)) (goto-char edebug-point) (if (eq 'before arg-mode) (if (not (memq (fol= lowing-char) '(40 35 96))) (user-error "Source has changed - reevaluate def= inition of %s" edebug-function))) (let ((overlay-arrow-position overlay-arr= ow-position) (overlay-arrow-string overlay-arrow-string)) (edebug-overlay-a= rrow) (cond ((eq 'error arg-mode) (setq edebug-execution-mode 'step) (edebu= g-overlay-arrow) (beep) (if (eq 'quit (car value)) (message "Quit") (edebug= -report-error value))) (edebug-break (cond (edebug-global-break (message "G= lobal Break: %s =3D> %s" edebug-global-break-condition edebug-global-break-= result)) (edebug-break-condition (message "Break: %s =3D> %s" edebug-break-= condition edebug-break-result)) ((not (eq edebug-execution-mode 'Continue-f= ast)) (message "Break")) (t))) (t (message ""))) (if (eq 'after arg-mode) (= progn (if (and edebug-break edebug-sit-on-break (not (eq edebug-execution-m= ode 'Continue-fast))) (sit-for edebug-sit-for-seconds)) (edebug-previous-re= sult))) (cond (edebug-break (cond ((eq edebug-execution-mode 'continue) (si= t-for edebug-sit-for-seconds)) ((eq edebug-execution-mode 'Continue-fast) (= sit-for 0)) (t (setq edebug-stop t)))) ((eq edebug-execution-mode 'trace) (= sit-for edebug-sit-for-seconds)) ((eq edebug-execution-mode 'Trace-fast) (s= it-for 0))) (if (input-pending-p) (progn (setq edebug-stop t) (setq edebug-= execution-mode 'step) (edebug-stop))) (edebug-overlay-arrow) (unwind-protec= t (if (or edebug-stop (memq edebug-execution-mode '(step next)) (eq arg-mod= e 'error)) (edebug--recursive-edit arg-mode)) (let ((window (if (eq (window= -buffer) edebug-buffer) (selected-window) (get-buffer-window edebug-buffer)= ))) (if window (progn (setcar edebug-window-data window) (setcdr edebug-win= dow-data (window-start window))))) (setq edebug-trace-window (get-buffer-wi= ndow edebug-trace-buffer)) (if edebug-trace-window (setq edebug-trace-windo= w-start (and edebug-trace-window (window-start edebug-trace-window)))) (if = edebug-save-windows (progn (edebug-set-windows edebug-outside-windows) (if = edebug-save-displayed-buffer-points (edebug-set-buffer-points edebug-buffer= -points)) (if edebug-trace-window (set-window-start edebug-trace-window ede= bug-trace-window-start)) (let ((window (car edebug-window-data))) (if (and = (edebug-window-live-p window) (eq (window-buffer) edebug-buffer)) (progn (s= et-window-start window (cdr edebug-window-data) 'no-force))))) (if (edebug-= window-live-p edebug-outside-window) (select-window edebug-outside-window))= ) (if (buffer-name edebug-outside-buffer) (set-buffer edebug-outside-buffer= )) (if (not (eq edebug-buffer edebug-outside-buffer)) (goto-char edebug-out= side-point)) (if (marker-buffer (edebug-mark-marker)) (set-marker (edebug-m= ark-marker) edebug-outside-mark)))) (save-current-buffer (set-buffer edebug= -buffer) (goto-char edebug-buffer-outside-point))) (if edebug-eval-buffer (= kill-buffer edebug-eval-buffer)) (with-timeout-unsuspend edebug-with-timeou= t-suspend) (setq-default cursor-in-non-selected-windows edebug-outside-d-c-= i-n-s-w)) (let ((edebug-active t) (edebug-with-timeout-suspend (with-timeout-suspen= d)) edebug-stop (edebug-point (+ edebug-def-mark (aref (nth 2 edebug-data) = offset-index))) edebug-buffer-outside-point (edebug-window-data (nth 3 edeb= ug-data)) (edebug-outside-window (selected-window)) (edebug-outside-buffer = (current-buffer)) (edebug-outside-point (point)) (edebug-outside-mark (edeb= ug-mark)) edebug-outside-windows edebug-buffer-points edebug-eval-buffer (e= val-result-list (and edebug-eval-list (edebug-eval-result-list))) edebug-tr= ace-window edebug-trace-window-start (edebug-outside-d-c-i-n-s-w (default-v= alue 'cursor-in-non-selected-windows))) (unwind-protect (let ((cursor-in-ec= ho-area nil) (unread-command-events nil)) (setq-default cursor-in-non-selec= ted-windows t) (if (not (buffer-name edebug-buffer)) (user-error "Buffer de= fining %s not found" edebug-function)) (if (eq 'after arg-mode) (edebug-com= pute-previous-result value)) (if edebug-save-windows (setq edebug-outside-w= indows (edebug-current-windows edebug-save-windows))) (if edebug-save-displ= ayed-buffer-points (setq edebug-buffer-points (edebug-get-displayed-buffer-= points))) (edebug-pop-to-buffer edebug-buffer (car edebug-window-data)) (se= tcar edebug-window-data (selected-window)) (edebug-eval-display eval-result= -list) (select-window (car edebug-window-data)) (set-buffer edebug-buffer) = (setq edebug-buffer-outside-point (point)) (goto-char edebug-point) (if (eq= 'before arg-mode) (if (not (memq (following-char) '(40 35 96))) (user-erro= r "Source has changed - reevaluate definition of %s" edebug-function))) (le= t ((overlay-arrow-position overlay-arrow-position) (overlay-arrow-string ov= erlay-arrow-string)) (edebug-overlay-arrow) (cond ((eq 'error arg-mode) (se= tq edebug-execution-mode 'step) (edebug-overlay-arrow) (beep) (if (eq 'quit= (car value)) (message "Quit") (edebug-report-error value))) (edebug-break = (cond (edebug-global-break (message "Global Break: %s =3D> %s" edebug-globa= l-break-condition edebug-global-break-result)) (edebug-break-condition (mes= sage "Break: %s =3D> %s" edebug-break-condition edebug-break-result)) ((not= (eq edebug-execution-mode 'Continue-fast)) (message "Break")) (t))) (t (me= ssage ""))) (if (eq 'after arg-mode) (progn (if (and edebug-break edebug-si= t-on-break (not (eq edebug-execution-mode 'Continue-fast))) (sit-for edebug= -sit-for-seconds)) (edebug-previous-result))) (cond (edebug-break (cond ((e= q edebug-execution-mode 'continue) (sit-for edebug-sit-for-seconds)) ((eq e= debug-execution-mode 'Continue-fast) (sit-for 0)) (t (setq edebug-stop t)))= ) ((eq edebug-execution-mode 'trace) (sit-for edebug-sit-for-seconds)) ((eq= edebug-execution-mode 'Trace-fast) (sit-for 0))) (if (input-pending-p) (pr= ogn (setq edebug-stop t) (setq edebug-execution-mode 'step) (edebug-stop)))= (edebug-overlay-arrow) (unwind-protect (if (or edebug-stop (memq edebug-ex= ecution-mode '(step next)) (eq arg-mode 'error)) (edebug--recursive-edit ar= g-mode)) (let ((window (if (eq (window-buffer) edebug-buffer) (selected-win= dow) (get-buffer-window edebug-buffer)))) (if window (progn (setcar edebug-= window-data window) (setcdr edebug-window-data (window-start window))))) (s= etq edebug-trace-window (get-buffer-window edebug-trace-buffer)) (if edebug= -trace-window (setq edebug-trace-window-start (and edebug-trace-window (win= dow-start edebug-trace-window)))) (if edebug-save-windows (progn (edebug-se= t-windows edebug-outside-windows) (if edebug-save-displayed-buffer-points (= edebug-set-buffer-points edebug-buffer-points)) (if edebug-trace-window (se= t-window-start edebug-trace-window edebug-trace-window-start)) (let ((windo= w (car edebug-window-data))) (if (and (edebug-window-live-p window) (eq (wi= ndow-buffer) edebug-buffer)) (progn (set-window-start window (cdr edebug-wi= ndow-data) 'no-force))))) (if (edebug-window-live-p edebug-outside-window) = (select-window edebug-outside-window))) (if (buffer-name edebug-outside-buf= fer) (set-buffer edebug-outside-buffer)) (if (not (eq edebug-buffer edebug-= outside-buffer)) (goto-char edebug-outside-point)) (if (marker-buffer (edeb= ug-mark-marker)) (set-marker (edebug-mark-marker) edebug-outside-mark)))) (= save-current-buffer (set-buffer edebug-buffer) (goto-char edebug-buffer-out= side-point))) (if edebug-eval-buffer (kill-buffer edebug-eval-buffer)) (wit= h-timeout-unsuspend edebug-with-timeout-suspend) (setq-default cursor-in-no= n-selected-windows edebug-outside-d-c-i-n-s-w))) edebug--display-1((closure (parse-time-val parse-time-elt t) nil (and (st= ringp parse-time-elt) (=3D (length parse-time-elt) 8) (=3D (aref parse-time= -elt 2) 58) (=3D (aref parse-time-elt 5) 58))) 31 after) (save-excursion (edebug--display-1 value offset-index arg-mode)) edebug--display((closure (parse-time-val parse-time-elt t) nil (and (stri= ngp parse-time-elt) (=3D (length parse-time-elt) 8) (=3D (aref parse-time-e= lt 2) 58) (=3D (aref parse-time-elt 5) 58))) 31 after) (if (or (not (memq edebug-execution-mode '(go continue Continue-fast))) e= debug-break (input-pending-p)) (edebug--display value offset-index arg-mode= )) (let* ((edebug-breakpoints (car (cdr edebug-data))) (edebug-break-data (a= ssq offset-index edebug-breakpoints)) (edebug-break-condition (car (cdr ede= bug-break-data))) (edebug-global-break (if edebug-global-break-condition (c= ondition-case nil (setq edebug-global-break-result (edebug-eval edebug-glob= al-break-condition)) (error nil)))) (edebug-break)) (setq edebug-break (or = edebug-global-break (and edebug-break-data (or (not edebug-break-condition)= (setq edebug-break-result (edebug-eval edebug-break-condition)))))) (if (a= nd edebug-break (nth 2 edebug-break-data)) (setcdr edebug-data (cons (delq = edebug-break-data edebug-breakpoints) (cdr (cdr edebug-data))))) (if (or (n= ot (memq edebug-execution-mode '(go continue Continue-fast))) edebug-break = (input-pending-p)) (edebug--display value offset-index arg-mode)) value) (if inhibit-redisplay value (let* ((edebug-breakpoints (car (cdr edebug-d= ata))) (edebug-break-data (assq offset-index edebug-breakpoints)) (edebug-b= reak-condition (car (cdr edebug-break-data))) (edebug-global-break (if edeb= ug-global-break-condition (condition-case nil (setq edebug-global-break-res= ult (edebug-eval edebug-global-break-condition)) (error nil)))) (edebug-bre= ak)) (setq edebug-break (or edebug-global-break (and edebug-break-data (or = (not edebug-break-condition) (setq edebug-break-result (edebug-eval edebug-= break-condition)))))) (if (and edebug-break (nth 2 edebug-break-data)) (set= cdr edebug-data (cons (delq edebug-break-data edebug-breakpoints) (cdr (cdr= edebug-data))))) (if (or (not (memq edebug-execution-mode '(go continue Co= ntinue-fast))) edebug-break (input-pending-p)) (edebug--display value offse= t-index arg-mode)) value)) edebug-debugger(31 after (closure (parse-time-val parse-time-elt t) nil (= and (stringp parse-time-elt) (=3D (length parse-time-elt) 8) (=3D (aref par= se-time-elt 2) 58) (=3D (aref parse-time-elt 5) 58)))) (if (and (eq edebug-execution-mode 'Go-nonstop) (not (input-pending-p))) = value (edebug-debugger after-index 'after value)) (if edebug-active value (setcar edebug-offset-indices after-index) (aset = edebug-freq-count after-index (1+ (aref edebug-freq-count after-index))) (i= f edebug-test-coverage (edebug--update-coverage after-index value)) (if (an= d (eq edebug-execution-mode 'Go-nonstop) (not (input-pending-p))) value (ed= ebug-debugger after-index 'after value))) edebug-after(29 31 (closure (parse-time-val parse-time-elt t) nil (and (s= tringp parse-time-elt) (=3D (length parse-time-elt) 8) (=3D (aref parse-tim= e-elt 2) 58) (=3D (aref parse-time-elt 5) 58)))) (let* ((rule (edebug-after (edebug-before 23) 25 (car-safe (let* ((x (ede= bug-after 0 24 rules))) (prog1 x (setq rules (cdr x))))))) (slots (edebug-a= fter (edebug-before 26) 28 (car-safe (let* ((x (edebug-after 0 27 rule))) (= prog1 x (setq rule (cdr x))))))) (predicate (edebug-after (edebug-before 29= ) 31 (car-safe (let* ((x (edebug-after 0 30 rule))) (prog1 x (setq rule (cd= r x))))))) (parse-time-val)) (edebug-after (edebug-before 32) 133 (if (edeb= ug-after (edebug-before 33) 90 (and (edebug-after (edebug-before 34) 41 (no= t (edebug-after (edebug-before 35) 40 (nth (edebug-after (edebug-before 36)= 38 (car (edebug-after 0 37 slots))) (edebug-after 0 39 time))))) (edebug-a= fter (edebug-before 42) 89 (setq parse-time-val (edebug-after (edebug-befor= e 43) 88 (cond ((edebug-after (edebug-before 44) 55 (and (edebug-after (ede= bug-before 45) 47 (consp (edebug-after 0 46 predicate))) (edebug-after (ede= bug-before 48) 54 (not (edebug-after (edebug-before 49) 53 (eq (edebug-afte= r (edebug-before 50) 52 (car (edebug-after 0 51 predicate))) 'lambda)))))) = (edebug-after (edebug-before 56) 73 (and (edebug-after (edebug-before 57) 5= 9 (numberp (edebug-after 0 58 parse-time-elt))) (edebug-after (edebug-befor= e 60) 65 (<=3D (edebug-after (edebug-before 61) 63 (car (edebug-after 0 62 = predicate))) (edebug-after 0 64 parse-time-elt))) (edebug-after (edebug-bef= ore 66) 71 (<=3D (edebug-after 0 67 parse-time-elt) (edebug-after (edebug-b= efore 68) 70 (car (cdr (edebug-after 0 69 predicate)))))) (edebug-after 0 7= 2 parse-time-elt)))) ((edebug-after (edebug-before 74) 76 (symbolp (edebug-= after 0 75 predicate))) (edebug-after (edebug-before 77) 84 (cdr (edebug-af= ter (edebug-before 78) 83 (assoc (edebug-after 0 79 parse-time-elt) (edebug= -after (edebug-before 80) 82 (symbol-value (edebug-after 0 81 predicate))))= )))) ((edebug-after (edebug-before 85) 87 (funcall (edebug-after 0 86 predi= cate)))))))))) (progn (edebug-after (edebug-before 91) 92 (setq exit t)) (e= debug-after (edebug-before 93) 132 (while (edebug-after 0 94 slots) (edebug= -after (edebug-before 95) 131 (let ((new-val (edebug-after (edebug-before 9= 6) 121 (if (edebug-after 0 97 rule) (edebug-after (edebug-before 98) 119 (l= et ((this (edebug-after (edebug-before 99) 101 (car-safe (let* ((x (edebug-= after 0 100 rule))) (prog1 x (setq rule (cdr x)))))))) (edebug-after (edebu= g-before 102) 118 (if (edebug-after (edebug-before 103) 105 (vectorp (edebu= g-after 0 104 this))) (edebug-after (edebug-before 106) 114 (cl-parse-integ= er (edebug-after 0 107 parse-time-elt) :start (edebug-after (edebug-before = 108) 110 (aref (edebug-after 0 109 this) 0)) :end (edebug-after (edebug-bef= ore 111) 113 (aref (edebug-after 0 112 this) 1)))) (edebug-after (edebug-be= fore 115) 117 (funcall (edebug-after 0 116 this))))))) (edebug-after 0 120 = parse-time-val))))) (edebug-after (edebug-before 122) 130 (rplaca (edebug-a= fter (edebug-before 123) 128 (nthcdr (edebug-after (edebug-before 124) 126 = (car-safe (let* ((x (edebug-after 0 125 slots))) (prog1 x (setq slots (cdr = x)))))) (edebug-after 0 127 time))) (edebug-after 0 129 new-val))))))))))) (edebug-after (edebug-before 22) 134 (let* ((rule (edebug-after (edebug-b= efore 23) 25 (car-safe (let* ((x (edebug-after 0 24 rules))) (prog1 x (setq= rules (cdr x))))))) (slots (edebug-after (edebug-before 26) 28 (car-safe (= let* ((x (edebug-after 0 27 rule))) (prog1 x (setq rule (cdr x))))))) (pred= icate (edebug-after (edebug-before 29) 31 (car-safe (let* ((x (edebug-after= 0 30 rule))) (prog1 x (setq rule (cdr x))))))) (parse-time-val)) (edebug-a= fter (edebug-before 32) 133 (if (edebug-after (edebug-before 33) 90 (and (e= debug-after (edebug-before 34) 41 (not (edebug-after (edebug-before 35) 40 = (nth (edebug-after (edebug-before 36) 38 (car (edebug-after 0 37 slots))) (= edebug-after 0 39 time))))) (edebug-after (edebug-before 42) 89 (setq parse= -time-val (edebug-after (edebug-before 43) 88 (cond ((edebug-after (edebug-= before 44) 55 (and (edebug-after (edebug-before 45) 47 (consp (edebug-after= 0 46 predicate))) (edebug-after (edebug-before 48) 54 (not (edebug-after (= edebug-before 49) 53 (eq (edebug-after (edebug-before 50) 52 (car (edebug-a= fter 0 51 predicate))) 'lambda)))))) (edebug-after (edebug-before 56) 73 (a= nd (edebug-after (edebug-before 57) 59 (numberp (edebug-after 0 58 parse-ti= me-elt))) (edebug-after (edebug-before 60) 65 (<=3D (edebug-after (edebug-b= efore 61) 63 (car (edebug-after 0 62 predicate))) (edebug-after 0 64 parse-= time-elt))) (edebug-after (edebug-before 66) 71 (<=3D (edebug-after 0 67 pa= rse-time-elt) (edebug-after (edebug-before 68) 70 (car (cdr (edebug-after 0= 69 predicate)))))) (edebug-after 0 72 parse-time-elt)))) ((edebug-after (e= debug-before 74) 76 (symbolp (edebug-after 0 75 predicate))) (edebug-after = (edebug-before 77) 84 (cdr (edebug-after (edebug-before 78) 83 (assoc (edeb= ug-after 0 79 parse-time-elt) (edebug-after (edebug-before 80) 82 (symbol-v= alue (edebug-after 0 81 predicate)))))))) ((edebug-after (edebug-before 85)= 87 (funcall (edebug-after 0 86 predicate)))))))))) (progn (edebug-after (e= debug-before 91) 92 (setq exit t)) (edebug-after (edebug-before 93) 132 (wh= ile (edebug-after 0 94 slots) (edebug-after (edebug-before 95) 131 (let ((n= ew-val (edebug-after (edebug-before 96) 121 (if (edebug-after 0 97 rule) (e= debug-after (edebug-before 98) 119 (let ((this (edebug-after (edebug-before= 99) 101 (car-safe (let* ((x (edebug-after 0 100 rule))) (prog1 x (setq rul= e (cdr x)))))))) (edebug-after (edebug-before 102) 118 (if (edebug-after (e= debug-before 103) 105 (vectorp (edebug-after 0 104 this))) (edebug-after (e= debug-before 106) 114 (cl-parse-integer (edebug-after 0 107 parse-time-elt)= :start (edebug-after (edebug-before 108) 110 (aref (edebug-after 0 109 thi= s) 0)) :end (edebug-after (edebug-before 111) 113 (aref (edebug-after 0 112= this) 1)))) (edebug-after (edebug-before 115) 117 (funcall (edebug-after 0= 116 this))))))) (edebug-after 0 120 parse-time-val))))) (edebug-after (ede= bug-before 122) 130 (rplaca (edebug-after (edebug-before 123) 128 (nthcdr (= edebug-after (edebug-before 124) 126 (car-safe (let* ((x (edebug-after 0 12= 5 slots))) (prog1 x (setq slots (cdr x)))))) (edebug-after 0 127 time))) (e= debug-after 0 129 new-val)))))))))))) (while (edebug-after (edebug-before 16) 21 (and (edebug-after 0 17 rules)= (edebug-after (edebug-before 18) 20 (not (edebug-after 0 19 exit))))) (ede= bug-after (edebug-before 22) 134 (let* ((rule (edebug-after (edebug-before = 23) 25 (car-safe (let* ((x (edebug-after 0 24 rules))) (prog1 x (setq rules= (cdr x))))))) (slots (edebug-after (edebug-before 26) 28 (car-safe (let* (= (x (edebug-after 0 27 rule))) (prog1 x (setq rule (cdr x))))))) (predicate = (edebug-after (edebug-before 29) 31 (car-safe (let* ((x (edebug-after 0 30 = rule))) (prog1 x (setq rule (cdr x))))))) (parse-time-val)) (edebug-after (= edebug-before 32) 133 (if (edebug-after (edebug-before 33) 90 (and (edebug-= after (edebug-before 34) 41 (not (edebug-after (edebug-before 35) 40 (nth (= edebug-after (edebug-before 36) 38 (car (edebug-after 0 37 slots))) (edebug= -after 0 39 time))))) (edebug-after (edebug-before 42) 89 (setq parse-time-= val (edebug-after (edebug-before 43) 88 (cond ((edebug-after (edebug-before= 44) 55 (and (edebug-after (edebug-before 45) 47 (consp (edebug-after 0 46 = predicate))) (edebug-after (edebug-before 48) 54 (not (edebug-after (edebug= -before 49) 53 (eq (edebug-after (edebug-before 50) 52 (car (edebug-after 0= 51 predicate))) 'lambda)))))) (edebug-after (edebug-before 56) 73 (and (ed= ebug-after (edebug-before 57) 59 (numberp (edebug-after 0 58 parse-time-elt= ))) (edebug-after (edebug-before 60) 65 (<=3D (edebug-after (edebug-before = 61) 63 (car (edebug-after 0 62 predicate))) (edebug-after 0 64 parse-time-e= lt))) (edebug-after (edebug-before 66) 71 (<=3D (edebug-after 0 67 parse-ti= me-elt) (edebug-after (edebug-before 68) 70 (car (cdr (edebug-after 0 69 pr= edicate)))))) (edebug-after 0 72 parse-time-elt)))) ((edebug-after (edebug-= before 74) 76 (symbolp (edebug-after 0 75 predicate))) (edebug-after (edebu= g-before 77) 84 (cdr (edebug-after (edebug-before 78) 83 (assoc (edebug-aft= er 0 79 parse-time-elt) (edebug-after (edebug-before 80) 82 (symbol-value (= edebug-after 0 81 predicate)))))))) ((edebug-after (edebug-before 85) 87 (f= uncall (edebug-after 0 86 predicate)))))))))) (progn (edebug-after (edebug-= before 91) 92 (setq exit t)) (edebug-after (edebug-before 93) 132 (while (e= debug-after 0 94 slots) (edebug-after (edebug-before 95) 131 (let ((new-val= (edebug-after (edebug-before 96) 121 (if (edebug-after 0 97 rule) (edebug-= after (edebug-before 98) 119 (let ((this (edebug-after (edebug-before 99) 1= 01 (car-safe (let* ((x (edebug-after 0 100 rule))) (prog1 x (setq rule (cdr= x)))))))) (edebug-after (edebug-before 102) 118 (if (edebug-after (edebug-= before 103) 105 (vectorp (edebug-after 0 104 this))) (edebug-after (edebug-= before 106) 114 (cl-parse-integer (edebug-after 0 107 parse-time-elt) :star= t (edebug-after (edebug-before 108) 110 (aref (edebug-after 0 109 this) 0))= :end (edebug-after (edebug-before 111) 113 (aref (edebug-after 0 112 this)= 1)))) (edebug-after (edebug-before 115) 117 (funcall (edebug-after 0 116 t= his))))))) (edebug-after 0 120 parse-time-val))))) (edebug-after (edebug-be= fore 122) 130 (rplaca (edebug-after (edebug-before 123) 128 (nthcdr (edebug= -after (edebug-before 124) 126 (car-safe (let* ((x (edebug-after 0 125 slot= s))) (prog1 x (setq slots (cdr x)))))) (edebug-after 0 127 time))) (edebug-= after 0 129 new-val))))))))))))) (edebug-after (edebug-before 15) 135 (while (edebug-after (edebug-before = 16) 21 (and (edebug-after 0 17 rules) (edebug-after (edebug-before 18) 20 (= not (edebug-after 0 19 exit))))) (edebug-after (edebug-before 22) 134 (let*= ((rule (edebug-after (edebug-before 23) 25 (car-safe (let* ((x (edebug-aft= er 0 24 rules))) (prog1 x (setq rules (cdr x))))))) (slots (edebug-after (e= debug-before 26) 28 (car-safe (let* ((x (edebug-after 0 27 rule))) (prog1 x= (setq rule (cdr x))))))) (predicate (edebug-after (edebug-before 29) 31 (c= ar-safe (let* ((x (edebug-after 0 30 rule))) (prog1 x (setq rule (cdr x))))= ))) (parse-time-val)) (edebug-after (edebug-before 32) 133 (if (edebug-afte= r (edebug-before 33) 90 (and (edebug-after (edebug-before 34) 41 (not (edeb= ug-after (edebug-before 35) 40 (nth (edebug-after (edebug-before 36) 38 (ca= r (edebug-after 0 37 slots))) (edebug-after 0 39 time))))) (edebug-after (e= debug-before 42) 89 (setq parse-time-val (edebug-after (edebug-before 43) 8= 8 (cond ((edebug-after (edebug-before 44) 55 (and (edebug-after (edebug-bef= ore 45) 47 (consp (edebug-after 0 46 predicate))) (edebug-after (edebug-bef= ore 48) 54 (not (edebug-after (edebug-before 49) 53 (eq (edebug-after (edeb= ug-before 50) 52 (car (edebug-after 0 51 predicate))) 'lambda)))))) (edebug= -after (edebug-before 56) 73 (and (edebug-after (edebug-before 57) 59 (numb= erp (edebug-after 0 58 parse-time-elt))) (edebug-after (edebug-before 60) 6= 5 (<=3D (edebug-after (edebug-before 61) 63 (car (edebug-after 0 62 predica= te))) (edebug-after 0 64 parse-time-elt))) (edebug-after (edebug-before 66)= 71 (<=3D (edebug-after 0 67 parse-time-elt) (edebug-after (edebug-before 6= 8) 70 (car (cdr (edebug-after 0 69 predicate)))))) (edebug-after 0 72 parse= -time-elt)))) ((edebug-after (edebug-before 74) 76 (symbolp (edebug-after 0= 75 predicate))) (edebug-after (edebug-before 77) 84 (cdr (edebug-after (ed= ebug-before 78) 83 (assoc (edebug-after 0 79 parse-time-elt) (edebug-after = (edebug-before 80) 82 (symbol-value (edebug-after 0 81 predicate)))))))) ((= edebug-after (edebug-before 85) 87 (funcall (edebug-after 0 86 predicate)))= ))))))) (progn (edebug-after (edebug-before 91) 92 (setq exit t)) (edebug-a= fter (edebug-before 93) 132 (while (edebug-after 0 94 slots) (edebug-after = (edebug-before 95) 131 (let ((new-val (edebug-after (edebug-before 96) 121 = (if (edebug-after 0 97 rule) (edebug-after (edebug-before 98) 119 (let ((th= is (edebug-after (edebug-before 99) 101 (car-safe (let* ((x (edebug-after 0= 100 rule))) (prog1 x (setq rule (cdr x)))))))) (edebug-after (edebug-befor= e 102) 118 (if (edebug-after (edebug-before 103) 105 (vectorp (edebug-after= 0 104 this))) (edebug-after (edebug-before 106) 114 (cl-parse-integer (ede= bug-after 0 107 parse-time-elt) :start (edebug-after (edebug-before 108) 11= 0 (aref (edebug-after 0 109 this) 0)) :end (edebug-after (edebug-before 111= ) 113 (aref (edebug-after 0 112 this) 1)))) (edebug-after (edebug-before 11= 5) 117 (funcall (edebug-after 0 116 this))))))) (edebug-after 0 120 parse-t= ime-val))))) (edebug-after (edebug-before 122) 130 (rplaca (edebug-after (e= debug-before 123) 128 (nthcdr (edebug-after (edebug-before 124) 126 (car-sa= fe (let* ((x (edebug-after 0 125 slots))) (prog1 x (setq slots (cdr x))))))= (edebug-after 0 127 time))) (edebug-after 0 129 new-val)))))))))))))) (let ((parse-time-elt (edebug-after (edebug-before 11) 13 (car-safe (let*= ((x (edebug-after 0 12 temp))) (prog1 x (setq temp (cdr x))))))) (rules (e= debug-after 0 14 parse-time-rules)) (exit nil)) (edebug-after (edebug-befor= e 15) 135 (while (edebug-after (edebug-before 16) 21 (and (edebug-after 0 1= 7 rules) (edebug-after (edebug-before 18) 20 (not (edebug-after 0 19 exit))= ))) (edebug-after (edebug-before 22) 134 (let* ((rule (edebug-after (edebug= -before 23) 25 (car-safe (let* ((x (edebug-after 0 24 rules))) (prog1 x (se= tq rules (cdr x))))))) (slots (edebug-after (edebug-before 26) 28 (car-safe= (let* ((x (edebug-after 0 27 rule))) (prog1 x (setq rule (cdr x))))))) (pr= edicate (edebug-after (edebug-before 29) 31 (car-safe (let* ((x (edebug-aft= er 0 30 rule))) (prog1 x (setq rule (cdr x))))))) (parse-time-val)) (edebug= -after (edebug-before 32) 133 (if (edebug-after (edebug-before 33) 90 (and = (edebug-after (edebug-before 34) 41 (not (edebug-after (edebug-before 35) 4= 0 (nth (edebug-after (edebug-before 36) 38 (car (edebug-after 0 37 slots)))= (edebug-after 0 39 time))))) (edebug-after (edebug-before 42) 89 (setq par= se-time-val (edebug-after (edebug-before 43) 88 (cond ((edebug-after (edebu= g-before 44) 55 (and (edebug-after (edebug-before 45) 47 (consp (edebug-aft= er 0 46 predicate))) (edebug-after (edebug-before 48) 54 (not (edebug-after= (edebug-before 49) 53 (eq (edebug-after (edebug-before 50) 52 (car (edebug= -after 0 51 predicate))) 'lambda)))))) (edebug-after (edebug-before 56) 73 = (and (edebug-after (edebug-before 57) 59 (numberp (edebug-after 0 58 parse-= time-elt))) (edebug-after (edebug-before 60) 65 (<=3D (edebug-after (edebug= -before 61) 63 (car (edebug-after 0 62 predicate))) (edebug-after 0 64 pars= e-time-elt))) (edebug-after (edebug-before 66) 71 (<=3D (edebug-after 0 67 = parse-time-elt) (edebug-after (edebug-before 68) 70 (car (cdr (edebug-after= 0 69 predicate)))))) (edebug-after 0 72 parse-time-elt)))) ((edebug-after = (edebug-before 74) 76 (symbolp (edebug-after 0 75 predicate))) (edebug-afte= r (edebug-before 77) 84 (cdr (edebug-after (edebug-before 78) 83 (assoc (ed= ebug-after 0 79 parse-time-elt) (edebug-after (edebug-before 80) 82 (symbol= -value (edebug-after 0 81 predicate)))))))) ((edebug-after (edebug-before 8= 5) 87 (funcall (edebug-after 0 86 predicate)))))))))) (progn (edebug-after = (edebug-before 91) 92 (setq exit t)) (edebug-after (edebug-before 93) 132 (= while (edebug-after 0 94 slots) (edebug-after (edebug-before 95) 131 (let (= (new-val (edebug-after (edebug-before 96) 121 (if (edebug-after 0 97 rule) = (edebug-after (edebug-before 98) 119 (let ((this (edebug-after (edebug-befo= re 99) 101 (car-safe (let* ((x (edebug-after 0 100 rule))) (prog1 x (setq r= ule (cdr x)))))))) (edebug-after (edebug-before 102) 118 (if (edebug-after = (edebug-before 103) 105 (vectorp (edebug-after 0 104 this))) (edebug-after = (edebug-before 106) 114 (cl-parse-integer (edebug-after 0 107 parse-time-el= t) :start (edebug-after (edebug-before 108) 110 (aref (edebug-after 0 109 t= his) 0)) :end (edebug-after (edebug-before 111) 113 (aref (edebug-after 0 1= 12 this) 1)))) (edebug-after (edebug-before 115) 117 (funcall (edebug-after= 0 116 this))))))) (edebug-after 0 120 parse-time-val))))) (edebug-after (e= debug-before 122) 130 (rplaca (edebug-after (edebug-before 123) 128 (nthcdr= (edebug-after (edebug-before 124) 126 (car-safe (let* ((x (edebug-after 0 = 125 slots))) (prog1 x (setq slots (cdr x)))))) (edebug-after 0 127 time))) = (edebug-after 0 129 new-val))))))))))))))) (edebug-after (edebug-before 10) 136 (let ((parse-time-elt (edebug-after = (edebug-before 11) 13 (car-safe (let* ((x (edebug-after 0 12 temp))) (prog1= x (setq temp (cdr x))))))) (rules (edebug-after 0 14 parse-time-rules)) (e= xit nil)) (edebug-after (edebug-before 15) 135 (while (edebug-after (edebug= -before 16) 21 (and (edebug-after 0 17 rules) (edebug-after (edebug-before = 18) 20 (not (edebug-after 0 19 exit))))) (edebug-after (edebug-before 22) 1= 34 (let* ((rule (edebug-after (edebug-before 23) 25 (car-safe (let* ((x (ed= ebug-after 0 24 rules))) (prog1 x (setq rules (cdr x))))))) (slots (edebug-= after (edebug-before 26) 28 (car-safe (let* ((x (edebug-after 0 27 rule))) = (prog1 x (setq rule (cdr x))))))) (predicate (edebug-after (edebug-before 2= 9) 31 (car-safe (let* ((x (edebug-after 0 30 rule))) (prog1 x (setq rule (c= dr x))))))) (parse-time-val)) (edebug-after (edebug-before 32) 133 (if (ede= bug-after (edebug-before 33) 90 (and (edebug-after (edebug-before 34) 41 (n= ot (edebug-after (edebug-before 35) 40 (nth (edebug-after (edebug-before 36= ) 38 (car (edebug-after 0 37 slots))) (edebug-after 0 39 time))))) (edebug-= after (edebug-before 42) 89 (setq parse-time-val (edebug-after (edebug-befo= re 43) 88 (cond ((edebug-after (edebug-before 44) 55 (and (edebug-after (ed= ebug-before 45) 47 (consp (edebug-after 0 46 predicate))) (edebug-after (ed= ebug-before 48) 54 (not (edebug-after (edebug-before 49) 53 (eq (edebug-aft= er (edebug-before 50) 52 (car (edebug-after 0 51 predicate))) 'lambda))))))= (edebug-after (edebug-before 56) 73 (and (edebug-after (edebug-before 57) = 59 (numberp (edebug-after 0 58 parse-time-elt))) (edebug-after (edebug-befo= re 60) 65 (<=3D (edebug-after (edebug-before 61) 63 (car (edebug-after 0 62= predicate))) (edebug-after 0 64 parse-time-elt))) (edebug-after (edebug-be= fore 66) 71 (<=3D (edebug-after 0 67 parse-time-elt) (edebug-after (edebug-= before 68) 70 (car (cdr (edebug-after 0 69 predicate)))))) (edebug-after 0 = 72 parse-time-elt)))) ((edebug-after (edebug-before 74) 76 (symbolp (edebug= -after 0 75 predicate))) (edebug-after (edebug-before 77) 84 (cdr (edebug-a= fter (edebug-before 78) 83 (assoc (edebug-after 0 79 parse-time-elt) (edebu= g-after (edebug-before 80) 82 (symbol-value (edebug-after 0 81 predicate)))= ))))) ((edebug-after (edebug-before 85) 87 (funcall (edebug-after 0 86 pred= icate)))))))))) (progn (edebug-after (edebug-before 91) 92 (setq exit t)) (= edebug-after (edebug-before 93) 132 (while (edebug-after 0 94 slots) (edebu= g-after (edebug-before 95) 131 (let ((new-val (edebug-after (edebug-before = 96) 121 (if (edebug-after 0 97 rule) (edebug-after (edebug-before 98) 119 (= let ((this (edebug-after (edebug-before 99) 101 (car-safe (let* ((x (edebug= -after 0 100 rule))) (prog1 x (setq rule (cdr x)))))))) (edebug-after (edeb= ug-before 102) 118 (if (edebug-after (edebug-before 103) 105 (vectorp (edeb= ug-after 0 104 this))) (edebug-after (edebug-before 106) 114 (cl-parse-inte= ger (edebug-after 0 107 parse-time-elt) :start (edebug-after (edebug-before= 108) 110 (aref (edebug-after 0 109 this) 0)) :end (edebug-after (edebug-be= fore 111) 113 (aref (edebug-after 0 112 this) 1)))) (edebug-after (edebug-b= efore 115) 117 (funcall (edebug-after 0 116 this))))))) (edebug-after 0 120= parse-time-val))))) (edebug-after (edebug-before 122) 130 (rplaca (edebug-= after (edebug-before 123) 128 (nthcdr (edebug-after (edebug-before 124) 126= (car-safe (let* ((x (edebug-after 0 125 slots))) (prog1 x (setq slots (cdr= x)))))) (edebug-after 0 127 time))) (edebug-after 0 129 new-val)))))))))))= ))))) (while (edebug-after 0 9 temp) (edebug-after (edebug-before 10) 136 (let = ((parse-time-elt (edebug-after (edebug-before 11) 13 (car-safe (let* ((x (e= debug-after 0 12 temp))) (prog1 x (setq temp (cdr x))))))) (rules (edebug-a= fter 0 14 parse-time-rules)) (exit nil)) (edebug-after (edebug-before 15) 1= 35 (while (edebug-after (edebug-before 16) 21 (and (edebug-after 0 17 rules= ) (edebug-after (edebug-before 18) 20 (not (edebug-after 0 19 exit))))) (ed= ebug-after (edebug-before 22) 134 (let* ((rule (edebug-after (edebug-before= 23) 25 (car-safe (let* ((x (edebug-after 0 24 rules))) (prog1 x (setq rule= s (cdr x))))))) (slots (edebug-after (edebug-before 26) 28 (car-safe (let* = ((x (edebug-after 0 27 rule))) (prog1 x (setq rule (cdr x))))))) (predicate= (edebug-after (edebug-before 29) 31 (car-safe (let* ((x (edebug-after 0 30= rule))) (prog1 x (setq rule (cdr x))))))) (parse-time-val)) (edebug-after = (edebug-before 32) 133 (if (edebug-after (edebug-before 33) 90 (and (edebug= -after (edebug-before 34) 41 (not (edebug-after (edebug-before 35) 40 (nth = (edebug-after (edebug-before 36) 38 (car (edebug-after 0 37 slots))) (edebu= g-after 0 39 time))))) (edebug-after (edebug-before 42) 89 (setq parse-time= -val (edebug-after (edebug-before 43) 88 (cond ((edebug-after (edebug-befor= e 44) 55 (and (edebug-after (edebug-before 45) 47 (consp (edebug-after 0 46= predicate))) (edebug-after (edebug-before 48) 54 (not (edebug-after (edebu= g-before 49) 53 (eq (edebug-after (edebug-before 50) 52 (car (edebug-after = 0 51 predicate))) 'lambda)))))) (edebug-after (edebug-before 56) 73 (and (e= debug-after (edebug-before 57) 59 (numberp (edebug-after 0 58 parse-time-el= t))) (edebug-after (edebug-before 60) 65 (<=3D (edebug-after (edebug-before= 61) 63 (car (edebug-after 0 62 predicate))) (edebug-after 0 64 parse-time-= elt))) (edebug-after (edebug-before 66) 71 (<=3D (edebug-after 0 67 parse-t= ime-elt) (edebug-after (edebug-before 68) 70 (car (cdr (edebug-after 0 69 p= redicate)))))) (edebug-after 0 72 parse-time-elt)))) ((edebug-after (edebug= -before 74) 76 (symbolp (edebug-after 0 75 predicate))) (edebug-after (edeb= ug-before 77) 84 (cdr (edebug-after (edebug-before 78) 83 (assoc (edebug-af= ter 0 79 parse-time-elt) (edebug-after (edebug-before 80) 82 (symbol-value = (edebug-after 0 81 predicate)))))))) ((edebug-after (edebug-before 85) 87 (= funcall (edebug-after 0 86 predicate)))))))))) (progn (edebug-after (edebug= -before 91) 92 (setq exit t)) (edebug-after (edebug-before 93) 132 (while (= edebug-after 0 94 slots) (edebug-after (edebug-before 95) 131 (let ((new-va= l (edebug-after (edebug-before 96) 121 (if (edebug-after 0 97 rule) (edebug= -after (edebug-before 98) 119 (let ((this (edebug-after (edebug-before 99) = 101 (car-safe (let* ((x (edebug-after 0 100 rule))) (prog1 x (setq rule (cd= r x)))))))) (edebug-after (edebug-before 102) 118 (if (edebug-after (edebug= -before 103) 105 (vectorp (edebug-after 0 104 this))) (edebug-after (edebug= -before 106) 114 (cl-parse-integer (edebug-after 0 107 parse-time-elt) :sta= rt (edebug-after (edebug-before 108) 110 (aref (edebug-after 0 109 this) 0)= ) :end (edebug-after (edebug-before 111) 113 (aref (edebug-after 0 112 this= ) 1)))) (edebug-after (edebug-before 115) 117 (funcall (edebug-after 0 116 = this))))))) (edebug-after 0 120 parse-time-val))))) (edebug-after (edebug-b= efore 122) 130 (rplaca (edebug-after (edebug-before 123) 128 (nthcdr (edebu= g-after (edebug-before 124) 126 (car-safe (let* ((x (edebug-after 0 125 slo= ts))) (prog1 x (setq slots (cdr x)))))) (edebug-after 0 127 time))) (edebug= -after 0 129 new-val))))))))))))))))) (edebug-after (edebug-before 8) 137 (while (edebug-after 0 9 temp) (edebu= g-after (edebug-before 10) 136 (let ((parse-time-elt (edebug-after (edebug-= before 11) 13 (car-safe (let* ((x (edebug-after 0 12 temp))) (prog1 x (setq= temp (cdr x))))))) (rules (edebug-after 0 14 parse-time-rules)) (exit nil)= ) (edebug-after (edebug-before 15) 135 (while (edebug-after (edebug-before = 16) 21 (and (edebug-after 0 17 rules) (edebug-after (edebug-before 18) 20 (= not (edebug-after 0 19 exit))))) (edebug-after (edebug-before 22) 134 (let*= ((rule (edebug-after (edebug-before 23) 25 (car-safe (let* ((x (edebug-aft= er 0 24 rules))) (prog1 x (setq rules (cdr x))))))) (slots (edebug-after (e= debug-before 26) 28 (car-safe (let* ((x (edebug-after 0 27 rule))) (prog1 x= (setq rule (cdr x))))))) (predicate (edebug-after (edebug-before 29) 31 (c= ar-safe (let* ((x (edebug-after 0 30 rule))) (prog1 x (setq rule (cdr x))))= ))) (parse-time-val)) (edebug-after (edebug-before 32) 133 (if (edebug-afte= r (edebug-before 33) 90 (and (edebug-after (edebug-before 34) 41 (not (edeb= ug-after (edebug-before 35) 40 (nth (edebug-after (edebug-before 36) 38 (ca= r (edebug-after 0 37 slots))) (edebug-after 0 39 time))))) (edebug-after (e= debug-before 42) 89 (setq parse-time-val (edebug-after (edebug-before 43) 8= 8 (cond ((edebug-after (edebug-before 44) 55 (and (edebug-after (edebug-bef= ore 45) 47 (consp (edebug-after 0 46 predicate))) (edebug-after (edebug-bef= ore 48) 54 (not (edebug-after (edebug-before 49) 53 (eq (edebug-after (edeb= ug-before 50) 52 (car (edebug-after 0 51 predicate))) 'lambda)))))) (edebug= -after (edebug-before 56) 73 (and (edebug-after (edebug-before 57) 59 (numb= erp (edebug-after 0 58 parse-time-elt))) (edebug-after (edebug-before 60) 6= 5 (<=3D (edebug-after (edebug-before 61) 63 (car (edebug-after 0 62 predica= te))) (edebug-after 0 64 parse-time-elt))) (edebug-after (edebug-before 66)= 71 (<=3D (edebug-after 0 67 parse-time-elt) (edebug-after (edebug-before 6= 8) 70 (car (cdr (edebug-after 0 69 predicate)))))) (edebug-after 0 72 parse= -time-elt)))) ((edebug-after (edebug-before 74) 76 (symbolp (edebug-after 0= 75 predicate))) (edebug-after (edebug-before 77) 84 (cdr (edebug-after (ed= ebug-before 78) 83 (assoc (edebug-after 0 79 parse-time-elt) (edebug-after = (edebug-before 80) 82 (symbol-value (edebug-after 0 81 predicate)))))))) ((= edebug-after (edebug-before 85) 87 (funcall (edebug-after 0 86 predicate)))= ))))))) (progn (edebug-after (edebug-before 91) 92 (setq exit t)) (edebug-a= fter (edebug-before 93) 132 (while (edebug-after 0 94 slots) (edebug-after = (edebug-before 95) 131 (let ((new-val (edebug-after (edebug-before 96) 121 = (if (edebug-after 0 97 rule) (edebug-after (edebug-before 98) 119 (let ((th= is (edebug-after (edebug-before 99) 101 (car-safe (let* ((x (edebug-after 0= 100 rule))) (prog1 x (setq rule (cdr x)))))))) (edebug-after (edebug-befor= e 102) 118 (if (edebug-after (edebug-before 103) 105 (vectorp (edebug-after= 0 104 this))) (edebug-after (edebug-before 106) 114 (cl-parse-integer (ede= bug-after 0 107 parse-time-elt) :start (edebug-after (edebug-before 108) 11= 0 (aref (edebug-after 0 109 this) 0)) :end (edebug-after (edebug-before 111= ) 113 (aref (edebug-after 0 112 this) 1)))) (edebug-after (edebug-before 11= 5) 117 (funcall (edebug-after 0 116 this))))))) (edebug-after 0 120 parse-t= ime-val))))) (edebug-after (edebug-before 122) 130 (rplaca (edebug-after (e= debug-before 123) 128 (nthcdr (edebug-after (edebug-before 124) 126 (car-sa= fe (let* ((x (edebug-after 0 125 slots))) (prog1 x (setq slots (cdr x))))))= (edebug-after 0 127 time))) (edebug-after 0 129 new-val)))))))))))))))))) (let ((time (edebug-after (edebug-before 1) 2 (list nil nil nil nil nil n= il nil nil nil))) (temp (edebug-after (edebug-before 3) 7 (parse-time-token= ize (edebug-after (edebug-before 4) 6 (downcase (edebug-after 0 5 string)))= )))) (edebug-after (edebug-before 8) 137 (while (edebug-after 0 9 temp) (ed= ebug-after (edebug-before 10) 136 (let ((parse-time-elt (edebug-after (edeb= ug-before 11) 13 (car-safe (let* ((x (edebug-after 0 12 temp))) (prog1 x (s= etq temp (cdr x))))))) (rules (edebug-after 0 14 parse-time-rules)) (exit n= il)) (edebug-after (edebug-before 15) 135 (while (edebug-after (edebug-befo= re 16) 21 (and (edebug-after 0 17 rules) (edebug-after (edebug-before 18) 2= 0 (not (edebug-after 0 19 exit))))) (edebug-after (edebug-before 22) 134 (l= et* ((rule (edebug-after (edebug-before 23) 25 (car-safe (let* ((x (edebug-= after 0 24 rules))) (prog1 x (setq rules (cdr x))))))) (slots (edebug-after= (edebug-before 26) 28 (car-safe (let* ((x (edebug-after 0 27 rule))) (prog= 1 x (setq rule (cdr x))))))) (predicate (edebug-after (edebug-before 29) 31= (car-safe (let* ((x (edebug-after 0 30 rule))) (prog1 x (setq rule (cdr x)= )))))) (parse-time-val)) (edebug-after (edebug-before 32) 133 (if (edebug-a= fter (edebug-before 33) 90 (and (edebug-after (edebug-before 34) 41 (not (e= debug-after (edebug-before 35) 40 (nth (edebug-after (edebug-before 36) 38 = (car (edebug-after 0 37 slots))) (edebug-after 0 39 time))))) (edebug-after= (edebug-before 42) 89 (setq parse-time-val (edebug-after (edebug-before 43= ) 88 (cond ((edebug-after (edebug-before 44) 55 (and (edebug-after (edebug-= before 45) 47 (consp (edebug-after 0 46 predicate))) (edebug-after (edebug-= before 48) 54 (not (edebug-after (edebug-before 49) 53 (eq (edebug-after (e= debug-before 50) 52 (car (edebug-after 0 51 predicate))) 'lambda)))))) (ede= bug-after (edebug-before 56) 73 (and (edebug-after (edebug-before 57) 59 (n= umberp (edebug-after 0 58 parse-time-elt))) (edebug-after (edebug-before 60= ) 65 (<=3D (edebug-after (edebug-before 61) 63 (car (edebug-after 0 62 pred= icate))) (edebug-after 0 64 parse-time-elt))) (edebug-after (edebug-before = 66) 71 (<=3D (edebug-after 0 67 parse-time-elt) (edebug-after (edebug-befor= e 68) 70 (car (cdr (edebug-after 0 69 predicate)))))) (edebug-after 0 72 pa= rse-time-elt)))) ((edebug-after (edebug-before 74) 76 (symbolp (edebug-afte= r 0 75 predicate))) (edebug-after (edebug-before 77) 84 (cdr (edebug-after = (edebug-before 78) 83 (assoc (edebug-after 0 79 parse-time-elt) (edebug-aft= er (edebug-before 80) 82 (symbol-value (edebug-after 0 81 predicate))))))))= ((edebug-after (edebug-before 85) 87 (funcall (edebug-after 0 86 predicate= )))))))))) (progn (edebug-after (edebug-before 91) 92 (setq exit t)) (edebu= g-after (edebug-before 93) 132 (while (edebug-after 0 94 slots) (edebug-aft= er (edebug-before 95) 131 (let ((new-val (edebug-after (edebug-before 96) 1= 21 (if (edebug-after 0 97 rule) (edebug-after (edebug-before 98) 119 (let (= (this (edebug-after (edebug-before 99) 101 (car-safe (let* ((x (edebug-afte= r 0 100 rule))) (prog1 x (setq rule (cdr x)))))))) (edebug-after (edebug-be= fore 102) 118 (if (edebug-after (edebug-before 103) 105 (vectorp (edebug-af= ter 0 104 this))) (edebug-after (edebug-before 106) 114 (cl-parse-integer (= edebug-after 0 107 parse-time-elt) :start (edebug-after (edebug-before 108)= 110 (aref (edebug-after 0 109 this) 0)) :end (edebug-after (edebug-before = 111) 113 (aref (edebug-after 0 112 this) 1)))) (edebug-after (edebug-before= 115) 117 (funcall (edebug-after 0 116 this))))))) (edebug-after 0 120 pars= e-time-val))))) (edebug-after (edebug-before 122) 130 (rplaca (edebug-after= (edebug-before 123) 128 (nthcdr (edebug-after (edebug-before 124) 126 (car= -safe (let* ((x (edebug-after 0 125 slots))) (prog1 x (setq slots (cdr x)))= ))) (edebug-after 0 127 time))) (edebug-after 0 129 new-val))))))))))))))))= )) (edebug-after 0 138 time)) (edebug-after (edebug-before 0) 139 (let ((time (edebug-after (edebug-bef= ore 1) 2 (list nil nil nil nil nil nil nil nil nil))) (temp (edebug-after (= edebug-before 3) 7 (parse-time-tokenize (edebug-after (edebug-before 4) 6 (= downcase (edebug-after 0 5 string))))))) (edebug-after (edebug-before 8) 13= 7 (while (edebug-after 0 9 temp) (edebug-after (edebug-before 10) 136 (let = ((parse-time-elt (edebug-after (edebug-before 11) 13 (car-safe (let* ((x (e= debug-after 0 12 temp))) (prog1 x (setq temp (cdr x))))))) (rules (edebug-a= fter 0 14 parse-time-rules)) (exit nil)) (edebug-after (edebug-before 15) 1= 35 (while (edebug-after (edebug-before 16) 21 (and (edebug-after 0 17 rules= ) (edebug-after (edebug-before 18) 20 (not (edebug-after 0 19 exit))))) (ed= ebug-after (edebug-before 22) 134 (let* ((rule (edebug-after (edebug-before= 23) 25 (car-safe (let* ((x (edebug-after 0 24 rules))) (prog1 x (setq rule= s (cdr x))))))) (slots (edebug-after (edebug-before 26) 28 (car-safe (let* = ((x (edebug-after 0 27 rule))) (prog1 x (setq rule (cdr x))))))) (predicate= (edebug-after (edebug-before 29) 31 (car-safe (let* ((x (edebug-after 0 30= rule))) (prog1 x (setq rule (cdr x))))))) (parse-time-val)) (edebug-after = (edebug-before 32) 133 (if (edebug-after (edebug-before 33) 90 (and (edebug= -after (edebug-before 34) 41 (not (edebug-after (edebug-before 35) 40 (nth = (edebug-after (edebug-before 36) 38 (car (edebug-after 0 37 slots))) (edebu= g-after 0 39 time))))) (edebug-after (edebug-before 42) 89 (setq parse-time= -val (edebug-after (edebug-before 43) 88 (cond ((edebug-after (edebug-befor= e 44) 55 (and (edebug-after (edebug-before 45) 47 (consp (edebug-after 0 46= predicate))) (edebug-after (edebug-before 48) 54 (not (edebug-after (edebu= g-before 49) 53 (eq (edebug-after (edebug-before 50) 52 (car (edebug-after = 0 51 predicate))) 'lambda)))))) (edebug-after (edebug-before 56) 73 (and (e= debug-after (edebug-before 57) 59 (numberp (edebug-after 0 58 parse-time-el= t))) (edebug-after (edebug-before 60) 65 (<=3D (edebug-after (edebug-before= 61) 63 (car (edebug-after 0 62 predicate))) (edebug-after 0 64 parse-time-= elt))) (edebug-after (edebug-before 66) 71 (<=3D (edebug-after 0 67 parse-t= ime-elt) (edebug-after (edebug-before 68) 70 (car (cdr (edebug-after 0 69 p= redicate)))))) (edebug-after 0 72 parse-time-elt)))) ((edebug-after (edebug= -before 74) 76 (symbolp (edebug-after 0 75 predicate))) (edebug-after (edeb= ug-before 77) 84 (cdr (edebug-after (edebug-before 78) 83 (assoc (edebug-af= ter 0 79 parse-time-elt) (edebug-after (edebug-before 80) 82 (symbol-value = (edebug-after 0 81 predicate)))))))) ((edebug-after (edebug-before 85) 87 (= funcall (edebug-after 0 86 predicate)))))))))) (progn (edebug-after (edebug= -before 91) 92 (setq exit t)) (edebug-after (edebug-before 93) 132 (while (= edebug-after 0 94 slots) (edebug-after (edebug-before 95) 131 (let ((new-va= l (edebug-after (edebug-before 96) 121 (if (edebug-after 0 97 rule) (edebug= -after (edebug-before 98) 119 (let ((this (edebug-after (edebug-before 99) = 101 (car-safe (let* ((x (edebug-after 0 100 rule))) (prog1 x (setq rule (cd= r x)))))))) (edebug-after (edebug-before 102) 118 (if (edebug-after (edebug= -before 103) 105 (vectorp (edebug-after 0 104 this))) (edebug-after (edebug= -before 106) 114 (cl-parse-integer (edebug-after 0 107 parse-time-elt) :sta= rt (edebug-after (edebug-before 108) 110 (aref (edebug-after 0 109 this) 0)= ) :end (edebug-after (edebug-before 111) 113 (aref (edebug-after 0 112 this= ) 1)))) (edebug-after (edebug-before 115) 117 (funcall (edebug-after 0 116 = this))))))) (edebug-after 0 120 parse-time-val))))) (edebug-after (edebug-b= efore 122) 130 (rplaca (edebug-after (edebug-before 123) 128 (nthcdr (edebu= g-after (edebug-before 124) 126 (car-safe (let* ((x (edebug-after 0 125 slo= ts))) (prog1 x (setq slots (cdr x)))))) (edebug-after 0 127 time))) (edebug= -after 0 129 new-val)))))))))))))))))) (edebug-after 0 138 time))) (closure ((string . "Tue, 21 Feb 2017 17:17:56 -0500") parse-time-elt par= se-time-val t) nil (edebug-after (edebug-before 0) 139 (let ((time (edebug-= after (edebug-before 1) 2 (list nil nil nil nil nil nil nil nil nil))) (tem= p (edebug-after (edebug-before 3) 7 (parse-time-tokenize (edebug-after (ede= bug-before 4) 6 (downcase (edebug-after 0 5 string))))))) (edebug-after (ed= ebug-before 8) 137 (while (edebug-after 0 9 temp) (edebug-after (edebug-bef= ore 10) 136 (let ((parse-time-elt (edebug-after (edebug-before 11) 13 (car-= safe (let* ((x (edebug-after 0 12 temp))) (prog1 x (setq temp (cdr x)))))))= (rules (edebug-after 0 14 parse-time-rules)) (exit nil)) (edebug-after (ed= ebug-before 15) 135 (while (edebug-after (edebug-before 16) 21 (and (edebug= -after 0 17 rules) (edebug-after (edebug-before 18) 20 (not (edebug-after 0= 19 exit))))) (edebug-after (edebug-before 22) 134 (let* ((rule (edebug-aft= er (edebug-before 23) 25 (car-safe (let* ((x (edebug-after 0 24 rules))) (p= rog1 x (setq rules (cdr x))))))) (slots (edebug-after (edebug-before 26) 28= (car-safe (let* ((x (edebug-after 0 27 rule))) (prog1 x (setq rule (cdr x)= )))))) (predicate (edebug-after (edebug-before 29) 31 (car-safe (let* ((x (= edebug-after 0 30 rule))) (prog1 x (setq rule (cdr x))))))) (parse-time-val= )) (edebug-after (edebug-before 32) 133 (if (edebug-after (edebug-before 33= ) 90 (and (edebug-after (edebug-before 34) 41 (not (edebug-after (edebug-be= fore 35) 40 (nth (edebug-after (edebug-before 36) 38 (car (edebug-after 0 3= 7 slots))) (edebug-after 0 39 time))))) (edebug-after (edebug-before 42) 89= (setq parse-time-val (edebug-after (edebug-before 43) 88 (cond ((edebug-af= ter (edebug-before 44) 55 (and (edebug-after (edebug-before 45) 47 (consp (= edebug-after 0 46 predicate))) (edebug-after (edebug-before 48) 54 (not (ed= ebug-after (edebug-before 49) 53 (eq (edebug-after (edebug-before 50) 52 (c= ar (edebug-after 0 51 predicate))) 'lambda)))))) (edebug-after (edebug-befo= re 56) 73 (and (edebug-after (edebug-before 57) 59 (numberp (edebug-after 0= 58 parse-time-elt))) (edebug-after (edebug-before 60) 65 (<=3D (edebug-aft= er (edebug-before 61) 63 (car (edebug-after 0 62 predicate))) (edebug-after= 0 64 parse-time-elt))) (edebug-after (edebug-before 66) 71 (<=3D (edebug-a= fter 0 67 parse-time-elt) (edebug-after (edebug-before 68) 70 (car (cdr (ed= ebug-after 0 69 predicate)))))) (edebug-after 0 72 parse-time-elt)))) ((ede= bug-after (edebug-before 74) 76 (symbolp (edebug-after 0 75 predicate))) (e= debug-after (edebug-before 77) 84 (cdr (edebug-after (edebug-before 78) 83 = (assoc (edebug-after 0 79 parse-time-elt) (edebug-after (edebug-before 80) = 82 (symbol-value (edebug-after 0 81 predicate)))))))) ((edebug-after (edebu= g-before 85) 87 (funcall (edebug-after 0 86 predicate)))))))))) (progn (ede= bug-after (edebug-before 91) 92 (setq exit t)) (edebug-after (edebug-before= 93) 132 (while (edebug-after 0 94 slots) (edebug-after (edebug-before 95) = 131 (let ((new-val (edebug-after (edebug-before 96) 121 (if (edebug-after 0= 97 rule) (edebug-after (edebug-before 98) 119 (let ((this (edebug-after (e= debug-before 99) 101 (car-safe (let* ((x (edebug-after 0 100 rule))) (prog1= x (setq rule (cdr x)))))))) (edebug-after (edebug-before 102) 118 (if (ede= bug-after (edebug-before 103) 105 (vectorp (edebug-after 0 104 this))) (ede= bug-after (edebug-before 106) 114 (cl-parse-integer (edebug-after 0 107 par= se-time-elt) :start (edebug-after (edebug-before 108) 110 (aref (edebug-aft= er 0 109 this) 0)) :end (edebug-after (edebug-before 111) 113 (aref (edebug= -after 0 112 this) 1)))) (edebug-after (edebug-before 115) 117 (funcall (ed= ebug-after 0 116 this))))))) (edebug-after 0 120 parse-time-val))))) (edebu= g-after (edebug-before 122) 130 (rplaca (edebug-after (edebug-before 123) 1= 28 (nthcdr (edebug-after (edebug-before 124) 126 (car-safe (let* ((x (edebu= g-after 0 125 slots))) (prog1 x (setq slots (cdr x)))))) (edebug-after 0 12= 7 time))) (edebug-after 0 129 new-val)))))))))))))))))) (edebug-after 0 138= time))))() funcall((closure ((string . "Tue, 21 Feb 2017 17:17:56 -0500") parse-time= -elt parse-time-val t) nil (edebug-after (edebug-before 0) 139 (let ((time = (edebug-after (edebug-before 1) 2 (list nil nil nil nil nil nil nil nil nil= ))) (temp (edebug-after (edebug-before 3) 7 (parse-time-tokenize (edebug-af= ter (edebug-before 4) 6 (downcase (edebug-after 0 5 string))))))) (edebug-a= fter (edebug-before 8) 137 (while (edebug-after 0 9 temp) (edebug-after (ed= ebug-before 10) 136 (let ((parse-time-elt (edebug-after (edebug-before 11) = 13 (car-safe (let* ((x (edebug-after 0 12 temp))) (prog1 x (setq temp (cdr = x))))))) (rules (edebug-after 0 14 parse-time-rules)) (exit nil)) (edebug-a= fter (edebug-before 15) 135 (while (edebug-after (edebug-before 16) 21 (and= (edebug-after 0 17 rules) (edebug-after (edebug-before 18) 20 (not (edebug= -after 0 19 exit))))) (edebug-after (edebug-before 22) 134 (let* ((rule (ed= ebug-after (edebug-before 23) 25 (car-safe (let* ((x (edebug-after 0 24 rul= es))) (prog1 x (setq rules (cdr x))))))) (slots (edebug-after (edebug-befor= e 26) 28 (car-safe (let* ((x (edebug-after 0 27 rule))) (prog1 x (setq rule= (cdr x))))))) (predicate (edebug-after (edebug-before 29) 31 (car-safe (le= t* ((x (edebug-after 0 30 rule))) (prog1 x (setq rule (cdr x))))))) (parse-= time-val)) (edebug-after (edebug-before 32) 133 (if (edebug-after (edebug-b= efore 33) 90 (and (edebug-after (edebug-before 34) 41 (not (edebug-after (e= debug-before 35) 40 (nth (edebug-after (edebug-before 36) 38 (car (edebug-a= fter 0 37 slots))) (edebug-after 0 39 time))))) (edebug-after (edebug-befor= e 42) 89 (setq parse-time-val (edebug-after (edebug-before 43) 88 (cond ((e= debug-after (edebug-before 44) 55 (and (edebug-after (edebug-before 45) 47 = (consp (edebug-after 0 46 predicate))) (edebug-after (edebug-before 48) 54 = (not (edebug-after (edebug-before 49) 53 (eq (edebug-after (edebug-before 5= 0) 52 (car (edebug-after 0 51 predicate))) 'lambda)))))) (edebug-after (ede= bug-before 56) 73 (and (edebug-after (edebug-before 57) 59 (numberp (edebug= -after 0 58 parse-time-elt))) (edebug-after (edebug-before 60) 65 (<=3D (ed= ebug-after (edebug-before 61) 63 (car (edebug-after 0 62 predicate))) (edeb= ug-after 0 64 parse-time-elt))) (edebug-after (edebug-before 66) 71 (<=3D (= edebug-after 0 67 parse-time-elt) (edebug-after (edebug-before 68) 70 (car = (cdr (edebug-after 0 69 predicate)))))) (edebug-after 0 72 parse-time-elt))= )) ((edebug-after (edebug-before 74) 76 (symbolp (edebug-after 0 75 predica= te))) (edebug-after (edebug-before 77) 84 (cdr (edebug-after (edebug-before= 78) 83 (assoc (edebug-after 0 79 parse-time-elt) (edebug-after (edebug-bef= ore 80) 82 (symbol-value (edebug-after 0 81 predicate)))))))) ((edebug-afte= r (edebug-before 85) 87 (funcall (edebug-after 0 86 predicate)))))))))) (pr= ogn (edebug-after (edebug-before 91) 92 (setq exit t)) (edebug-after (edebu= g-before 93) 132 (while (edebug-after 0 94 slots) (edebug-after (edebug-bef= ore 95) 131 (let ((new-val (edebug-after (edebug-before 96) 121 (if (edebug= -after 0 97 rule) (edebug-after (edebug-before 98) 119 (let ((this (edebug-= after (edebug-before 99) 101 (car-safe (let* ((x (edebug-after 0 100 rule))= ) (prog1 x (setq rule (cdr x)))))))) (edebug-after (edebug-before 102) 118 = (if (edebug-after (edebug-before 103) 105 (vectorp (edebug-after 0 104 this= ))) (edebug-after (edebug-before 106) 114 (cl-parse-integer (edebug-after 0= 107 parse-time-elt) :start (edebug-after (edebug-before 108) 110 (aref (ed= ebug-after 0 109 this) 0)) :end (edebug-after (edebug-before 111) 113 (aref= (edebug-after 0 112 this) 1)))) (edebug-after (edebug-before 115) 117 (fun= call (edebug-after 0 116 this))))))) (edebug-after 0 120 parse-time-val))))= ) (edebug-after (edebug-before 122) 130 (rplaca (edebug-after (edebug-befor= e 123) 128 (nthcdr (edebug-after (edebug-before 124) 126 (car-safe (let* ((= x (edebug-after 0 125 slots))) (prog1 x (setq slots (cdr x)))))) (edebug-af= ter 0 127 time))) (edebug-after 0 129 new-val)))))))))))))))))) (edebug-aft= er 0 138 time))))) (if edebug-trace (edebug--enter-trace function args body) (funcall body)) (let* ((edebug-data (get function 'edebug)) (edebug-def-mark (car edebug-= data)) (edebug-freq-count (get function 'edebug-freq-count)) (edebug-covera= ge (get function 'edebug-coverage)) (edebug-buffer (marker-buffer edebug-de= f-mark)) (edebug-stack (cons function edebug-stack)) (edebug-offset-indices= (cons 0 edebug-offset-indices))) (if (get function 'edebug-on-entry) (prog= n (setq edebug-execution-mode 'step) (if (eq (get function 'edebug-on-entry= ) 'temp) (put function 'edebug-on-entry nil)))) (if edebug-trace (edebug--e= nter-trace function args body) (funcall body))) (if (not edebug-entered) (let ((edebug-entered t) (max-lisp-eval-depth (+= 100 max-lisp-eval-depth)) (max-specpdl-size (+ 200 max-specpdl-size)) (deb= ugger edebug-debugger) (edebug-outside-debug-on-error debug-on-error) (edeb= ug-outside-debug-on-quit debug-on-quit) (debug-on-error (or debug-on-error = edebug-on-error)) (debug-on-quit edebug-on-quit)) (unwind-protect (let ((si= gnal-hook-function 'edebug-signal)) (setq edebug-execution-mode (or edebug-= next-execution-mode edebug-initial-mode edebug-execution-mode) edebug-next-= execution-mode nil) (edebug-enter function args body)))) (let* ((edebug-dat= a (get function 'edebug)) (edebug-def-mark (car edebug-data)) (edebug-freq-= count (get function 'edebug-freq-count)) (edebug-coverage (get function 'ed= ebug-coverage)) (edebug-buffer (marker-buffer edebug-def-mark)) (edebug-sta= ck (cons function edebug-stack)) (edebug-offset-indices (cons 0 edebug-offs= et-indices))) (if (get function 'edebug-on-entry) (progn (setq edebug-execu= tion-mode 'step) (if (eq (get function 'edebug-on-entry) 'temp) (put functi= on 'edebug-on-entry nil)))) (if edebug-trace (edebug--enter-trace function = args body) (funcall body)))) (let ((edebug-function function)) (if (not edebug-entered) (let ((edebug-= entered t) (max-lisp-eval-depth (+ 100 max-lisp-eval-depth)) (max-specpdl-s= ize (+ 200 max-specpdl-size)) (debugger edebug-debugger) (edebug-outside-de= bug-on-error debug-on-error) (edebug-outside-debug-on-quit debug-on-quit) (= debug-on-error (or debug-on-error edebug-on-error)) (debug-on-quit edebug-o= n-quit)) (unwind-protect (let ((signal-hook-function 'edebug-signal)) (setq= edebug-execution-mode (or edebug-next-execution-mode edebug-initial-mode e= debug-execution-mode) edebug-next-execution-mode nil) (edebug-enter functio= n args body)))) (let* ((edebug-data (get function 'edebug)) (edebug-def-mar= k (car edebug-data)) (edebug-freq-count (get function 'edebug-freq-count)) = (edebug-coverage (get function 'edebug-coverage)) (edebug-buffer (marker-bu= ffer edebug-def-mark)) (edebug-stack (cons function edebug-stack)) (edebug-= offset-indices (cons 0 edebug-offset-indices))) (if (get function 'edebug-o= n-entry) (progn (setq edebug-execution-mode 'step) (if (eq (get function 'e= debug-on-entry) 'temp) (put function 'edebug-on-entry nil)))) (if edebug-tr= ace (edebug--enter-trace function args body) (funcall body))))) edebug-enter(parse-time-string ("Tue, 21 Feb 2017 17:17:56 -0500") (closu= re ((string . "Tue, 21 Feb 2017 17:17:56 -0500") parse-time-elt parse-time-= val t) nil (edebug-after (edebug-before 0) 139 (let ((time (edebug-after (e= debug-before 1) 2 (list nil nil nil nil nil nil nil nil nil))) (temp (edebu= g-after (edebug-before 3) 7 (parse-time-tokenize (edebug-after (edebug-befo= re 4) 6 (downcase (edebug-after 0 5 string))))))) (edebug-after (edebug-bef= ore 8) 137 (while (edebug-after 0 9 temp) (edebug-after (edebug-before 10) = 136 (let ((parse-time-elt (edebug-after (edebug-before 11) 13 (car-safe (le= t* ((x (edebug-after 0 12 temp))) (prog1 x (setq temp (cdr x))))))) (rules = (edebug-after 0 14 parse-time-rules)) (exit nil)) (edebug-after (edebug-bef= ore 15) 135 (while (edebug-after (edebug-before 16) 21 (and (edebug-after 0= 17 rules) (edebug-after (edebug-before 18) 20 (not (edebug-after 0 19 exit= ))))) (edebug-after (edebug-before 22) 134 (let* ((rule (edebug-after (edeb= ug-before 23) 25 (car-safe (let* ((x (edebug-after 0 24 rules))) (prog1 x (= setq rules (cdr x))))))) (slots (edebug-after (edebug-before 26) 28 (car-sa= fe (let* ((x (edebug-after 0 27 rule))) (prog1 x (setq rule (cdr x))))))) (= predicate (edebug-after (edebug-before 29) 31 (car-safe (let* ((x (edebug-a= fter 0 30 rule))) (prog1 x (setq rule (cdr x))))))) (parse-time-val)) (edeb= ug-after (edebug-before 32) 133 (if (edebug-after (edebug-before 33) 90 (an= d (edebug-after (edebug-before 34) 41 (not (edebug-after (edebug-before 35)= 40 (nth (edebug-after (edebug-before 36) 38 (car (edebug-after 0 37 slots)= )) (edebug-after 0 39 time))))) (edebug-after (edebug-before 42) 89 (setq p= arse-time-val (edebug-after (edebug-before 43) 88 (cond ((edebug-after (ede= bug-before 44) 55 (and (edebug-after (edebug-before 45) 47 (consp (edebug-a= fter 0 46 predicate))) (edebug-after (edebug-before 48) 54 (not (edebug-aft= er (edebug-before 49) 53 (eq (edebug-after (edebug-before 50) 52 (car (edeb= ug-after 0 51 predicate))) 'lambda)))))) (edebug-after (edebug-before 56) 7= 3 (and (edebug-after (edebug-before 57) 59 (numberp (edebug-after 0 58 pars= e-time-elt))) (edebug-after (edebug-before 60) 65 (<=3D (edebug-after (edeb= ug-before 61) 63 (car (edebug-after 0 62 predicate))) (edebug-after 0 64 pa= rse-time-elt))) (edebug-after (edebug-before 66) 71 (<=3D (edebug-after 0 6= 7 parse-time-elt) (edebug-after (edebug-before 68) 70 (car (cdr (edebug-aft= er 0 69 predicate)))))) (edebug-after 0 72 parse-time-elt)))) ((edebug-afte= r (edebug-before 74) 76 (symbolp (edebug-after 0 75 predicate))) (edebug-af= ter (edebug-before 77) 84 (cdr (edebug-after (edebug-before 78) 83 (assoc (= edebug-after 0 79 parse-time-elt) (edebug-after (edebug-before 80) 82 (symb= ol-value (edebug-after 0 81 predicate)))))))) ((edebug-after (edebug-before= 85) 87 (funcall (edebug-after 0 86 predicate)))))))))) (progn (edebug-afte= r (edebug-before 91) 92 (setq exit t)) (edebug-after (edebug-before 93) 132= (while (edebug-after 0 94 slots) (edebug-after (edebug-before 95) 131 (let= ((new-val (edebug-after (edebug-before 96) 121 (if (edebug-after 0 97 rule= ) (edebug-after (edebug-before 98) 119 (let ((this (edebug-after (edebug-be= fore 99) 101 (car-safe (let* ((x (edebug-after 0 100 rule))) (prog1 x (setq= rule (cdr x)))))))) (edebug-after (edebug-before 102) 118 (if (edebug-afte= r (edebug-before 103) 105 (vectorp (edebug-after 0 104 this))) (edebug-afte= r (edebug-before 106) 114 (cl-parse-integer (edebug-after 0 107 parse-time-= elt) :start (edebug-after (edebug-before 108) 110 (aref (edebug-after 0 109= this) 0)) :end (edebug-after (edebug-before 111) 113 (aref (edebug-after 0= 112 this) 1)))) (edebug-after (edebug-before 115) 117 (funcall (edebug-aft= er 0 116 this))))))) (edebug-after 0 120 parse-time-val))))) (edebug-after = (edebug-before 122) 130 (rplaca (edebug-after (edebug-before 123) 128 (nthc= dr (edebug-after (edebug-before 124) 126 (car-safe (let* ((x (edebug-after = 0 125 slots))) (prog1 x (setq slots (cdr x)))))) (edebug-after 0 127 time))= ) (edebug-after 0 129 new-val)))))))))))))))))) (edebug-after 0 138 time)))= )) (let ((signal-hook-function 'edebug-signal)) (setq edebug-execution-mode = (or edebug-next-execution-mode edebug-initial-mode edebug-execution-mode) e= debug-next-execution-mode nil) (edebug-enter function args body)) (unwind-protect (let ((signal-hook-function 'edebug-signal)) (setq edebug= -execution-mode (or edebug-next-execution-mode edebug-initial-mode edebug-e= xecution-mode) edebug-next-execution-mode nil) (edebug-enter function args = body))) (let ((edebug-entered t) (max-lisp-eval-depth (+ 100 max-lisp-eval-depth)= ) (max-specpdl-size (+ 200 max-specpdl-size)) (debugger edebug-debugger) (e= debug-outside-debug-on-error debug-on-error) (edebug-outside-debug-on-quit = debug-on-quit) (debug-on-error (or debug-on-error edebug-on-error)) (debug-= on-quit edebug-on-quit)) (unwind-protect (let ((signal-hook-function 'edebu= g-signal)) (setq edebug-execution-mode (or edebug-next-execution-mode edebu= g-initial-mode edebug-execution-mode) edebug-next-execution-mode nil) (edeb= ug-enter function args body)))) (if (not edebug-entered) (let ((edebug-entered t) (max-lisp-eval-depth (+= 100 max-lisp-eval-depth)) (max-specpdl-size (+ 200 max-specpdl-size)) (deb= ugger edebug-debugger) (edebug-outside-debug-on-error debug-on-error) (edeb= ug-outside-debug-on-quit debug-on-quit) (debug-on-error (or debug-on-error = edebug-on-error)) (debug-on-quit edebug-on-quit)) (unwind-protect (let ((si= gnal-hook-function 'edebug-signal)) (setq edebug-execution-mode (or edebug-= next-execution-mode edebug-initial-mode edebug-execution-mode) edebug-next-= execution-mode nil) (edebug-enter function args body)))) (let* ((edebug-dat= a (get function 'edebug)) (edebug-def-mark (car edebug-data)) (edebug-freq-= count (get function 'edebug-freq-count)) (edebug-coverage (get function 'ed= ebug-coverage)) (edebug-buffer (marker-buffer edebug-def-mark)) (edebug-sta= ck (cons function edebug-stack)) (edebug-offset-indices (cons 0 edebug-offs= et-indices))) (if (get function 'edebug-on-entry) (progn (setq edebug-execu= tion-mode 'step) (if (eq (get function 'edebug-on-entry) 'temp) (put functi= on 'edebug-on-entry nil)))) (if edebug-trace (edebug--enter-trace function = args body) (funcall body)))) (let ((edebug-function function)) (if (not edebug-entered) (let ((edebug-= entered t) (max-lisp-eval-depth (+ 100 max-lisp-eval-depth)) (max-specpdl-s= ize (+ 200 max-specpdl-size)) (debugger edebug-debugger) (edebug-outside-de= bug-on-error debug-on-error) (edebug-outside-debug-on-quit debug-on-quit) (= debug-on-error (or debug-on-error edebug-on-error)) (debug-on-quit edebug-o= n-quit)) (unwind-protect (let ((signal-hook-function 'edebug-signal)) (setq= edebug-execution-mode (or edebug-next-execution-mode edebug-initial-mode e= debug-execution-mode) edebug-next-execution-mode nil) (edebug-enter functio= n args body)))) (let* ((edebug-data (get function 'edebug)) (edebug-def-mar= k (car edebug-data)) (edebug-freq-count (get function 'edebug-freq-count)) = (edebug-coverage (get function 'edebug-coverage)) (edebug-buffer (marker-bu= ffer edebug-def-mark)) (edebug-stack (cons function edebug-stack)) (edebug-= offset-indices (cons 0 edebug-offset-indices))) (if (get function 'edebug-o= n-entry) (progn (setq edebug-execution-mode 'step) (if (eq (get function 'e= debug-on-entry) 'temp) (put function 'edebug-on-entry nil)))) (if edebug-tr= ace (edebug--enter-trace function args body) (funcall body))))) edebug-enter(parse-time-string ("Tue, 21 Feb 2017 17:17:56 -0500") (closu= re ((string . "Tue, 21 Feb 2017 17:17:56 -0500") parse-time-elt parse-time-= val t) nil (edebug-after (edebug-before 0) 139 (let ((time (edebug-after (e= debug-before 1) 2 (list nil nil nil nil nil nil nil nil nil))) (temp (edebu= g-after (edebug-before 3) 7 (parse-time-tokenize (edebug-after (edebug-befo= re 4) 6 (downcase (edebug-after 0 5 string))))))) (edebug-after (edebug-bef= ore 8) 137 (while (edebug-after 0 9 temp) (edebug-after (edebug-before 10) = 136 (let ((parse-time-elt (edebug-after (edebug-before 11) 13 (car-safe (le= t* ((x (edebug-after 0 12 temp))) (prog1 x (setq temp (cdr x))))))) (rules = (edebug-after 0 14 parse-time-rules)) (exit nil)) (edebug-after (edebug-bef= ore 15) 135 (while (edebug-after (edebug-before 16) 21 (and (edebug-after 0= 17 rules) (edebug-after (edebug-before 18) 20 (not (edebug-after 0 19 exit= ))))) (edebug-after (edebug-before 22) 134 (let* ((rule (edebug-after (edeb= ug-before 23) 25 (car-safe (let* ((x (edebug-after 0 24 rules))) (prog1 x (= setq rules (cdr x))))))) (slots (edebug-after (edebug-before 26) 28 (car-sa= fe (let* ((x (edebug-after 0 27 rule))) (prog1 x (setq rule (cdr x))))))) (= predicate (edebug-after (edebug-before 29) 31 (car-safe (let* ((x (edebug-a= fter 0 30 rule))) (prog1 x (setq rule (cdr x))))))) (parse-time-val)) (edeb= ug-after (edebug-before 32) 133 (if (edebug-after (edebug-before 33) 90 (an= d (edebug-after (edebug-before 34) 41 (not (edebug-after (edebug-before 35)= 40 (nth (edebug-after (edebug-before 36) 38 (car (edebug-after 0 37 slots)= )) (edebug-after 0 39 time))))) (edebug-after (edebug-before 42) 89 (setq p= arse-time-val (edebug-after (edebug-before 43) 88 (cond ((edebug-after (ede= bug-before 44) 55 (and (edebug-after (edebug-before 45) 47 (consp (edebug-a= fter 0 46 predicate))) (edebug-after (edebug-before 48) 54 (not (edebug-aft= er (edebug-before 49) 53 (eq (edebug-after (edebug-before 50) 52 (car (edeb= ug-after 0 51 predicate))) 'lambda)))))) (edebug-after (edebug-before 56) 7= 3 (and (edebug-after (edebug-before 57) 59 (numberp (edebug-after 0 58 pars= e-time-elt))) (edebug-after (edebug-before 60) 65 (<=3D (edebug-after (edeb= ug-before 61) 63 (car (edebug-after 0 62 predicate))) (edebug-after 0 64 pa= rse-time-elt))) (edebug-after (edebug-before 66) 71 (<=3D (edebug-after 0 6= 7 parse-time-elt) (edebug-after (edebug-before 68) 70 (car (cdr (edebug-aft= er 0 69 predicate)))))) (edebug-after 0 72 parse-time-elt)))) ((edebug-afte= r (edebug-before 74) 76 (symbolp (edebug-after 0 75 predicate))) (edebug-af= ter (edebug-before 77) 84 (cdr (edebug-after (edebug-before 78) 83 (assoc (= edebug-after 0 79 parse-time-elt) (edebug-after (edebug-before 80) 82 (symb= ol-value (edebug-after 0 81 predicate)))))))) ((edebug-after (edebug-before= 85) 87 (funcall (edebug-after 0 86 predicate)))))))))) (progn (edebug-afte= r (edebug-before 91) 92 (setq exit t)) (edebug-after (edebug-before 93) 132= (while (edebug-after 0 94 slots) (edebug-after (edebug-before 95) 131 (let= ((new-val (edebug-after (edebug-before 96) 121 (if (edebug-after 0 97 rule= ) (edebug-after (edebug-before 98) 119 (let ((this (edebug-after (edebug-be= fore 99) 101 (car-safe (let* ((x (edebug-after 0 100 rule))) (prog1 x (setq= rule (cdr x)))))))) (edebug-after (edebug-before 102) 118 (if (edebug-afte= r (edebug-before 103) 105 (vectorp (edebug-after 0 104 this))) (edebug-afte= r (edebug-before 106) 114 (cl-parse-integer (edebug-after 0 107 parse-time-= elt) :start (edebug-after (edebug-before 108) 110 (aref (edebug-after 0 109= this) 0)) :end (edebug-after (edebug-before 111) 113 (aref (edebug-after 0= 112 this) 1)))) (edebug-after (edebug-before 115) 117 (funcall (edebug-aft= er 0 116 this))))))) (edebug-after 0 120 parse-time-val))))) (edebug-after = (edebug-before 122) 130 (rplaca (edebug-after (edebug-before 123) 128 (nthc= dr (edebug-after (edebug-before 124) 126 (car-safe (let* ((x (edebug-after = 0 125 slots))) (prog1 x (setq slots (cdr x)))))) (edebug-after 0 127 time))= ) (edebug-after 0 129 new-val)))))))))))))))))) (edebug-after 0 138 time)))= )) parse-time-string("Tue, 21 Feb 2017 17:17:56 -0500") eval((parse-time-string "Tue, 21 Feb 2017 17:17:56 -0500") nil) elisp--eval-last-sexp(nil) eval-last-sexp(nil) funcall-interactively(eval-last-sexp nil) call-interactively(eval-last-sexp nil nil) command-execute(eval-last-sexp) --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Eval'ing the same way in Emacs 25.2 yielded the expected: predicate=E2=80=99s value is shown below. Documentation: Not documented as a variable. Value: (lambda nil (and (stringp parse-time-elt) (=3D (length parse-time-elt) 8) (=3D (aref parse-time-elt 2) 58) (=3D (aref parse-time-elt 5) 58))) Thannks. =20=20=20=20 In GNU Emacs 26.1 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.20.10) of 2018-08-31 built on localhost.localdomain Windowing system distributor 'Fedora Project', version 11.0.11803000 Recent messages: Accepting certificate for news.gmane.org:nntp this session only auth-source-search: found 1 backends matching (:max 1 :host ("news.gmane.or= g" "news") :port ("119" "nntp" "nntp" "563" "nntps" "snews")) Making completion list... Configured using: 'configure 'CFLAGS=3D-DMAIL_USE_LOCKF -O0 -ggdb3 -pipe -Wall -Werror=3Dformat-security -fexceptions -fstack-protector-strong --param=3Dssp-buffer-size=3D4 -grecord-gcc-switches -m64 -mtune=3Dgeneric' LDFLAGS=3D-Wl,-z,relro --disable-dependency-tracking --prefix=3D/tmp/emacs-26.1 --with-dbus --with-gif --with-jpeg --with-png --with-rsvg --with-lcms2 --with-tiff --with-xft --with-xpm --with-x-toolkit=3Dgtk3 --with-gpm=3Dyes --with-xwidgets --with-modules Configured features: XPM JPEG TIFF GIF PNG RSVG IMAGEMAGICK SOUND GPM DBUS GSETTINGS NOTIFY ACL LIBSELINUX GNUTLS LIBXML2 FREETYPE M17N_FLT LIBOTF XFT ZLIB TOOLKIT_SCROLL_BARS GTK3 X11 MODULES THREADS XWIDGETS LCMS2 Important settings: value of $LANG: en_US.UTF-8 value of $XMODIFIERS: @im=3Dibus locale-coding-system: utf-8-unix Major mode: Fundamental Minor modes in effect: gnus-desktop-notify-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 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 timezone network-stream nsm gnus-agent gnus-srvr gnus-score score-mode nnvirtual gnus-msg gnus-cache gnus-demon nntp gnus-desktop-notify notifications dbus xml epa-file nnreddit json rx map gnus-art mm-uu mml2015 sieve sieve-mode sieve-manage starttls sasl sasl-anonymous sasl-login sasl-plain advice nnir gnus-sum gnus-group mm-url gnus-undo gnus-start gnus-cloud nnimap nnmail mail-source imap tls gnutls utf7 netrc parse-time gnus-spec gnus-int gnus-range gnus-win gnus message rmc puny seq dired desktop frameset edmacro kmacro dired-loaddefs subr-x format-spec rfc822 mml url url-proxy url-privacy url-expand url-methods url-history url-cookie url-domsuf url-util url-parse auth-source eieio byte-opt bytecomp byte-compile cconv eieio-core eieio-loaddefs url-vars mm-view mml-smime smime dig mailcap mml-sec password-cache epa epg cl-extra help-mode easymenu epg-config mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev sendmail derived gmm-utils mailheader wid-edit nnoo nnheader gnus-util rmail dframe rmail-loaddefs rfc2047 rfc2045 ietf-drums mm-util mail-prsvr mail-utils cl misearch multi-isearch elec-pair cl-seq easy-mmode cl-macs inline cl-loaddefs cl-lib gv pcase time-date mule-util 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 menu-bar rfn-eshadow isearch 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 composite charscript charprop 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 dbusbind inotify lcms2 dynamic-setting system-font-setting font-render-setting xwidget-internal move-toolbar gtk x-toolkit x multi-tty make-network-process emacs) Memory information: ((conses 16 713549 27856) (symbols 48 125281 0) (miscs 40 69 217) (strings 32 102951 1953) (string-bytes 1 3940653) (vectors 16 10628) (vector-slots 8 550092 13500) (floats 8 261 220) (intervals 56 303 56) (buffers 992 21) (heap 1024 74130 2223)) --=-=-=--