From unknown Wed Jun 25 09:08:33 2025 X-Loop: help-debbugs@gnu.org Subject: bug#32748: 26.1; EDEBUG eval error 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: To: 32748@debbugs.gnu.org X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.153715634616581 (code B ref -1); Mon, 17 Sep 2018 03:53:02 +0000 Received: (at submit) by debbugs.gnu.org; 17 Sep 2018 03:52:26 +0000 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 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 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 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=0.8 required=5.0 tests=BAYES_50,FREEMAIL_FROM, T_DKIM_INVALID autolearn=disabled version=3.3.2 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 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 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 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_rO7uM0rx21ABcGflQvyg4nS53uU4CRiNiIXxkoXVkvCgN_o25P9maxjj_gzUW9GrN Tcz02yb5HyYReYJNW7jibA6Og9Wjn6VGIetjn9lbLQtFbfqTFc5k0IWtRY5oErKyJhCZVPI.1s4w MXrsnRumtX79SHGKWGG2jqgsUeTfOwTZ1GTXAirUoURDG5sYw3A-- 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 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) From: Live System User Date: Sun, 16 Sep 2018 23:51:31 -0400 Message-ID: <87in34bx30.fsf@aol.com> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" 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-Received-From: 2001:4830:134:3::11 X-Spam-Score: -4.0 (----) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -5.0 (-----) --=-=-= 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)) --=-=-=-- From unknown Wed Jun 25 09:08:33 2025 X-Loop: help-debbugs@gnu.org Subject: bug#32748: 26.1; EDEBUG eval error Resent-From: Noam Postavsky Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 17 Sep 2018 12:19:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 32748 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: Live System User Cc: 32748@debbugs.gnu.org Received: via spool by 32748-submit@debbugs.gnu.org id=B32748.15371867109047 (code B ref 32748); Mon, 17 Sep 2018 12:19:02 +0000 Received: (at 32748) by debbugs.gnu.org; 17 Sep 2018 12:18:30 +0000 Received: from localhost ([127.0.0.1]:42624 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1g1sU2-0002Lr-GK for submit@debbugs.gnu.org; Mon, 17 Sep 2018 08:18:30 -0400 Received: from mail-io1-f50.google.com ([209.85.166.50]:34952) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1g1sU0-0002Le-MA for 32748@debbugs.gnu.org; Mon, 17 Sep 2018 08:18:29 -0400 Received: by mail-io1-f50.google.com with SMTP id w11-v6so11269173iob.2 for <32748@debbugs.gnu.org>; Mon, 17 Sep 2018 05:18:28 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:to:cc:subject:references:date:in-reply-to:message-id :user-agent:mime-version; bh=AuSQuNxVF6zlSRzy3PXvt6lIVti0l9JIj5p7Vxq7/OU=; b=eS1pzzvU5QCkoaKNUaLXm8Q5SMUdiBk4Beh6uqBcG7pJWPQXJNggdAQDe8znv8VcaV ln0y88n3psFsJuuDB4MBqcDOCk8d4fG5zw1QRqT3bSwTX5qXqT+K9obZoCSFIqEyViSb udpABbd0jCX5pqo43WJp92WL1njCTN8lP+06Y1cQfRr9MKT04wmAaXKwXDJT8o2AI1Sl S6IElCO4Ss+Tp2tBPpAtcu8uS6YdEB6M8w9aT5NaJK2GxPoJnoIndGgzjZzWsDJTooid ExHqDgQjRbKUh89g1vNG6bmpg5cwU7Rd34m0fMYviRN/dwH/kQ94LSY/R9IBcRcAcf/0 YPSA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:cc:subject:references:date:in-reply-to :message-id:user-agent:mime-version; bh=AuSQuNxVF6zlSRzy3PXvt6lIVti0l9JIj5p7Vxq7/OU=; b=UVIV9m1xbhtXYM2JBlfA8+iRO+wBh2GjZoakXlgFmx8u9B/mLN85zTbPHmHIQc8KgG LUsHCW2vn53x57kvpHkBhB52wINhIMiv3ueu2okT+4Ki2Lzhxm9R0f8c1iYoQbvx/RwL PJeH1e2RN15LeftCECYI8qyk1dj+yasZoSQPaeiiEsrDSAnEgcImpIbihhlvB5u5o/GV 0eNGzCX8Sa9PRZs7GX9UejVe0YzhmUMaDRiDUBRXLZP9mc8y2+KWyelou3Zw+amZbMgA pE4DcgzhuXpg5H8XX/NS9l/gvKoB9eDW3hHZ5k5TkdPWBaY52etYU5mWXFfdeTKCt28U gc+A== X-Gm-Message-State: APzg51AiKkh8rB27Ebz37Tww2lCnzrxysUi7I70z3mUO1gFvCVkvfRaH Bc7Rw2nvZHTY4fjM4DpjZopEe700 X-Google-Smtp-Source: ANB0VdaGMvYRRXmo4DGWwijxIQTuwZ11zUgDLW8S1tYX4DnBe34oU6gIXBDJtWZi6YH2v0cP2LDZPw== X-Received: by 2002:a6b:a2d5:: with SMTP id l204-v6mr19325500ioe.166.1537186702901; Mon, 17 Sep 2018 05:18:22 -0700 (PDT) Received: from zebian (cbl-45-2-119-34.yyz.frontiernetworks.ca. [45.2.119.34]) by smtp.googlemail.com with ESMTPSA id p190-v6sm3087789ite.0.2018.09.17.05.18.22 (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Mon, 17 Sep 2018 05:18:22 -0700 (PDT) From: Noam Postavsky References: <87in34bx30.fsf@aol.com> Date: Mon, 17 Sep 2018 08:18:21 -0400 In-Reply-To: <87in34bx30.fsf@aol.com> (Live System User's message of "Sun, 16 Sep 2018 23:51:31 -0400") Message-ID: <87efdsqpv6.fsf@gmail.com> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.1 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: 0.0 (/) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) Live System User writes: > While using/learning edebug, I ran into the following > error when eval'ing: If you eval `predicate' just after the expression for its value (where I put the first "!" in the code below), it hasn't been bound yet, so you get this error. It should work fine it you're inside the let though (e.g., at the second "!"). It should also work in subsequent `let*' (though not `let') bindings, but in this case, there is no such stop point. (defun parse-time-string (string) [...] (let* ((rule (pop rules)) (slots (pop rule)) (predicate (pop rule)!) (parse-time-val)) !(when (and (not (nth (car slots) time)) ;not already set [...] From unknown Wed Jun 25 09:08:33 2025 X-Loop: help-debbugs@gnu.org Subject: bug#32748: 26.1; EDEBUG eval error Resent-From: Noam Postavsky Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Thu, 04 Oct 2018 01:16:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 32748 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: Live System User Cc: 32748@debbugs.gnu.org Received: via spool by 32748-submit@debbugs.gnu.org id=B32748.153861571017069 (code B ref 32748); Thu, 04 Oct 2018 01:16:02 +0000 Received: (at 32748) by debbugs.gnu.org; 4 Oct 2018 01:15:10 +0000 Received: from localhost ([127.0.0.1]:36221 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1g7sEP-0004RA-Mz for submit@debbugs.gnu.org; Wed, 03 Oct 2018 21:15:09 -0400 Received: from mail-io1-f51.google.com ([209.85.166.51]:37822) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1g7sEO-0004Qk-81; Wed, 03 Oct 2018 21:15:08 -0400 Received: by mail-io1-f51.google.com with SMTP id m16-v6so2410364ioj.4; Wed, 03 Oct 2018 18:15:08 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:to:cc:subject:references:date:in-reply-to:message-id :user-agent:mime-version:content-transfer-encoding; bh=5HrDt/bV1RMI0gsxfZ8dGA0Ts4G2xOaS1/lIRFV32DU=; b=oKklhkd/1vpL9VuuKdbIY9/lIg9Qm8XnBtac61i+FKcghRGVBOUCR05QnxW0oWwP09 o9VNhflEtH47DfwwYskxgTtcWSpQzB1KZAV+ppMLRCmRAzy0oW7tw7WUJbCa1WkDy8IU kMQQ/vp38hkjsLwUBwtw3UjWwShs2yl/1/h4wJ+7sGvH50b3fXEowNw6BfQQ29M48TuM KrQHSl3B62m+ppt/Pgq8OdYhzd5B4ZEtaye/WKmEUXzwMhOOHHOwQRttMWmkb2X2Yf4M x1MMoAgwObYC7vKYQiFU/XmvW8WaZQ5U42CzCvBIgGW8gkpDnC67dkgUzFxA0ExPbfJt oZNg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:cc:subject:references:date:in-reply-to :message-id:user-agent:mime-version:content-transfer-encoding; bh=5HrDt/bV1RMI0gsxfZ8dGA0Ts4G2xOaS1/lIRFV32DU=; b=b0zA0/sMWUiZHlaDoU/ZRxwincPVSYt3w5aJTPsChaLU41g8ckmyIAbEtVt5X/VM9t YLQQYzpl3IUZseAgCz5lrfNBMTw3BO0PCBht/08o3yTba3obZuMXLOVOpOMR9+/oNoSO sx5uz7g1tXzpIMcLUgefiENmEQRcOjdgLOiAFR48B3G5lI9HmKo+piNxdZ2XJAqnnYKs RjV2C6wEqOGC72z5XEK7BjKQ/51mTNouVRV6SmEl2+0vz2wrk8lwYFtUdcJvc/nEGIJw GKGOOkMxS0ux+8qMB/8SJmif1Kql+IMU7+J3HXKI+dsT6soEKSc0S0zB7nqLWSmnpy6x LOmA== X-Gm-Message-State: ABuFfoi01wgrXh+CFjBm//cY/xVkX3xyxhMtksFhmkVBANpk0yHAVoB8 ElsfxagMArx5VDCD08bqKixgkQ1/ X-Google-Smtp-Source: ACcGV61LjQQq/1tbTyNuV0l3nR+2gYsuuU4eIuA89Mv8TrZN7L6IizgIvQDXHdchEcJ3IqDTDgJVlw== X-Received: by 2002:a6b:c586:: with SMTP id v128-v6mr2969005iof.7.1538615702612; Wed, 03 Oct 2018 18:15:02 -0700 (PDT) Received: from zebian (cbl-45-2-119-34.yyz.frontiernetworks.ca. [45.2.119.34]) by smtp.googlemail.com with ESMTPSA id e78-v6sm358571itc.4.2018.10.03.18.15.01 (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Wed, 03 Oct 2018 18:15:01 -0700 (PDT) From: Noam Postavsky References: <87in34bx30.fsf@aol.com> Date: Wed, 03 Oct 2018 21:15:00 -0400 In-Reply-To: <87in34bx30.fsf@aol.com> (Live System User's message of "Sun, 16 Sep 2018 23:51:31 -0400") Message-ID: <87o9cams17.fsf@gmail.com> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.1 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Spam-Score: -0.0 (/) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) tags 32748 notabug close 32748 quit Live System User writes: > 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 [...] Your error backtrace suggests you used edebug-eval, but this output suggests you used describe-variable. The latter will not work in emacs-26 because parse-time.el switched to lexical-binding, so that predicate's symbol-value is no longer affected. As mentioned in my other message, edebug-eval from within the let BODY should work regardless, and I don't think there is a bug here, so I'm closing this report.