Debugger entered--Lisp error: (error "Lisp nesting exceeds ‘max-lisp-eval-depth’") macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (car (cdr x)))))) (args-and-body cl--nmp)) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (car (cdr x)))))) ((args-and-body cl--nmp) (var . cl--nmp) (binding cl-next-method-p cl--nmp) (--dolist-tail--) (newenv (cl-next-method-p closure #2 (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-call-next-method closure ((args-and-body cl--cnm) (var . cl--cnm) (binding cl-call-next-method cl--cnm) . #5) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-generic-current-method-specializers . #f(compiled-function () #)) (declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest body) #)) (eval-and-compile . #f(compiled-function (&rest body) #)) (with-suppressed-warnings . #f(compiled-function (warnings &rest body) #))) (binds) (body (cl-labels ((format-header (x) (format "%-12s%s" (propertize ... ... ...) (cadr x)))) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ((headers ...)) (when (and ... rsvp) (setq headers ...)) (concat (mapconcat ... headers "\n") "\n\n" description))))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loop-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--loop-conditions cl--loop-body cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args cl--bind-forms cl--bind-lets cl--bind-enquote cl--bind-defs cl--bind-block t)) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (car (cdr x)))))) (cl-next-method-p closure ((args-and-body cl--nmp) (var . cl--nmp) (binding cl-next-method-p cl--nmp) (--dolist-tail--) (newenv #2 (cl-call-next-method closure ((args-and-body cl--cnm) (var . cl--cnm) (binding cl-call-next-method cl--cnm) . #8) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-generic-current-method-specializers . #f(compiled-function () #)) (declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest body) #)) (eval-and-compile . #f(compiled-function (&rest body) #)) (with-suppressed-warnings . #f(compiled-function (warnings &rest body) #))) (binds) (body (cl-labels ((format-header (x) (format "%-12s%s" ... ...))) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let (...) (when ... ...) (concat ... "\n\n" description))))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loop-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--loop-conditions cl--loop-body cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args cl--bind-forms cl--bind-lets cl--bind-enquote cl--bind-defs cl--bind-block t) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args))))) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (car (cdr x)))))) (newenv (cl-next-method-p closure ((args-and-body cl--nmp) (var . cl--nmp) (binding cl-next-method-p cl--nmp) (--dolist-tail--) #2 (binds) (body (cl-labels ((format-header ... ...)) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ... ... ...)))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loop-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--loop-conditions cl--loop-body cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args cl--bind-forms cl--bind-lets cl--bind-enquote cl--bind-defs cl--bind-block t) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-call-next-method closure ((args-and-body cl--cnm) (var . cl--cnm) (binding cl-call-next-method cl--cnm) (--dolist-tail--) #2 (binds) (body (cl-labels ((format-header ... ...)) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ... ... ...)))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loop-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--loop-conditions cl--loop-body cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args cl--bind-forms cl--bind-lets cl--bind-enquote cl--bind-defs cl--bind-block t) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-generic-current-method-specializers . #f(compiled-function () #)) (declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest body) #)) (eval-and-compile . #f(compiled-function (&rest body) #)) (with-suppressed-warnings . #f(compiled-function (warnings &rest body) #)))) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (car (cdr x)))))) ((args-and-body cl--nmp) (var . cl--nmp) (binding cl-next-method-p cl--nmp) (--dolist-tail--) (newenv (cl-next-method-p closure #2 (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-call-next-method closure ((args-and-body cl--cnm) (var . cl--cnm) (binding cl-call-next-method cl--cnm) . #5) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-generic-current-method-specializers . #f(compiled-function () #)) (declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest body) #)) (eval-and-compile . #f(compiled-function (&rest body) #)) (with-suppressed-warnings . #f(compiled-function (warnings &rest body) #))) (binds) (body (cl-labels ((format-header (x) (format "%-12s%s" (propertize ... ... ...) (cadr x)))) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ((headers ...)) (when (and ... rsvp) (setq headers ...)) (concat (mapconcat ... headers "\n") "\n\n" description))))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loop-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--loop-conditions cl--loop-body cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args cl--bind-forms cl--bind-lets cl--bind-enquote cl--bind-defs cl--bind-block t)) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (car (cdr x)))))) (cl-next-method-p closure ((args-and-body cl--nmp) (var . cl--nmp) (binding cl-next-method-p cl--nmp) (--dolist-tail--) (newenv #2 (cl-call-next-method closure ((args-and-body cl--cnm) (var . cl--cnm) (binding cl-call-next-method cl--cnm) . #8) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-generic-current-method-specializers . #f(compiled-function () #)) (declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest body) #)) (eval-and-compile . #f(compiled-function (&rest body) #)) (with-suppressed-warnings . #f(compiled-function (warnings &rest body) #))) (binds) (body (cl-labels ((format-header (x) (format "%-12s%s" ... ...))) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let (...) (when ... ...) (concat ... "\n\n" description))))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loop-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--loop-conditions cl--loop-body cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args cl--bind-forms cl--bind-lets cl--bind-enquote cl--bind-defs cl--bind-block t) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args))))) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (car (cdr x)))))) (newenv (cl-next-method-p closure ((args-and-body cl--nmp) (var . cl--nmp) (binding cl-next-method-p cl--nmp) (--dolist-tail--) #2 (binds) (body (cl-labels ((format-header ... ...)) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ... ... ...)))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loop-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--loop-conditions cl--loop-body cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args cl--bind-forms cl--bind-lets cl--bind-enquote cl--bind-defs cl--bind-block t) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-call-next-method closure ((args-and-body cl--cnm) (var . cl--cnm) (binding cl-call-next-method cl--cnm) (--dolist-tail--) #2 (binds) (body (cl-labels ((format-header ... ...)) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ... ... ...)))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loop-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--loop-conditions cl--loop-body cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args cl--bind-forms cl--bind-lets cl--bind-enquote cl--bind-defs cl--bind-block t) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-generic-current-method-specializers . #f(compiled-function () #)) (declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest body) #)) (eval-and-compile . #f(compiled-function (&rest body) #)) (with-suppressed-warnings . #f(compiled-function (warnings &rest body) #)))) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (car (cdr x)))))) ((args-and-body cl--nmp) (var . cl--nmp) (binding cl-next-method-p cl--nmp) (--dolist-tail--) (newenv (cl-next-method-p closure #2 (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-call-next-method closure ((args-and-body cl--cnm) (var . cl--cnm) (binding cl-call-next-method cl--cnm) . #5) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-generic-current-method-specializers . #f(compiled-function () #)) (declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest body) #)) (eval-and-compile . #f(compiled-function (&rest body) #)) (with-suppressed-warnings . #f(compiled-function (warnings &rest body) #))) (binds) (body (cl-labels ((format-header (x) (format "%-12s%s" (propertize ... ... ...) (cadr x)))) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ((headers ...)) (when (and ... rsvp) (setq headers ...)) (concat (mapconcat ... headers "\n") "\n\n" description))))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loop-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--loop-conditions cl--loop-body cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args cl--bind-forms cl--bind-lets cl--bind-enquote cl--bind-defs cl--bind-block t)) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (car (cdr x)))))) (cl-next-method-p closure ((args-and-body cl--nmp) (var . cl--nmp) (binding cl-next-method-p cl--nmp) (--dolist-tail--) (newenv #2 (cl-call-next-method closure ((args-and-body cl--cnm) (var . cl--cnm) (binding cl-call-next-method cl--cnm) . #8) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-generic-current-method-specializers . #f(compiled-function () #)) (declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest body) #)) (eval-and-compile . #f(compiled-function (&rest body) #)) (with-suppressed-warnings . #f(compiled-function (warnings &rest body) #))) (binds) (body (cl-labels ((format-header (x) (format "%-12s%s" ... ...))) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let (...) (when ... ...) (concat ... "\n\n" description))))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loop-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--loop-conditions cl--loop-body cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args cl--bind-forms cl--bind-lets cl--bind-enquote cl--bind-defs cl--bind-block t) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args))))) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (car (cdr x)))))) (newenv (cl-next-method-p closure ((args-and-body cl--nmp) (var . cl--nmp) (binding cl-next-method-p cl--nmp) (--dolist-tail--) #2 (binds) (body (cl-labels ((format-header ... ...)) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ... ... ...)))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loop-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--loop-conditions cl--loop-body cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args cl--bind-forms cl--bind-lets cl--bind-enquote cl--bind-defs cl--bind-block t) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-call-next-method closure ((args-and-body cl--cnm) (var . cl--cnm) (binding cl-call-next-method cl--cnm) (--dolist-tail--) #2 (binds) (body (cl-labels ((format-header ... ...)) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ... ... ...)))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loop-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--loop-conditions cl--loop-body cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args cl--bind-forms cl--bind-lets cl--bind-enquote cl--bind-defs cl--bind-block t) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-generic-current-method-specializers . #f(compiled-function () #)) (declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest body) #)) (eval-and-compile . #f(compiled-function (&rest body) #)) (with-suppressed-warnings . #f(compiled-function (warnings &rest body) #)))) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (car (cdr x)))))) ((args-and-body cl--nmp) (var . cl--nmp) (binding cl-next-method-p cl--nmp) (--dolist-tail--) (newenv (cl-next-method-p closure #2 (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-call-next-method closure ((args-and-body cl--cnm) (var . cl--cnm) (binding cl-call-next-method cl--cnm) . #5) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-generic-current-method-specializers . #f(compiled-function () #)) (declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest body) #)) (eval-and-compile . #f(compiled-function (&rest body) #)) (with-suppressed-warnings . #f(compiled-function (warnings &rest body) #))) (binds) (body (cl-labels ((format-header (x) (format "%-12s%s" (propertize ... ... ...) (cadr x)))) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ((headers ...)) (when (and ... rsvp) (setq headers ...)) (concat (mapconcat ... headers "\n") "\n\n" description))))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loop-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--loop-conditions cl--loop-body cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args cl--bind-forms cl--bind-lets cl--bind-enquote cl--bind-defs cl--bind-block t)) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (car (cdr x)))))) (cl-next-method-p closure ((args-and-body cl--nmp) (var . cl--nmp) (binding cl-next-method-p cl--nmp) (--dolist-tail--) (newenv #2 (cl-call-next-method closure ((args-and-body cl--cnm) (var . cl--cnm) (binding cl-call-next-method cl--cnm) . #8) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-generic-current-method-specializers . #f(compiled-function () #)) (declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest body) #)) (eval-and-compile . #f(compiled-function (&rest body) #)) (with-suppressed-warnings . #f(compiled-function (warnings &rest body) #))) (binds) (body (cl-labels ((format-header (x) (format "%-12s%s" ... ...))) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let (...) (when ... ...) (concat ... "\n\n" description))))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loop-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--loop-conditions cl--loop-body cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args cl--bind-forms cl--bind-lets cl--bind-enquote cl--bind-defs cl--bind-block t) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args))))) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (car (cdr x)))))) (newenv (cl-next-method-p closure ((args-and-body cl--nmp) (var . cl--nmp) (binding cl-next-method-p cl--nmp) (--dolist-tail--) #2 (binds) (body (cl-labels ((format-header ... ...)) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ... ... ...)))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loop-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--loop-conditions cl--loop-body cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args cl--bind-forms cl--bind-lets cl--bind-enquote cl--bind-defs cl--bind-block t) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-call-next-method closure ((args-and-body cl--cnm) (var . cl--cnm) (binding cl-call-next-method cl--cnm) (--dolist-tail--) #2 (binds) (body (cl-labels ((format-header ... ...)) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ... ... ...)))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loop-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--loop-conditions cl--loop-body cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args cl--bind-forms cl--bind-lets cl--bind-enquote cl--bind-defs cl--bind-block t) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-generic-current-method-specializers . #f(compiled-function () #)) (declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest body) #)) (eval-and-compile . #f(compiled-function (&rest body) #)) (with-suppressed-warnings . #f(compiled-function (warnings &rest body) #)))) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (car (cdr x)))))) ((args-and-body cl--nmp) (var . cl--nmp) (binding cl-next-method-p cl--nmp) (--dolist-tail--) (newenv (cl-next-method-p closure #2 (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-call-next-method closure ((args-and-body cl--cnm) (var . cl--cnm) (binding cl-call-next-method cl--cnm) . #5) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-generic-current-method-specializers . #f(compiled-function () #)) (declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest body) #)) (eval-and-compile . #f(compiled-function (&rest body) #)) (with-suppressed-warnings . #f(compiled-function (warnings &rest body) #))) (binds) (body (cl-labels ((format-header (x) (format "%-12s%s" (propertize ... ... ...) (cadr x)))) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ((headers ...)) (when (and ... rsvp) (setq headers ...)) (concat (mapconcat ... headers "\n") "\n\n" description))))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loop-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--loop-conditions cl--loop-body cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args cl--bind-forms cl--bind-lets cl--bind-enquote cl--bind-defs cl--bind-block t)) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (car (cdr x)))))) (cl-next-method-p closure ((args-and-body cl--nmp) (var . cl--nmp) (binding cl-next-method-p cl--nmp) (--dolist-tail--) (newenv #2 (cl-call-next-method closure ((args-and-body cl--cnm) (var . cl--cnm) (binding cl-call-next-method cl--cnm) . #8) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-generic-current-method-specializers . #f(compiled-function () #)) (declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest body) #)) (eval-and-compile . #f(compiled-function (&rest body) #)) (with-suppressed-warnings . #f(compiled-function (warnings &rest body) #))) (binds) (body (cl-labels ((format-header (x) (format "%-12s%s" ... ...))) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let (...) (when ... ...) (concat ... "\n\n" description))))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loop-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--loop-conditions cl--loop-body cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args cl--bind-forms cl--bind-lets cl--bind-enquote cl--bind-defs cl--bind-block t) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args))))) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (car (cdr x)))))) (newenv (cl-next-method-p closure ((args-and-body cl--nmp) (var . cl--nmp) (binding cl-next-method-p cl--nmp) (--dolist-tail--) #2 (binds) (body (cl-labels ((format-header ... ...)) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ... ... ...)))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loop-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--loop-conditions cl--loop-body cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args cl--bind-forms cl--bind-lets cl--bind-enquote cl--bind-defs cl--bind-block t) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-call-next-method closure ((args-and-body cl--cnm) (var . cl--cnm) (binding cl-call-next-method cl--cnm) (--dolist-tail--) #2 (binds) (body (cl-labels ((format-header ... ...)) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ... ... ...)))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loop-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--loop-conditions cl--loop-body cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args cl--bind-forms cl--bind-lets cl--bind-enquote cl--bind-defs cl--bind-block t) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-generic-current-method-specializers . #f(compiled-function () #)) (declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest body) #)) (eval-and-compile . #f(compiled-function (&rest body) #)) (with-suppressed-warnings . #f(compiled-function (warnings &rest body) #)))) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (car (cdr x)))))) ((args-and-body cl--nmp) (var . cl--nmp) (binding cl-next-method-p cl--nmp) (--dolist-tail--) (newenv (cl-next-method-p closure #2 (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-call-next-method closure ((args-and-body cl--cnm) (var . cl--cnm) (binding cl-call-next-method cl--cnm) . #5) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-generic-current-method-specializers . #f(compiled-function () #)) (declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest body) #)) (eval-and-compile . #f(compiled-function (&rest body) #)) (with-suppressed-warnings . #f(compiled-function (warnings &rest body) #))) (binds) (body (cl-labels ((format-header (x) (format "%-12s%s" (propertize ... ... ...) (cadr x)))) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ((headers ...)) (when (and ... rsvp) (setq headers ...)) (concat (mapconcat ... headers "\n") "\n\n" description))))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loop-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--loop-conditions cl--loop-body cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args cl--bind-forms cl--bind-lets cl--bind-enquote cl--bind-defs cl--bind-block t)) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (car (cdr x)))))) (cl-next-method-p closure ((args-and-body cl--nmp) (var . cl--nmp) (binding cl-next-method-p cl--nmp) (--dolist-tail--) (newenv #2 (cl-call-next-method closure ((args-and-body cl--cnm) (var . cl--cnm) (binding cl-call-next-method cl--cnm) . #8) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-generic-current-method-specializers . #f(compiled-function () #)) (declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest body) #)) (eval-and-compile . #f(compiled-function (&rest body) #)) (with-suppressed-warnings . #f(compiled-function (warnings &rest body) #))) (binds) (body (cl-labels ((format-header (x) (format "%-12s%s" ... ...))) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let (...) (when ... ...) (concat ... "\n\n" description))))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loop-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--loop-conditions cl--loop-body cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args cl--bind-forms cl--bind-lets cl--bind-enquote cl--bind-defs cl--bind-block t) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args))))) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (car (cdr x)))))) (newenv (cl-next-method-p closure ((args-and-body cl--nmp) (var . cl--nmp) (binding cl-next-method-p cl--nmp) (--dolist-tail--) #2 (binds) (body (cl-labels ((format-header ... ...)) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ... ... ...)))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loop-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--loop-conditions cl--loop-body cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args cl--bind-forms cl--bind-lets cl--bind-enquote cl--bind-defs cl--bind-block t) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-call-next-method closure ((args-and-body cl--cnm) (var . cl--cnm) (binding cl-call-next-method cl--cnm) (--dolist-tail--) #2 (binds) (body (cl-labels ((format-header ... ...)) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ... ... ...)))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loop-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--loop-conditions cl--loop-body cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args cl--bind-forms cl--bind-lets cl--bind-enquote cl--bind-defs cl--bind-block t) (&rest args) (if (eq (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (cons var args)))) (cl-generic-current-method-specializers . #f(compiled-function () #)) (declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest body) #)) (eval-and-compile . #f(compiled-function (&rest body) #)) (with-suppressed-warnings . #f(compiled-function (warnings &rest body) #)))) ... macroexpand-all((cl-flet ((cl-call-next-method cl--cnm) (cl-next-method-p cl--nmp)) (cl-labels ((format-header (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (cadr x)))) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ((headers `...)) (when (and (not ...) rsvp) (setq headers (append headers ...))) (concat (mapconcat #'format-header headers "\n") "\n\n" description))))) ((cl-generic-current-method-specializers . #f(compiled-function () #)) (declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest body) #)) (eval-and-compile . #f(compiled-function (&rest body) #)) (with-suppressed-warnings . #f(compiled-function (warnings &rest body) #)))) cl--generic-lambda(((event gnus-icalendar-event) &optional reply-status) ("Format an overview of EVENT details." (cl-labels ((format-header (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (cadr x)))) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ((headers `...)) (when (and (not ...) rsvp) (setq headers (append headers ...))) (concat (mapconcat #'format-header headers "\n") "\n\n" description)))))) #f(compiled-function (arg1 arg2 &rest rest) "Define a new method for generic function NAME.\nThis it defines an implementation of NAME to use for invocations\nof specific types of arguments.\n\nARGS is a list of dispatch arguments (see `cl-defun'), but where\neach variable element is either just a single variable name VAR,\nor a list on the form (VAR TYPE).\n\nFor instance:\n\n (cl-defmethod foo (bar (format-string string) &optional zot)\n (format format-string bar))\n\nThe dispatch arguments have to be among the mandatory arguments, and\nall methods of NAME have to use the same set of arguments for dispatch.\nEach dispatch argument and TYPE are specified in ARGS where the corresponding\nformal argument appears as (VAR TYPE) rather than just VAR.\n\nThe optional second argument QUALIFIER is a specifier that\nmodifies how the method is combined with other methods, including:\n :before - Method will be called before the primary\n :after - Method will be called after the primary\n :around - Method will be called around everything else\nThe absence of QUALIFIER means this is a \"primary\" method.\nThe set of acceptable qualifiers and their meaning is defined\n(and can be extended) by the methods of `cl-generic-combine-methods'.\n\nARGS can also include so-called context specializers, introduced by\n`&context' (which should appear right after the mandatory arguments,\nbefore any &optional or &rest). They have the form (EXPR TYPE) where\nEXPR is an Elisp expression whose value should match TYPE for the\nmethod to be applicable.\n\nThe set of acceptable TYPEs (also called \"specializers\") is defined\n(and can be extended) by the various methods of `cl-generic-generalizers'." #)(gnus-icalendar-event->gnus-calendar ((event gnus-icalendar-event) &optional reply-status) "Format an overview of EVENT details." (cl-labels ((format-header (x) (format "%-12s%s" (propertize (concat (car x) ":") 'face 'bold) (cadr x)))) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ((headers `(... ... ... ... ... ...))) (when (and (not (gnus-icalendar-event-reply-p event)) rsvp) (setq headers (append headers `...))) (concat (mapconcat #'format-header headers "\n") "\n\n" description))))) macroexpand((cl-defmethod gnus-icalendar-event->gnus-calendar ((event gnus-icalendar-event) &optional reply-status) "Format an overview of EVENT details." (cl-labels ((format-header (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (cadr x)))) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ((headers `...)) (when (and (not ...) rsvp) (setq headers (append headers ...))) (concat (mapconcat #'format-header headers "\n") "\n\n" description))))) ((declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest body) #)) (eval-and-compile . #f(compiled-function (&rest body) #)) (with-suppressed-warnings . #f(compiled-function (warnings &rest body) #)))) macroexp-macroexpand((cl-defmethod gnus-icalendar-event->gnus-calendar ((event gnus-icalendar-event) &optional reply-status) "Format an overview of EVENT details." (cl-labels ((format-header (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (cadr x)))) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ((headers `...)) (when (and (not ...) rsvp) (setq headers (append headers ...))) (concat (mapconcat #'format-header headers "\n") "\n\n" description))))) ((declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest body) #)) (eval-and-compile . #f(compiled-function (&rest body) #)) (with-suppressed-warnings . #f(compiled-function (warnings &rest body) #)))) byte-compile-recurse-toplevel((cl-defmethod gnus-icalendar-event->gnus-calendar ((event gnus-icalendar-event) &optional reply-status) "Format an overview of EVENT details." (cl-labels ((format-header (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (cadr x)))) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ((headers `...)) (when (and (not ...) rsvp) (setq headers (append headers ...))) (concat (mapconcat #'format-header headers "\n") "\n\n" description))))) #) byte-compile-toplevel-file-form((cl-defmethod gnus-icalendar-event->gnus-calendar ((event gnus-icalendar-event) &optional reply-status) "Format an overview of EVENT details." (cl-labels ((format-header (x) (format "%-12s%s" (propertize (concat ... ":") 'face 'bold) (cadr x)))) (with-slots (organizer summary description location recur uid method rsvp participation-type) event (let ((headers `...)) (when (and (not ...) rsvp) (setq headers (append headers ...))) (concat (mapconcat #'format-header headers "\n") "\n\n" description)))))) #(#) byte-compile-from-buffer(#) byte-compile-file("gnus/gnus-icalendar.el") #f(compiled-function (filename) "Byte-compile FILENAME spilling data from the byte compiler." #)("gnus/gnus-icalendar.el") apply(#f(compiled-function (filename) "Byte-compile FILENAME spilling data from the byte compiler." #) "gnus/gnus-icalendar.el" nil) comp-spill-lap-function("gnus/gnus-icalendar.el") comp-spill-lap("gnus/gnus-icalendar.el") comp--native-compile("gnus/gnus-icalendar.el") batch-native-compile() batch-byte-native-compile-for-bootstrap() command-line-1(("--eval" "(setq load-prefer-newer t)" "-l" "comp" "-f" "batch-byte-n ELC+ELN mail/mail-utils.elc ative-compile-for-bootstrap" "gnus/gnus-icalendar.el")) command-line() normal-top-level() make[3]: *** [Makefile:319: gnus/gnus-icalendar.elc] Error 255 make[3]: *** Waiting for unfinished jobs.... make[3]: Leaving directory '/home/md5i/src/emacs/native-comp/lisp' make[2]: *** [Makefile:353: compile-main] Error 2 make[2]: Leaving directory '/home/md5i/src/emacs/native-comp/lisp' make[1]: *** [Makefile:421: lisp] Error 2 make[1]: Leaving directory '/home/md5i/src/emacs/native-comp' make: *** [Makefile:1148: bootstrap] Error 2