From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Michael Welsh Duggan Newsgroups: gmane.emacs.bugs Subject: bug#46502: 28.0.50; [feature/native-comp] (d3a399dd) native-comp bootstrap failure Date: Sun, 14 Feb 2021 00:05:25 -0500 Message-ID: <87o8gn8ciy.fsf@md5i.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="8202"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) To: 46502@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Sun Feb 14 06:06:35 2021 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1lB9cA-00020o-U5 for geb-bug-gnu-emacs@m.gmane-mx.org; Sun, 14 Feb 2021 06:06:35 +0100 Original-Received: from localhost ([::1]:33888 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1lB9c9-0007WO-Qe for geb-bug-gnu-emacs@m.gmane-mx.org; Sun, 14 Feb 2021 00:06:33 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:49248) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lB9be-0007Vl-2J for bug-gnu-emacs@gnu.org; Sun, 14 Feb 2021 00:06:02 -0500 Original-Received: from debbugs.gnu.org ([209.51.188.43]:52042) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1lB9bd-0007ok-RQ for bug-gnu-emacs@gnu.org; Sun, 14 Feb 2021 00:06:01 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1lB9bd-0008KZ-Le for bug-gnu-emacs@gnu.org; Sun, 14 Feb 2021 00:06:01 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Michael Welsh Duggan Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sun, 14 Feb 2021 05:06:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 46502 X-GNU-PR-Package: emacs X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.161327913931993 (code B ref -1); Sun, 14 Feb 2021 05:06:01 +0000 Original-Received: (at submit) by debbugs.gnu.org; 14 Feb 2021 05:05:39 +0000 Original-Received: from localhost ([127.0.0.1]:35355 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lB9bF-0008Jv-4B for submit@debbugs.gnu.org; Sun, 14 Feb 2021 00:05:39 -0500 Original-Received: from lists.gnu.org ([209.51.188.17]:34666) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lB9bC-0008Jn-1R for submit@debbugs.gnu.org; Sun, 14 Feb 2021 00:05:35 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:49228) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lB9bB-000790-Tn for bug-gnu-emacs@gnu.org; Sun, 14 Feb 2021 00:05:33 -0500 Original-Received: from md5i.com ([75.151.244.229]:36232) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lB9b5-0007cL-E9 for bug-gnu-emacs@gnu.org; Sun, 14 Feb 2021 00:05:33 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=md5i.com; s=dkim; h=Content-Type:MIME-Version:Message-ID:Date:Subject:To:From:Sender: Reply-To:Cc:Content-Transfer-Encoding:Content-ID:Content-Description: Resent-Date:Resent-From:Resent-Sender:Resent-To:Resent-Cc:Resent-Message-ID: In-Reply-To:References:List-Id:List-Help:List-Unsubscribe:List-Subscribe: List-Post:List-Owner:List-Archive; bh=/n6h9Pttsqu9pPtGJxvxIwlydsvpz0v9g1gT140kBCs=; b=FuDuc/DDpdkbRWaa/jIX9K9+ep JCzvSz98zQpWYykRtPhXogYXySnMV4pS0yeW0a8TkA7q1jldGlwKU9r6BN8EjQT7vHdowRm/p9n9S SDeHSyxp6hp7iG0OcIYtIvueN; Original-Received: from miko.md5i.com ([192.168.177.3] helo=miko) by md5i.com with esmtps (TLS1.3) tls TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384 (Exim 4.94) (envelope-from ) id 1lB9b3-000U7Q-Un for bug-gnu-emacs@gnu.org; Sun, 14 Feb 2021 00:05:25 -0500 Received-SPF: pass client-ip=75.151.244.229; envelope-from=mwd@md5i.com; helo=md5i.com X-Spam_score_int: -18 X-Spam_score: -1.9 X-Spam_bar: - X-Spam_report: (-1.9 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.io gmane.emacs.bugs:199982 Archived-At: --=-=-= Content-Type: text/plain I decided to attempt building the native-comp feature branch, since it seems like it may make it to mainline fairly soon. When bootstrapping with make NATIVE_FULL_AOT=1 -j 32 bootstrap I get an error compiling gnus/gnus-icalendar.el. I've put the log below. I've updated the emacs information from my running emacs below to match the version of the repository from which I built. In GNU Emacs 28.0.50 (build 1, x86_64-pc-linux-gnu, X toolkit, cairo version 1.16.0) of 2021-02-13 built on miko Repository revision: d3a399dd299bf7e811cf42950d5f8ac67f063b36 Repository branch: native-comp Windowing system distributor 'The X.Org Foundation', version 11.0.12010000 System Description: Debian GNU/Linux bullseye/sid Configured using: 'configure --without-toolkit-scroll-bars --with-x-toolkit=lucid --with-nativecomp' --=-=-= Content-Type: text/plain; charset=windows-1252 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Debugger entered--Lisp error: (error "Lisp nesting exceeds =91max-lisp-eval= -depth=92") macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (p= ropertize (concat ... ":") 'face 'bold) (car (cdr x)))))) (args-and-body cl= --nmp)) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (p= ropertize (concat ... ":") 'face 'bold) (car (cdr x)))))) ((args-and-body c= l--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) (bin= ding 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-f= unction (warnings &rest body) #))) (binds) (bo= dy (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" descr= iption))))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--n= mp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-resul= t-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loo= p-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--l= oop-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" (p= ropertize (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-speciali= zers . #f(compiled-function () #)) (declare-functi= on . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(com= piled-function (&rest body) #)) (eval-and-compi= le . #f(compiled-function (&rest body) #)) (wi= th-suppressed-warnings . #f(compiled-function (warnings &rest body) #))) (binds) (body (cl-labels ((format-header (x) (fo= rmat "%-12s%s" ... ...))) (with-slots (organizer summary description locati= on recur uid method rsvp participation-type) event (let (...) (when ... ...= ) (concat ... "\n\n" description))))) (bindings (cl-call-next-method cl--cn= m) (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-f= lag 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 (co= ns var args))))) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (p= ropertize (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-he= ader ... ...)) (with-slots (organizer summary description location recur ui= d 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-bo= dy cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args c= l--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 partici= pation-type) event (let ... ... ...)))) (bindings (cl-call-next-method cl--= cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--lo= op-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--lo= op-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--bin= d-lets cl--bind-enquote cl--bind-defs cl--bind-block t) (&rest args) (if (e= q (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (= cons var args)))) (cl-generic-current-method-specializers . #f(compiled-fun= ction () #)) (declare-function . byte-compile-macr= oexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest = body) #)) (eval-and-compile . #f(compiled-funct= ion (&rest body) #)) (with-suppressed-warnings= . #f(compiled-function (warnings &rest body) #)))) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (p= ropertize (concat ... ":") 'face 'bold) (car (cdr x)))))) ((args-and-body c= l--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) (bin= ding 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-f= unction (warnings &rest body) #))) (binds) (bo= dy (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" descr= iption))))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--n= mp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-resul= t-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loo= p-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--l= oop-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" (p= ropertize (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-speciali= zers . #f(compiled-function () #)) (declare-functi= on . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(com= piled-function (&rest body) #)) (eval-and-compi= le . #f(compiled-function (&rest body) #)) (wi= th-suppressed-warnings . #f(compiled-function (warnings &rest body) #))) (binds) (body (cl-labels ((format-header (x) (fo= rmat "%-12s%s" ... ...))) (with-slots (organizer summary description locati= on recur uid method rsvp participation-type) event (let (...) (when ... ...= ) (concat ... "\n\n" description))))) (bindings (cl-call-next-method cl--cn= m) (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-f= lag 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 (co= ns var args))))) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (p= ropertize (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-he= ader ... ...)) (with-slots (organizer summary description location recur ui= d 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-bo= dy cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args c= l--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 partici= pation-type) event (let ... ... ...)))) (bindings (cl-call-next-method cl--= cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--lo= op-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--lo= op-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--bin= d-lets cl--bind-enquote cl--bind-defs cl--bind-block t) (&rest args) (if (e= q (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (= cons var args)))) (cl-generic-current-method-specializers . #f(compiled-fun= ction () #)) (declare-function . byte-compile-macr= oexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest = body) #)) (eval-and-compile . #f(compiled-funct= ion (&rest body) #)) (with-suppressed-warnings= . #f(compiled-function (warnings &rest body) #)))) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (p= ropertize (concat ... ":") 'face 'bold) (car (cdr x)))))) ((args-and-body c= l--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) (bin= ding 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-f= unction (warnings &rest body) #))) (binds) (bo= dy (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" descr= iption))))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--n= mp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-resul= t-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loo= p-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--l= oop-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" (p= ropertize (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-speciali= zers . #f(compiled-function () #)) (declare-functi= on . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(com= piled-function (&rest body) #)) (eval-and-compi= le . #f(compiled-function (&rest body) #)) (wi= th-suppressed-warnings . #f(compiled-function (warnings &rest body) #))) (binds) (body (cl-labels ((format-header (x) (fo= rmat "%-12s%s" ... ...))) (with-slots (organizer summary description locati= on recur uid method rsvp participation-type) event (let (...) (when ... ...= ) (concat ... "\n\n" description))))) (bindings (cl-call-next-method cl--cn= m) (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-f= lag 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 (co= ns var args))))) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (p= ropertize (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-he= ader ... ...)) (with-slots (organizer summary description location recur ui= d 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-bo= dy cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args c= l--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 partici= pation-type) event (let ... ... ...)))) (bindings (cl-call-next-method cl--= cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--lo= op-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--lo= op-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--bin= d-lets cl--bind-enquote cl--bind-defs cl--bind-block t) (&rest args) (if (e= q (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (= cons var args)))) (cl-generic-current-method-specializers . #f(compiled-fun= ction () #)) (declare-function . byte-compile-macr= oexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest = body) #)) (eval-and-compile . #f(compiled-funct= ion (&rest body) #)) (with-suppressed-warnings= . #f(compiled-function (warnings &rest body) #)))) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (p= ropertize (concat ... ":") 'face 'bold) (car (cdr x)))))) ((args-and-body c= l--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) (bin= ding 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-f= unction (warnings &rest body) #))) (binds) (bo= dy (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" descr= iption))))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--n= mp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-resul= t-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loo= p-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--l= oop-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" (p= ropertize (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-speciali= zers . #f(compiled-function () #)) (declare-functi= on . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(com= piled-function (&rest body) #)) (eval-and-compi= le . #f(compiled-function (&rest body) #)) (wi= th-suppressed-warnings . #f(compiled-function (warnings &rest body) #))) (binds) (body (cl-labels ((format-header (x) (fo= rmat "%-12s%s" ... ...))) (with-slots (organizer summary description locati= on recur uid method rsvp participation-type) event (let (...) (when ... ...= ) (concat ... "\n\n" description))))) (bindings (cl-call-next-method cl--cn= m) (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-f= lag 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 (co= ns var args))))) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (p= ropertize (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-he= ader ... ...)) (with-slots (organizer summary description location recur ui= d 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-bo= dy cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args c= l--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 partici= pation-type) event (let ... ... ...)))) (bindings (cl-call-next-method cl--= cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--lo= op-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--lo= op-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--bin= d-lets cl--bind-enquote cl--bind-defs cl--bind-block t) (&rest args) (if (e= q (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (= cons var args)))) (cl-generic-current-method-specializers . #f(compiled-fun= ction () #)) (declare-function . byte-compile-macr= oexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest = body) #)) (eval-and-compile . #f(compiled-funct= ion (&rest body) #)) (with-suppressed-warnings= . #f(compiled-function (warnings &rest body) #)))) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (p= ropertize (concat ... ":") 'face 'bold) (car (cdr x)))))) ((args-and-body c= l--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) (bin= ding 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-f= unction (warnings &rest body) #))) (binds) (bo= dy (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" descr= iption))))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--n= mp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-resul= t-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loo= p-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--l= oop-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" (p= ropertize (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-speciali= zers . #f(compiled-function () #)) (declare-functi= on . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(com= piled-function (&rest body) #)) (eval-and-compi= le . #f(compiled-function (&rest body) #)) (wi= th-suppressed-warnings . #f(compiled-function (warnings &rest body) #))) (binds) (body (cl-labels ((format-header (x) (fo= rmat "%-12s%s" ... ...))) (with-slots (organizer summary description locati= on recur uid method rsvp participation-type) event (let (...) (when ... ...= ) (concat ... "\n\n" description))))) (bindings (cl-call-next-method cl--cn= m) (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-f= lag 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 (co= ns var args))))) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (p= ropertize (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-he= ader ... ...)) (with-slots (organizer summary description location recur ui= d 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-bo= dy cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args c= l--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 partici= pation-type) event (let ... ... ...)))) (bindings (cl-call-next-method cl--= cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--lo= op-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--lo= op-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--bin= d-lets cl--bind-enquote cl--bind-defs cl--bind-block t) (&rest args) (if (e= q (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (= cons var args)))) (cl-generic-current-method-specializers . #f(compiled-fun= ction () #)) (declare-function . byte-compile-macr= oexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest = body) #)) (eval-and-compile . #f(compiled-funct= ion (&rest body) #)) (with-suppressed-warnings= . #f(compiled-function (warnings &rest body) #)))) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (p= ropertize (concat ... ":") 'face 'bold) (car (cdr x)))))) ((args-and-body c= l--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) (bin= ding 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-f= unction (warnings &rest body) #))) (binds) (bo= dy (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" descr= iption))))) (bindings (cl-call-next-method cl--cnm) (cl-next-method-p cl--n= mp)) cl--loop-symbol-macs cl--loop-steps cl--loop-result-var cl--loop-resul= t-explicit cl--loop-result cl--loop-name cl--loop-iterator-function cl--loo= p-initially cl--loop-first-flag cl--loop-finish-flag cl--loop-finally cl--l= oop-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" (p= ropertize (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-speciali= zers . #f(compiled-function () #)) (declare-functi= on . byte-compile-macroexpand-declare-function) (eval-when-compile . #f(com= piled-function (&rest body) #)) (eval-and-compi= le . #f(compiled-function (&rest body) #)) (wi= th-suppressed-warnings . #f(compiled-function (warnings &rest body) #))) (binds) (body (cl-labels ((format-header (x) (fo= rmat "%-12s%s" ... ...))) (with-slots (organizer summary description locati= on recur uid method rsvp participation-type) event (let (...) (when ... ...= ) (concat ... "\n\n" description))))) (bindings (cl-call-next-method cl--cn= m) (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-f= lag 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 (co= ns var args))))) macroexp--fgrep(((--cl-format-header-- #'(lambda (x) (format "%-12s%s" (p= ropertize (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-he= ader ... ...)) (with-slots (organizer summary description location recur ui= d 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-bo= dy cl--loop-bindings cl--loop-accum-vars cl--loop-accum-var cl--loop-args c= l--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 partici= pation-type) event (let ... ... ...)))) (bindings (cl-call-next-method cl--= cnm) (cl-next-method-p cl--nmp)) cl--loop-symbol-macs cl--loop-steps cl--lo= op-result-var cl--loop-result-explicit cl--loop-result cl--loop-name cl--lo= op-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--bin= d-lets cl--bind-enquote cl--bind-defs cl--bind-block t) (&rest args) (if (e= q (car args) cl--labels-magic) (list cl--labels-magic var) (cons 'funcall (= cons var args)))) (cl-generic-current-method-specializers . #f(compiled-fun= ction () #)) (declare-function . byte-compile-macr= oexpand-declare-function) (eval-when-compile . #f(compiled-function (&rest = body) #)) (eval-and-compile . #f(compiled-funct= ion (&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 (co= ncat ... ":") 'face 'bold) (cadr x)))) (with-slots (organizer summary descr= iption location recur uid method rsvp participation-type) event (let ((head= ers `...)) (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-fun= ction) (eval-when-compile . #f(compiled-function (&rest body) #)) (eval-and-compile . #f(compiled-function (&rest body) #<= bytecode 0x1385801da54a6c7b>)) (with-suppressed-warnings . #f(compiled-func= tion (warnings &rest body) #)))) cl--generic-lambda(((event gnus-icalendar-event) &optional reply-status) = ("Format an overview of EVENT details." (cl-labels ((format-header (x) (for= mat "%-12s%s" (propertize (concat ... ":") 'face 'bold) (cadr x)))) (with-s= lots (organizer summary description location recur uid method rsvp particip= ation-type) event (let ((headers `...)) (when (and (not ...) rsvp) (setq he= aders (append headers ...))) (concat (mapconcat #'format-header headers "\n= ") "\n\n" description)))))) #f(compiled-function (arg1 arg2 &rest rest) "Define a new method for gene= ric function NAME.\nThis it defines an implementation of NAME to use for in= vocations\nof specific types of arguments.\n\nARGS is a list of dispatch ar= guments (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 instan= ce:\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 a= rguments for dispatch.\nEach dispatch argument and TYPE are specified in AR= GS where the corresponding\nformal argument appears as (VAR TYPE) rather th= an just VAR.\n\nThe optional second argument QUALIFIER is a specifier that\= nmodifies how the method is combined with other methods, including:\n :be= fore - Method will be called before the primary\n :after - Method will= be called after the primary\n :around - Method will be called around ev= erything else\nThe absence of QUALIFIER means this is a \"primary\" method.= \nThe set of acceptable qualifiers and their meaning is defined\n(and can b= e extended) by the methods of `cl-generic-combine-methods'.\n\nARGS can als= o 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-icale= ndar-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 eve= nt)) rsvp) (setq headers (append headers `...))) (concat (mapconcat #'forma= t-header headers "\n") "\n\n" description))))) macroexpand((cl-defmethod gnus-icalendar-event->gnus-calendar ((event gnu= s-icalendar-event) &optional reply-status) "Format an overview of EVENT det= ails." (cl-labels ((format-header (x) (format "%-12s%s" (propertize (concat= ... ":") 'face 'bold) (cadr x)))) (with-slots (organizer summary descripti= on location recur uid method rsvp participation-type) event (let ((headers = `...)) (when (and (not ...) rsvp) (setq headers (append headers ...))) (con= cat (mapconcat #'format-header headers "\n") "\n\n" description))))) ((decl= are-function . byte-compile-macroexpand-declare-function) (eval-when-compil= e . #f(compiled-function (&rest body) #)) (eval= -and-compile . #f(compiled-function (&rest body) #)) (with-suppressed-warnings . #f(compiled-function (warnings &rest bod= y) #)))) 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" (propertiz= e (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-wh= en-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-ca= lendar ((event gnus-icalendar-event) &optional reply-status) "Format an ove= rview 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) eve= nt (let ((headers `...)) (when (and (not ...) rsvp) (setq headers (append h= eaders ...))) (concat (mapconcat #'format-header headers "\n") "\n\n" descr= iption))))) #) byte-compile-toplevel-file-form((cl-defmethod gnus-icalendar-event->gnus-= calendar ((event gnus-icalendar-event) &optional reply-status) "Format an o= verview of EVENT details." (cl-labels ((format-header (x) (format "%-12s%s"= (propertize (concat ... ":") 'face 'bold) (cadr x)))) (with-slots (organiz= er summary description location recur uid method rsvp participation-type) e= vent (let ((headers `...)) (when (and (not ...) rsvp) (setq headers (append= headers ...))) (concat (mapconcat #'format-header headers "\n") "\n\n" des= cription)))))) #(#) 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 dat= a from the byte compiler." #) "gnus/gnus-icalen= dar.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" "b= atch-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 --=-=-= Content-Type: text/plain -- Michael Welsh Duggan (md5i@md5i.com) --=-=-=--