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)