From: Live System User <nyc4bos@aol.com>
To: 32748@debbugs.gnu.org
Subject: bug#32748: 26.1; EDEBUG eval error
Date: Sun, 16 Sep 2018 23:51:31 -0400 [thread overview]
Message-ID: <87in34bx30.fsf@aol.com> (raw)
[-- Attachment #1: Type: text/plain, Size: 98 bytes --]
Hi,
While using/learning edebug, I ran into the following
error when eval'ing:
[-- Attachment #2: Edebug eval error --]
[-- Type: text/plain, Size: 83754 bytes --]
Debugger entered--Lisp error: (void-variable predicate)
apply(debug error (void-variable predicate))
(if (and edebug-entered (eq (recursion-depth) edebug-recursion-depth)) (let ((offset-index (car edebug-offset-indices)) (value (car args)) edebug-breakpoints edebug-break-data edebug-break-condition edebug-global-break (edebug-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 (edebug-mark-marker) edebug-outside-mark)) (setq values (cons (edebug-eval expr) values)) (concat (edebug-safe-prin1-to-string (car values)) (eval-expression-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)) (set-marker (edebug-mark-marker) edebug-outside-mark)) (setq values (cons (edebug-eval expr) values)) (concat (edebug-safe-prin1-to-string (car values)) (eval-expression-print-format (car values)))) (if edebug-save-windows (edebug-set-windows edebug-inside-windows)) (setq edebug-outside-d-c-i-n-s-w (default-value 'cursor-in-non-selected-windows)) (setq-default cursor-in-non-selected-windows t))
(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-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-marker)) (set-marker (edebug-mark-marker) edebug-outside-mark)) (setq values (cons (edebug-eval expr) values)) (concat (edebug-safe-prin1-to-string (car values)) (eval-expression-print-format (car values)))) (if edebug-save-windows (edebug-set-windows edebug-inside-windows)) (setq edebug-outside-d-c-i-n-s-w (default-value 'cursor-in-non-selected-windows)) (setq-default cursor-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-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-marker)) (set-marker (edebug-mark-marker) edebug-outside-mark)) (setq values (cons (edebug-eval expr) values)) (concat (edebug-safe-prin1-to-string (car values)) (eval-expression-print-format (car values)))) (if edebug-save-windows (edebug-set-windows edebug-inside-windows)) (setq edebug-outside-d-c-i-n-s-w (default-value 'cursor-in-non-selected-windows)) (setq-default 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-signal) (if edebug-backtrace-buffer (kill-buffer 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")))
(let ((last-command last-command) (this-command this-command) (current-prefix-arg nil) (last-input-event nil) (last-command-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) (overriding-terminal-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) (not (memq arg-mode '(after error)))) (message "Break")) (setq signal-hook-function nil) (edebug-mode 1) (unwind-protect (recursive-edit) (setq signal-hook-function 'edebug-signal) (if edebug-backtrace-buffer (kill-buffer 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"))))
(unwind-protect (let ((last-command last-command) (this-command this-command) (current-prefix-arg nil) (last-input-event nil) (last-command-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) (overriding-terminal-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) (not (memq arg-mode '(after error)))) (message "Break")) (setq signal-hook-function nil) (edebug-mode 1) (unwind-protect (recursive-edit) (setq signal-hook-function 'edebug-signal) (if edebug-backtrace-buffer (kill-buffer 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")))))
(let ((edebug-outside-match-data (save-current-buffer (set-buffer edebug-outside-buffer) (match-data))) (edebug-recursion-depth (recursion-depth)) edebug-entered (edebug-interactive-p nil) edebug-backtrace-buffer edebug-inside-windows) (unwind-protect (let ((last-command last-command) (this-command this-command) (current-prefix-arg nil) (last-input-event nil) (last-command-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) (overriding-terminal-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) (not (memq arg-mode '(after error)))) (message "Break")) (setq signal-hook-function nil) (edebug-mode 1) (unwind-protect (recursive-edit) (setq signal-hook-function 'edebug-signal) (if edebug-backtrace-buffer (kill-buffer 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-mode 'error)) (edebug--recursive-edit arg-mode))
(unwind-protect (if (or edebug-stop (memq edebug-execution-mode '(step next)) (eq arg-mode '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-window-data (window-start window))))) (setq edebug-trace-window (get-buffer-window edebug-trace-buffer)) (if edebug-trace-window (setq edebug-trace-window-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 edebug-trace-window-start)) (let ((window (car edebug-window-data))) (if (and (edebug-window-live-p window) (eq (window-buffer) edebug-buffer)) (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 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) edebug-outside-mark)))
(let ((overlay-arrow-position overlay-arrow-position) (overlay-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 value))) (edebug-break (cond (edebug-global-break (message "Global Break: %s => %s" edebug-global-break-condition edebug-global-break-result)) (edebug-break-condition (message "Break: %s => %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 edebug-sit-on-break (not (eq edebug-execution-mode 'Continue-fast))) (sit-for edebug-sit-for-seconds)) (edebug-previous-result))) (cond (edebug-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-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-stop))) (edebug-overlay-arrow) (unwind-protect (if (or edebug-stop (memq edebug-execution-mode '(step next)) (eq arg-mode '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-window-data (window-start window))))) (setq edebug-trace-window (get-buffer-window edebug-trace-buffer)) (if edebug-trace-window (setq edebug-trace-window-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 edebug-trace-window-start)) (let ((window (car edebug-window-data))) (if (and (edebug-window-live-p window) (eq (window-buffer) edebug-buffer)) (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 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) edebug-outside-mark))))
(let ((cursor-in-echo-area nil) (unread-command-events nil)) (setq-default 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 edebug-window-data)) (setcar 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-error "Source has changed - reevaluate definition of %s" edebug-function))) (let ((overlay-arrow-position overlay-arrow-position) (overlay-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 value))) (edebug-break (cond (edebug-global-break (message "Global Break: %s => %s" edebug-global-break-condition edebug-global-break-result)) (edebug-break-condition (message "Break: %s => %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 edebug-sit-on-break (not (eq edebug-execution-mode 'Continue-fast))) (sit-for edebug-sit-for-seconds)) (edebug-previous-result))) (cond (edebug-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-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-stop))) (edebug-overlay-arrow) (unwind-protect (if (or edebug-stop (memq edebug-execution-mode '(step next)) (eq arg-mode '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-window-data (window-start window))))) (setq edebug-trace-window (get-buffer-window edebug-trace-buffer)) (if edebug-trace-window (setq edebug-trace-window-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 edebug-trace-window-start)) (let ((window (car edebug-window-data))) (if (and (edebug-window-live-p window) (eq (window-buffer) edebug-buffer)) (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 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) edebug-outside-mark)))) (save-current-buffer (set-buffer edebug-buffer) (goto-char edebug-buffer-outside-point)))
(unwind-protect (let ((cursor-in-echo-area nil) (unread-command-events nil)) (setq-default 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 edebug-window-data)) (setcar 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-error "Source has changed - reevaluate definition of %s" edebug-function))) (let ((overlay-arrow-position overlay-arrow-position) (overlay-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 value))) (edebug-break (cond (edebug-global-break (message "Global Break: %s => %s" edebug-global-break-condition edebug-global-break-result)) (edebug-break-condition (message "Break: %s => %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 edebug-sit-on-break (not (eq edebug-execution-mode 'Continue-fast))) (sit-for edebug-sit-for-seconds)) (edebug-previous-result))) (cond (edebug-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-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-stop))) (edebug-overlay-arrow) (unwind-protect (if (or edebug-stop (memq edebug-execution-mode '(step next)) (eq arg-mode '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-window-data (window-start window))))) (setq edebug-trace-window (get-buffer-window edebug-trace-buffer)) (if edebug-trace-window (setq edebug-trace-window-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 edebug-trace-window-start)) (let ((window (car edebug-window-data))) (if (and (edebug-window-live-p window) (eq (window-buffer) edebug-buffer)) (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 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) 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-timeout-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-suspend)) edebug-stop (edebug-point (+ edebug-def-mark (aref (nth 2 edebug-data) offset-index))) edebug-buffer-outside-point (edebug-window-data (nth 3 edebug-data)) (edebug-outside-window (selected-window)) (edebug-outside-buffer (current-buffer)) (edebug-outside-point (point)) (edebug-outside-mark (edebug-mark)) edebug-outside-windows edebug-buffer-points edebug-eval-buffer (eval-result-list (and edebug-eval-list (edebug-eval-result-list))) edebug-trace-window edebug-trace-window-start (edebug-outside-d-c-i-n-s-w (default-value 'cursor-in-non-selected-windows))) (unwind-protect (let ((cursor-in-echo-area nil) (unread-command-events nil)) (setq-default 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 edebug-window-data)) (setcar 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-error "Source has changed - reevaluate definition of %s" edebug-function))) (let ((overlay-arrow-position overlay-arrow-position) (overlay-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 value))) (edebug-break (cond (edebug-global-break (message "Global Break: %s => %s" edebug-global-break-condition edebug-global-break-result)) (edebug-break-condition (message "Break: %s => %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 edebug-sit-on-break (not (eq edebug-execution-mode 'Continue-fast))) (sit-for edebug-sit-for-seconds)) (edebug-previous-result))) (cond (edebug-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-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-stop))) (edebug-overlay-arrow) (unwind-protect (if (or edebug-stop (memq edebug-execution-mode '(step next)) (eq arg-mode '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-window-data (window-start window))))) (setq edebug-trace-window (get-buffer-window edebug-trace-buffer)) (if edebug-trace-window (setq edebug-trace-window-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 edebug-trace-window-start)) (let ((window (car edebug-window-data))) (if (and (edebug-window-live-p window) (eq (window-buffer) edebug-buffer)) (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 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) 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-timeout-suspend) (setq-default cursor-in-non-selected-windows edebug-outside-d-c-i-n-s-w)))
edebug--display-1((closure (parse-time-val parse-time-elt t) nil (and (stringp parse-time-elt) (= (length parse-time-elt) 8) (= (aref parse-time-elt 2) 58) (= (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 (stringp parse-time-elt) (= (length parse-time-elt) 8) (= (aref parse-time-elt 2) 58) (= (aref parse-time-elt 5) 58))) 31 after)
(if (or (not (memq edebug-execution-mode '(go continue Continue-fast))) edebug-break (input-pending-p)) (edebug--display value offset-index arg-mode))
(let* ((edebug-breakpoints (car (cdr edebug-data))) (edebug-break-data (assq offset-index edebug-breakpoints)) (edebug-break-condition (car (cdr edebug-break-data))) (edebug-global-break (if edebug-global-break-condition (condition-case nil (setq edebug-global-break-result (edebug-eval edebug-global-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 (and edebug-break (nth 2 edebug-break-data)) (setcdr edebug-data (cons (delq edebug-break-data edebug-breakpoints) (cdr (cdr edebug-data))))) (if (or (not (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-data))) (edebug-break-data (assq offset-index edebug-breakpoints)) (edebug-break-condition (car (cdr edebug-break-data))) (edebug-global-break (if edebug-global-break-condition (condition-case nil (setq edebug-global-break-result (edebug-eval edebug-global-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 (and edebug-break (nth 2 edebug-break-data)) (setcdr edebug-data (cons (delq edebug-break-data edebug-breakpoints) (cdr (cdr edebug-data))))) (if (or (not (memq edebug-execution-mode '(go continue Continue-fast))) edebug-break (input-pending-p)) (edebug--display value offset-index arg-mode)) value))
edebug-debugger(31 after (closure (parse-time-val parse-time-elt t) nil (and (stringp parse-time-elt) (= (length parse-time-elt) 8) (= (aref parse-time-elt 2) 58) (= (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))) (if edebug-test-coverage (edebug--update-coverage after-index value)) (if (and (eq edebug-execution-mode 'Go-nonstop) (not (input-pending-p))) value (edebug-debugger after-index 'after value)))
edebug-after(29 31 (closure (parse-time-val parse-time-elt t) nil (and (stringp parse-time-elt) (= (length parse-time-elt) 8) (= (aref parse-time-elt 2) 58) (= (aref parse-time-elt 5) 58))))
(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 (edebug-after (edebug-before 57) 59 (numberp (edebug-after 0 58 parse-time-elt))) (edebug-after (edebug-before 60) 65 (<= (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 (<= (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-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 (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-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 (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-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 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 (edebug-after (edebug-before 57) 59 (numberp (edebug-after 0 58 parse-time-elt))) (edebug-after (edebug-before 60) 65 (<= (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 (<= (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-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 (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-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 (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-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 (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-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 (edebug-after (edebug-before 57) 59 (numberp (edebug-after 0 58 parse-time-elt))) (edebug-after (edebug-before 60) 65 (<= (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 (<= (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-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 (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-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 (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-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 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-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 (edebug-after (edebug-before 57) 59 (numberp (edebug-after 0 58 parse-time-elt))) (edebug-after (edebug-before 60) 65 (<= (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 (<= (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-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 (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-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 (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-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))))))))))))))
(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-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 (edebug-after (edebug-before 57) 59 (numberp (edebug-after 0 58 parse-time-elt))) (edebug-after (edebug-before 60) 65 (<= (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 (<= (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-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 (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-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 (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-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)) (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-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 (edebug-after (edebug-before 57) 59 (numberp (edebug-after 0 58 parse-time-elt))) (edebug-after (edebug-before 60) 65 (<= (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 (<= (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-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 (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-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 (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-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 (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-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 (edebug-after (edebug-before 57) 59 (numberp (edebug-after 0 58 parse-time-elt))) (edebug-after (edebug-before 60) 65 (<= (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 (<= (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-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 (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-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 (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-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 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 (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-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 (edebug-after (edebug-before 57) 59 (numberp (edebug-after 0 58 parse-time-elt))) (edebug-after (edebug-before 60) 65 (<= (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 (<= (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-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 (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-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 (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-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))))))))))))))))))
(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-after (edebug-before 4) 6 (downcase (edebug-after 0 5 string))))))) (edebug-after (edebug-before 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 (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-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 (edebug-after (edebug-before 57) 59 (numberp (edebug-after 0 58 parse-time-elt))) (edebug-after (edebug-before 60) 65 (<= (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 (<= (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-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 (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-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 (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-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-before 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) 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 (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-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 (edebug-after (edebug-before 57) 59 (numberp (edebug-after 0 58 parse-time-elt))) (edebug-after (edebug-before 60) 65 (<= (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 (<= (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-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 (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-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 (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-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)))
(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-after (edebug-before 4) 6 (downcase (edebug-after 0 5 string))))))) (edebug-after (edebug-before 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 (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-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 (edebug-after (edebug-before 57) 59 (numberp (edebug-after 0 58 parse-time-elt))) (edebug-after (edebug-before 60) 65 (<= (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 (<= (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-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 (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-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 (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-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))))()
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-after (edebug-before 4) 6 (downcase (edebug-after 0 5 string))))))) (edebug-after (edebug-before 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 (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-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 (edebug-after (edebug-before 57) 59 (numberp (edebug-after 0 58 parse-time-elt))) (edebug-after (edebug-before 60) 65 (<= (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 (<= (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-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 (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-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 (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-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)))))
(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-coverage (get function 'edebug-coverage)) (edebug-buffer (marker-buffer edebug-def-mark)) (edebug-stack (cons function edebug-stack)) (edebug-offset-indices (cons 0 edebug-offset-indices))) (if (get function 'edebug-on-entry) (progn (setq edebug-execution-mode 'step) (if (eq (get function 'edebug-on-entry) 'temp) (put function 'edebug-on-entry nil)))) (if edebug-trace (edebug--enter-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)) (debugger edebug-debugger) (edebug-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 '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-data (get function 'edebug)) (edebug-def-mark (car edebug-data)) (edebug-freq-count (get function 'edebug-freq-count)) (edebug-coverage (get function 'edebug-coverage)) (edebug-buffer (marker-buffer edebug-def-mark)) (edebug-stack (cons function edebug-stack)) (edebug-offset-indices (cons 0 edebug-offset-indices))) (if (get function 'edebug-on-entry) (progn (setq edebug-execution-mode 'step) (if (eq (get function 'edebug-on-entry) 'temp) (put function '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-size (+ 200 max-specpdl-size)) (debugger edebug-debugger) (edebug-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 '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-data (get function 'edebug)) (edebug-def-mark (car edebug-data)) (edebug-freq-count (get function 'edebug-freq-count)) (edebug-coverage (get function 'edebug-coverage)) (edebug-buffer (marker-buffer edebug-def-mark)) (edebug-stack (cons function edebug-stack)) (edebug-offset-indices (cons 0 edebug-offset-indices))) (if (get function 'edebug-on-entry) (progn (setq edebug-execution-mode 'step) (if (eq (get function 'edebug-on-entry) 'temp) (put function 'edebug-on-entry nil)))) (if edebug-trace (edebug--enter-trace function args body) (funcall body)))))
edebug-enter(parse-time-string ("Tue, 21 Feb 2017 17:17:56 -0500") (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-after (edebug-before 4) 6 (downcase (edebug-after 0 5 string))))))) (edebug-after (edebug-before 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 (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-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 (edebug-after (edebug-before 57) 59 (numberp (edebug-after 0 58 parse-time-elt))) (edebug-after (edebug-before 60) 65 (<= (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 (<= (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-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 (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-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 (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-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)))))
(let ((signal-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))
(unwind-protect (let ((signal-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-entered t) (max-lisp-eval-depth (+ 100 max-lisp-eval-depth)) (max-specpdl-size (+ 200 max-specpdl-size)) (debugger edebug-debugger) (edebug-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 '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))))
(if (not edebug-entered) (let ((edebug-entered t) (max-lisp-eval-depth (+ 100 max-lisp-eval-depth)) (max-specpdl-size (+ 200 max-specpdl-size)) (debugger edebug-debugger) (edebug-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 '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-data (get function 'edebug)) (edebug-def-mark (car edebug-data)) (edebug-freq-count (get function 'edebug-freq-count)) (edebug-coverage (get function 'edebug-coverage)) (edebug-buffer (marker-buffer edebug-def-mark)) (edebug-stack (cons function edebug-stack)) (edebug-offset-indices (cons 0 edebug-offset-indices))) (if (get function 'edebug-on-entry) (progn (setq edebug-execution-mode 'step) (if (eq (get function 'edebug-on-entry) 'temp) (put function '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-size (+ 200 max-specpdl-size)) (debugger edebug-debugger) (edebug-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 '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-data (get function 'edebug)) (edebug-def-mark (car edebug-data)) (edebug-freq-count (get function 'edebug-freq-count)) (edebug-coverage (get function 'edebug-coverage)) (edebug-buffer (marker-buffer edebug-def-mark)) (edebug-stack (cons function edebug-stack)) (edebug-offset-indices (cons 0 edebug-offset-indices))) (if (get function 'edebug-on-entry) (progn (setq edebug-execution-mode 'step) (if (eq (get function 'edebug-on-entry) 'temp) (put function 'edebug-on-entry nil)))) (if edebug-trace (edebug--enter-trace function args body) (funcall body)))))
edebug-enter(parse-time-string ("Tue, 21 Feb 2017 17:17:56 -0500") (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-after (edebug-before 4) 6 (downcase (edebug-after 0 5 string))))))) (edebug-after (edebug-before 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 (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-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 (edebug-after (edebug-before 57) 59 (numberp (edebug-after 0 58 parse-time-elt))) (edebug-after (edebug-before 60) 65 (<= (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 (<= (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-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 (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-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 (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-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)))))
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)
[-- Attachment #3: Type: text/plain, Size: 4695 bytes --]
Eval'ing the same way in Emacs 25.2 yielded the expected:
predicate’s value is shown below.
Documentation:
Not documented as a variable.
Value: (lambda nil
(and
(stringp parse-time-elt)
(=
(length parse-time-elt)
8)
(=
(aref parse-time-elt 2)
58)
(=
(aref parse-time-elt 5)
58)))
Thannks.
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.org" "news") :port ("119" "nntp" "nntp" "563" "nntps" "snews"))
Making completion list...
Configured using:
'configure 'CFLAGS=-DMAIL_USE_LOCKF -O0 -ggdb3 -pipe -Wall
-Werror=format-security -fexceptions -fstack-protector-strong
--param=ssp-buffer-size=4 -grecord-gcc-switches -m64 -mtune=generic'
LDFLAGS=-Wl,-z,relro --disable-dependency-tracking
--prefix=/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=gtk3 --with-gpm=yes
--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=ibus
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))
next reply other threads:[~2018-09-17 3:51 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2018-09-17 3:51 Live System User [this message]
2018-09-17 12:18 ` bug#32748: 26.1; EDEBUG eval error Noam Postavsky
2018-10-04 1:15 ` Noam Postavsky
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87in34bx30.fsf@aol.com \
--to=nyc4bos@aol.com \
--cc=32748@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).