bug#32748: 26.1; EDEBUG eval error

bug#32748: 26.1; EDEBUG eval error

[Live System User]

[-- 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))

bug#32748: 26.1; EDEBUG eval error

[Noam Postavsky]

Live System User <nyc4bos@aol.com> 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
                  [...]

bug#32748: 26.1; EDEBUG eval error

[Noam Postavsky]

tags 32748 notabug
close 32748
quit

Live System User <nyc4bos@aol.com> writes:

>         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
[...]

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.