From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Ihor Radchenko Newsgroups: gmane.emacs.devel Subject: Re: The poor quality of Emacs's backtraces Date: Mon, 17 Jul 2023 19:50:50 +0000 Message-ID: <87wmyy2u79.fsf@localhost> References: <3D901B62-4826-4783-B684-968E6890E75A@gmail.com> <6CB5E709-8F5A-4015-9F2C-337A87916C66@gmail.com> <909FC7C1-5473-4746-97E4-B067E6C2B271@gmail.com> <5382C438-D871-4C79-820C-DCA17C59CBCA@gmail.com> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="39442"; mail-complaints-to="usenet@ciao.gmane.io" Cc: Mattias =?utf-8?Q?Engdeg=C3=A5rd?= , emacs-devel To: Alan Mackenzie Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Mon Jul 17 21:51:44 2023 Return-path: Envelope-to: ged-emacs-devel@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 1qLUG0-000A5T-Ay for ged-emacs-devel@m.gmane-mx.org; Mon, 17 Jul 2023 21:51:44 +0200 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1qLUFB-0008Rm-Rk; Mon, 17 Jul 2023 15:50:53 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qLUFA-0008Pv-BM for emacs-devel@gnu.org; Mon, 17 Jul 2023 15:50:52 -0400 Original-Received: from mout02.posteo.de ([185.67.36.66]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qLUF6-0007z8-95 for emacs-devel@gnu.org; Mon, 17 Jul 2023 15:50:52 -0400 Original-Received: from submission (posteo.de [185.67.36.169]) by mout02.posteo.de (Postfix) with ESMTPS id A6E87240101 for ; Mon, 17 Jul 2023 21:50:44 +0200 (CEST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=posteo.net; s=2017; t=1689623444; bh=PaIOOhAxwLTRIlVPPQBK/wni9neCK6IifG2KM9iz658=; h=From:To:Cc:Subject:Date:Message-ID:MIME-Version: Content-Transfer-Encoding:From; b=O0N8v38iCIctls3cEoSob85Utu35Fpr4/iLabbl3DVE5iquOtMtrr4ZRaawc2l1bv YsC1WqVuv/s1n3F1/3Uv7k3wi3lAPSbqw1DMCYaxEJKYBIa1tV3dXB0s35IFZ7GSnY DfD8SlHBzjqg9B2KFeLxgXRKUnybWbJ2bDO64RiaMOe+yuH3/hYuIZVnjOvHlmHQm9 N8IORtBjW8S5ndYpsi/lYYXAdJNYJcn4iX8YX4mvHblVdLHGerIojAfTVv0aXJnM9Q ugIHseJO8WOAtKygjJC63tgqU432aLOvNEEAPX99j7iR3JsQUrYtX0XG715/ylIavY zYjXI3BZs/7Wg== Original-Received: from customer (localhost [127.0.0.1]) by submission (posteo.de) with ESMTPSA id 4R4XkW5Y8sz9rxF; Mon, 17 Jul 2023 21:50:43 +0200 (CEST) In-Reply-To: Received-SPF: pass client-ip=185.67.36.66; envelope-from=yantar92@posteo.net; helo=mout02.posteo.de X-Spam_score_int: -43 X-Spam_score: -4.4 X-Spam_bar: ---- X-Spam_report: (-4.4 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, RCVD_IN_DNSWL_MED=-2.3, RCVD_IN_MSPIKE_H5=0.001, RCVD_IN_MSPIKE_WL=0.001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.devel:307938 Archived-At: Alan Mackenzie writes: > I pushed this working code this morning to the new branch > feature/named-lambdas, precisely to give people something concrete to > study, to criticize, to measure, to improve upon, and possibly to reject. This is curious. I tried to branch and got several native-comp errors: Compiling /home/yantar92/.emacs.d/straight/build/mastodon/mastodon-discover= .el... ------------------ 1 --------------------- Error: invalid-function (#) mapbacktrace(#f(compiled-function (evald func args flags) #)) debug-early-backtrace() debug-early(error (invalid-function #)) or("mute") cl-typep("mute" or) {comp-cstr-intersection-homogeneous} #f(compiled-function (type) #)(or) cl-some({comp-cstr-intersection-homogeneous} #f(compiled-function (type) = #) (or)) {comp-cstr-intersection-homogeneous} #f(compiled-function (s) #)(#s(comp-cstr :typeset (or) :valset nil :range nil :ne= g nil)) cl-every({comp-cstr-intersection-homogeneous} #f(compiled-function (s) #<= bytecode -0x14d78a424f8a3836>) (#s(comp-cstr :typeset (or) :valset nil :ran= ge nil :neg nil))) comp-cstr-intersection-homogeneous(#s(comp-cstr :typeset nil :valset nil = :range nil :neg nil) #s(comp-mvar :typeset nil :valset ("mute" "unmute") :r= ange nil :neg nil :id 23720124801038 :slot 2) #s(comp-mvar :typeset nil :va= lset ("mute" "unmute") :range nil :neg nil :id 23720124801038 :slot 2) #s(c= omp-cstr :typeset (or) :valset nil :range nil :neg nil)) apply(comp-cstr-intersection-homogeneous #s(comp-cstr :typeset nil :valse= t nil :range nil :neg nil) (#s(comp-mvar :typeset nil :valset ("mute" "unmu= te") :range nil :neg nil :id 23720124801038 :slot 2) #s(comp-mvar :typeset = nil :valset ("mute" "unmute") :range nil :neg nil :id 23720124801038 :slot = 2) #s(comp-cstr :typeset (or) :valset nil :range nil :neg nil))) comp-cstr-intersection-no-mem(#s(comp-mvar :typeset nil :valset ("mute" "= unmute") :range nil :neg nil :id 23720124801038 :slot 2) #s(comp-mvar :type= set nil :valset ("mute" "unmute") :range nil :neg nil :id 23720124801038 :s= lot 2) #s(comp-cstr :typeset (or) :valset nil :range nil :neg nil)) comp-cstr-intersection(#s(comp-mvar :typeset (t) :valset nil :range nil := neg nil :id 23720128370982 :slot 2) #s(comp-mvar :typeset nil :valset ("mut= e" "unmute") :range nil :neg nil :id 23720124801038 :slot 2) #s(comp-mvar := typeset nil :valset ("mute" "unmute") :range nil :neg nil :id 2372012480103= 8 :slot 2) #s(comp-cstr :typeset (or) :valset nil :range nil :neg nil)) comp-fwprop-insn((assume #s(comp-mvar :typeset (t) :valset nil :range nil= :neg nil :id 23720128370982 :slot 2) (and #s(comp-mvar :typeset nil :valse= t ("mute" "unmute") :range nil :neg nil :id 23720124801038 :slot 2) #s(comp= -mvar :typeset nil :valset ("mute" "unmute") :range nil :neg nil :id 237201= 24801038 :slot 2) #s(comp-cstr :typeset (or) :valset nil :range nil :neg ni= l)))) {comp-fwprop*} #f(compiled-function (--cl-var-- b) #)(bb_10 #s(comp-block-lap :name bb_10 :insns ((assume #s(comp-mvar= :typeset nil :valset (nil) :range nil :neg t :id nil :slot nil) (not #s(co= mp-mvar :typeset nil :valset (nil) :range nil :neg nil :id nil :slot nil)))= (comment "optimized out: (assume #s(comp-mvar (t) nil nil nil 237201301345= 84 6) (and #s(comp-mvar (t) nil nil nil 23720129916830 6) #s(comp-mvar (t) = nil nil nil nil nil)))") (comment "LAP TAG 74") (setimm #s(comp-mvar :types= et nil :valset (y-or-n-p) :range nil :neg nil :id 23720129100886 :slot 6) y= -or-n-p) (comment "optimized out: (setimm #s(comp-mvar (t) nil nil nil 2372= 0125063692 7) format)") (setimm #s(comp-mvar :typeset nil :valset ("%s this= thread? ") :range nil :neg nil :id 23720125752698 :slot 8) "%s this thread= ? ") (comment "optimized out: (setimm #s(comp-mvar (t) nil nil nil 23720124= 108522 9) capitalize)") (set #s(comp-mvar :typeset nil :valset ("mute" "unm= ute") :range nil :neg nil :id 23720128569294 :slot 10) #s(comp-mvar :typese= t nil :valset ("mute" "unmute") :range nil :neg nil :id 23720124801038 :slo= t 2)) (set #s(comp-mvar :typeset (string) :valset nil :range ((- . +)) :neg= nil :id 23720128124550 :slot 9) (call capitalize #s(comp-mvar :typeset nil= :valset ("mute" "unmute") :range nil :neg nil :id 23720128569294 :slot 10)= )) (assume #s(comp-mvar :typeset (t) :valset nil :range nil :neg nil :id 23= 720128370982 :slot 2) (and #s(comp-mvar :typeset nil :valset ("mute" "unmut= e") :range nil :neg nil :id 23720124801038 :slot 2) #s(comp-mvar :typeset n= il :valset ("mute" "unmute") :range nil :neg nil :id 23720124801038 :slot 2= ) #s(comp-cstr :typeset (or) :valset nil :range nil :neg nil))) (set #s(com= p-mvar :typeset (t) :valset nil :range nil :neg nil :id 23720127813196 :slo= t 7) (callref format #s(comp-mvar :typeset nil :valset ("%s this thread? ")= :range nil :neg nil :id 23720125752698 :slot 8) #s(comp-mvar :typeset (str= ing) :valset nil :range ((- . +)) :neg nil :id 23720128124550 :slot 9))) (s= et #s(comp-mvar :typeset (t) :valset nil :range nil :neg nil :id 2372012548= 0602 :slot 6) (callref funcall #s(comp-mvar :typeset nil :valset (y-or-n-p)= :range nil :neg nil :id 23720129100886 :slot 6) #s(comp-mvar :typeset (t) = :valset nil :range nil :neg nil :id 23720127813196 :slot 7))) (cond-jump #s= (comp-mvar :typeset (t) :valset nil :range nil :neg nil :id 23720125480602 = :slot 6) #s(comp-mvar :typeset nil :valset (nil) :range nil :neg nil :id ni= l :slot nil) bb_12_cstrs_0 bb_11)) :closed t :in-edges (#s(comp-edge :src #= s(comp-block-lap :name bb_8 :insns ((phi #s(comp-mvar :typeset (t) :valset = nil :range nil :neg nil :id 23720132853942 :slot 6) (#s(comp-mvar :typeset = (t) :valset nil :range nil :neg nil :id 23720127975326 :slot 6) bb_6) (#s(c= omp-mvar :typeset (t) :valset nil :range nil :neg nil :id 23720132086474 :s= lot 6) bb_7)) (phi #s(comp-mvar :typeset nil :valset (base-toot-id) :range = ((2 . 2)) :neg nil :id 23720132568066 :slot 5) (#s(comp-mvar :typeset nil := valset (base-toot-id) :range nil :neg nil :id 23720135050654 :slot 5) bb_6)= (#s(comp-mvar :typeset nil :valset nil :range ((2 . 2)) :neg nil :id 23720= 129369734 :slot 5) bb_7)) (phi #s(comp-mvar :typeset (t) :valset nil :range= nil :neg nil :id 23720131939414 :slot 4) (#s(comp-mvar :typeset (t) :valse= t nil :range nil :neg nil :id 23720125798048 :slot 4) bb_6) (#s(comp-mvar := typeset (t) :valset nil :range nil :neg nil :id 23720133702914 :slot 4) bb_= 7)) (phi #s(comp-mvar :typeset (t) :valset nil :range nil :neg nil :id 2372= 0131516902 :slot 3) (#s(comp-mvar :typeset (t) :valset nil :range nil :neg = nil :id 23720134204414 :slot 3) bb_6) (#s(comp-mvar :typeset (t) :valset ni= l :range nil :neg nil :id 23720129756462 :slot 3) bb_7)) (comment "LAP TAG = 55") (setimm #s(comp-mvar :typeset nil :valset (mastodon-tl--user-in-thread= -p) :range nil :neg nil :id 23720130022614 :slot 4) mastodon-tl--user-in-th= read-p) (set #s(comp-mvar :typeset (t) :valset nil :range nil :neg nil :id = 23720129455914 :slot 5) #s(comp-mvar :typeset (t) :valset nil :range nil :n= eg nil :id 23720131516902 :slot 3)) (set #s(comp-mvar :typeset (t) :valset = nil :range nil :neg nil :id 23720124677586 :slot 4) (callref funcall #s(com= p-mvar :typeset nil :valset (mastodon-tl--user-in-thread-p) :range nil :neg= nil :id 23720130022614 :slot 4) #s(comp-mvar :typeset (t) :valset nil :ran= ge nil :neg nil :id 23720129455914 :slot 5))) (setimm #s(comp-mvar :typeset= nil :valset (mastodon-http--api) :range nil :neg nil :id 23720126575366 :s= lot 5) mastodon-http--api) (comment "optimized out: (setimm #s(comp-mvar (t= ) nil nil nil 23720128149454 6) format)") (setimm #s(comp-mvar :typeset nil= :valset ("statuses/%s/%s") :range nil :neg nil :id 23720131411514 :slot 7)= "statuses/%s/%s") (set #s(comp-mvar :typeset (t) :valset nil :range nil :n= eg nil :id 23720132349698 :slot 8) #s(comp-mvar :typeset (t) :valset nil :r= ange nil :neg nil :id 23720131516902 :slot 3)) (set #s(comp-mvar :typeset n= il :valset ("mute" "unmute") :range nil :neg nil :id 23720131514304 :slot 9= ) #s(comp-mvar :typeset nil :valset ("mute" "unmute") :range nil :neg nil := id 23720124801038 :slot 2)) (set #s(comp-mvar :typeset (string) :valset nil= :range nil :neg nil :id 23720135345664 :slot 6) (callref format #s(comp-mv= ar :typeset nil :valset ("statuses/%s/%s") :range nil :neg nil :id 23720131= 411514 :slot 7) #s(comp-mvar :typeset (t) :valset nil :range nil :neg nil := id 23720132349698 :slot 8) #s(comp-mvar :typeset nil :valset ("mute" "unmut= e") :range nil :neg nil :id 23720131514304 :slot 9))) (set #s(comp-mvar :ty= peset (t) :valset nil :range nil :neg nil :id 23720136244128 :slot 5) (call= ref funcall #s(comp-mvar :typeset nil :valset (maCompiling /home/yantar92/.= emacs.d/straight/build/mastodon/mastodon-client.el... --------------------- 2 ------------------------- Error: wrong-type-argument (listp esf-every-pred) Compiling /home/yantar92/.emacs.d/straight/build/highlight-parentheses/high= light-parentheses.el... mapbacktrace(#f(compiled-function (evald func args flags) #)) debug-early-backtrace() debug-early(error (wrong-type-argument listp esf-every-pred)) cl--sm-macroexpand-1(# #'(lambda (G0 . esf-every-pred= ) (x) (progn (macroexp--funcall-if-compiled '{macroexp--warn-wrap} #f(compi= led-function () #)) (let* ((ret nil) (--cl-var= -- (symbol-value G0)) (p nil) (--cl-var-- t) --cl-var--) (while (and (consp= --cl-var--) (progn (setq p (car --cl-var--)) (setq ret (funcall p x)) (if = ret t (progn (setq --cl-var-- nil) (setq --cl-var-- nil))))) (setq --cl-var= -- (cdr --cl-var--))) (if --cl-var-- (progn ret) --cl-var--)))) ((:cl-symbo= l-macros (preds (symbol-value --cl-preds--))) (function . cl--function-conv= ert) (esf-konstantly . {esf-konstantly} #f(compiled-function (v) #)) (declare-function . byte-compile-macroexpand-declare= -function) (eval-when-compile . {byte-compile-initial-macro-environment} #f= (compiled-function (&rest body) #)) (eval-and-= compile . {byte-compile-initial-macro-environment} #f(compiled-function (&r= est body) #)) (with-suppressed-warnings . {byt= e-compile-initial-macro-environment} #f(compiled-function (warnings &rest b= ody) #)))) apply(cl--sm-macroexpand-1 # (#'(lambda (G0 . esf-eve= ry-pred) (x) (progn (macroexp--funcall-if-compiled '{macroexp--warn-wrap} #= f(compiled-function () #)) (let* ((ret nil) (-= -cl-var-- (symbol-value G0)) (p nil) (--cl-var-- t) --cl-var--) (while (and= (consp --cl-var--) (progn (setq p (car --cl-var--)) (setq ret (funcall p x= )) (if ret t (progn (setq --cl-var-- nil) (setq --cl-var-- nil))))) (setq -= -cl-var-- (cdr --cl-var--))) (if --cl-var-- (progn ret) --cl-var--)))) ((:c= l-symbol-macros (preds (symbol-value --cl-preds--))) (function . cl--functi= on-convert) (esf-konstantly . {esf-konstantly} #f(compiled-function (v) #)) (declare-function . byte-compile-macroexpand-= declare-function) (eval-when-compile . {byte-compile-initial-macro-environm= ent} #f(compiled-function (&rest body) #)) (ev= al-and-compile . {byte-compile-initial-macro-environment} #f(compiled-funct= ion (&rest body) #)) (with-suppressed-warnings= . {byte-compile-initial-macro-environment} #f(compiled-function (warnings = &rest body) #))))) macroexpand-1(#'(lambda (G0 . esf-every-pred) (x) (progn (macroexp--funca= ll-if-compiled '{macroexp--warn-wrap} #f(compiled-function () #)) (let* ((ret nil) (--cl-var-- (symbol-value G0)) (p nil)= (--cl-var-- t) --cl-var--) (while (and (consp --cl-var--) (progn (setq p (= car --cl-var--)) (setq ret (funcall p x)) (if ret t (progn (setq --cl-var--= nil) (setq --cl-var-- nil))))) (setq --cl-var-- (cdr --cl-var--))) (if --c= l-var-- (progn ret) --cl-var--)))) ((:cl-symbol-macros (preds (symbol-value= --cl-preds--))) (function . cl--function-convert) (esf-konstantly . {esf-k= onstantly} #f(compiled-function (v) #)) (decla= re-function . byte-compile-macroexpand-declare-function) (eval-when-compile= . {byte-compile-initial-macro-environment} #f(compiled-function (&rest bod= y) #)) (eval-and-compile . {byte-compile-initi= al-macro-environment} #f(compiled-function (&rest body) #)) (with-suppressed-warnings . {byte-compile-initial-macro-envir= onment} #f(compiled-function (warnings &rest body) #)))) cl--sm-macroexpand(#'(lambda (G0 . esf-every-pred) (x) (progn (macroexp--= funcall-if-compiled '{macroexp--warn-wrap} #f(compiled-function () #)) (let* ((ret nil) (--cl-var-- (symbol-value G0)) (p= nil) (--cl-var-- t) --cl-var--) (while (and (consp --cl-var--) (progn (set= q p (car --cl-var--)) (setq ret (funcall p x)) (if ret t (progn (setq --cl-= var-- nil) (setq --cl-var-- nil))))) (setq --cl-var-- (cdr --cl-var--))) (i= f --cl-var-- (progn ret) --cl-var--)))) ((:cl-symbol-macros (preds (symbol-= value --cl-preds--))) (function . cl--function-convert) (esf-konstantly . {= esf-konstantly} #f(compiled-function (v) #)) (= declare-function . byte-compile-macroexpand-declare-function) (eval-when-co= mpile . {byte-compile-initial-macro-environment} #f(compiled-function (&res= t body) #)) (eval-and-compile . {byte-compile-= initial-macro-environment} #f(compiled-function (&rest body) #)) (with-suppressed-warnings . {byte-compile-initial-macro-= environment} #f(compiled-function (warnings &rest body) #)))) apply(cl--sm-macroexpand (#'(lambda (G0 . esf-every-pred) (x) (progn (mac= roexp--funcall-if-compiled '{macroexp--warn-wrap} #f(compiled-function () #= )) (let* ((ret nil) (--cl-var-- (symbol-value = G0)) (p nil) (--cl-var-- t) --cl-var--) (while (and (consp --cl-var--) (pro= gn (setq p (car --cl-var--)) (setq ret (funcall p x)) (if ret t (progn (set= q --cl-var-- nil) (setq --cl-var-- nil))))) (setq --cl-var-- (cdr --cl-var-= -))) (if --cl-var-- (progn ret) --cl-var--)))) ((:cl-symbol-macros (preds (= symbol-value --cl-preds--))) (function . cl--function-convert) (esf-konstan= tly . {esf-konstantly} #f(compiled-function (v) #)) (declare-function . byte-compile-macroexpand-declare-function) (eval-= when-compile . {byte-compile-initial-macro-environment} #f(compiled-functio= n (&rest body) #)) (eval-and-compile . {byte-c= ompile-initial-macro-environment} #f(compiled-function (&rest body) #)) (with-suppressed-warnings . {byte-compile-initial= -macro-environment} #f(compiled-function (warnings &rest body) #))))) macroexpand(#'(lambda (G0 . esf-every-pred) (x) (progn (macroexp--funcall= -if-compiled '{macroexp--warn-wrap} #f(compiled-function () #)) (let* ((ret nil) (--cl-var-- (symbol-value G0)) (p nil) (= --cl-var-- t) --cl-var--) (while (and (consp --cl-var--) (progn (setq p (ca= r --cl-var--)) (setq ret (funcall p x)) (if ret t (progn (setq --cl-var-- n= il) (setq --cl-var-- nil))))) (setq --cl-var-- (cdr --cl-var--))) (if --cl-= var-- (progn ret) --cl-var--)))) ((:cl-symbol-macros (preds (symbol-value -= -cl-preds--))) (function . cl--function-convert) (esf-konstantly . {esf-kon= stantly} #f(compiled-function (v) #)) (declare= -function . byte-compile-macroexpand-declare-function) (eval-when-compile .= {byte-compile-initial-macro-environment} #f(compiled-function (&rest body)= #)) (eval-and-compile . {byte-compile-initial= -macro-environment} #f(compiled-function (&rest body) #)) (with-suppressed-warnings . {byte-compile-initial-macro-environ= ment} #f(compiled-function (warnings &rest body) #)))) macroexp-macroexpand(#'(lambda (G0 . esf-every-pred) (x) (progn (macroexp= --funcall-if-compiled '{macroexp--warn-wrap} #f(compiled-function () #)) (let* ((ret nil) (--cl-var-- (symbol-value G0)) = (p nil) (--cl-var-- t) --cl-var--) (while (and (consp --cl-var--) (progn (s= etq p (car --cl-var--)) (setq ret (funcall p x)) (if ret t (progn (setq --c= l-var-- nil) (setq --cl-var-- nil))))) (setq --cl-var-- (cdr --cl-var--))) = (if --cl-var-- (progn ret) --cl-var--)))) ((:cl-symbol-macros (preds (symbo= l-value --cl-preds--))) (function . cl--function-convert) (esf-konstantly .= {esf-konstantly} #f(compiled-function (v) #))= (declare-function . byte-compile-macroexpand-declare-function) (eval-when-= compile . {byte-compile-initial-macro-environment} #f(compiled-function (&r= est body) #)) (eval-and-compile . {byte-compil= e-initial-macro-environment} #f(compiled-function (&rest body) #)) (with-suppressed-warnings . {byte-compile-initial-macr= o-environment} #f(compiled-function (warnings &rest body) #)))) macroexp--expand-all(#'(lambda (G0 . esf-every-pred) (x) (progn (macroexp= --funcall-if-compiled '{macroexp--warn-wrap} #f(compiled-function () #)) (let* ((ret nil) (--cl-var-- (symbol-value G0)) = (p nil) (--cl-var-- t) --cl-var--) (while (and (consp --cl-var--) (progn (s= etq p (car --cl-var--)) (setq ret (funcall p x)) (if ret t (progn (setq --c= l-var-- nil) (setq --cl-var-- nil))))) (setq --cl-var-- (cdr --cl-var--))) = (if --cl-var-- (progn ret) --cl-var--))))) macroexp--all-forms((list 'function #'(lambda (G0 . esf-every-pred) (x) (= progn (macroexp--funcall-if-compiled '{macroexp--warn-wrap} #f(compiled-fun= ction () #)) (let* ((ret nil) (--cl-var-- (sym= bol-value G0)) (p nil) (--cl-var-- t) --cl-var--) (while (and (consp --cl-v= ar--) (progn (setq p (car --cl-var--)) (setq ret (funcall p x)) (if ret t (= progn (setq --cl-var-- nil) (setq --cl-var-- nil))))) (setq --cl-var-- (cdr= --cl-var--))) (if --cl-var-- (progn ret) --cl-var--))))) 1) macroexp--expand-all((list 'function #'(lambda (G0 . esf-every-pred) (x) = (progn (macroexp--funcall-if-compiled '{macroexp--warn-wrap} #f(compiled-fu= nction () #)) (let* ((ret nil) (--cl-var-- (sy= mbol-value G0)) (p nil) (--cl-var-- t) --cl-var--) (while (and (consp --cl-= var--) (progn (setq p (car --cl-var--)) (setq ret (funcall p x)) (if ret t = (progn (setq --cl-var-- nil) (setq --cl-var-- nil))))) (setq --cl-var-- (cd= r --cl-var--))) (if --cl-var-- (progn ret) --cl-var--)))))) macroexp--all-forms((list 'apply (list 'function #'(lambda (G0 . esf-ever= y-pred) (x) (progn (macroexp--funcall-if-compiled '{macroexp--warn-wrap} #f= (compiled-function () #)) (let* ((ret nil) (--= cl-var-- (symbol-value G0)) (p nil) (--cl-var-- t) --cl-var--) (while (and = (consp --cl-var--) (progn (setq p (car --cl-var--)) (setq ret (funcall p x)= ) (if ret t (progn (setq --cl-var-- nil) (setq --cl-var-- nil))))) (setq --= cl-var-- (cdr --cl-var--))) (if --cl-var-- (progn ret) --cl-var--))))) (lis= t 'quote --cl-preds--) '--cl-rest--) 1) macroexp--expand-all((list 'apply (list 'function #'(lambda (G0 . esf-eve= ry-pred) (x) (progn (macroexp--funcall-if-compiled '{macroexp--warn-wrap} #= f(compiled-function () #)) (let* ((ret nil) (-= -cl-var-- (symbol-value G0)) (p nil) (--cl-var-- t) --cl-var--) (while (and= (consp --cl-var--) (progn (setq p (car --cl-var--)) (setq ret (funcall p x= )) (if ret t (progn (setq --cl-var-- nil) (setq --cl-var-- nil))))) (setq -= -cl-var-- (cdr --cl-var--))) (if --cl-var-- (progn ret) --cl-var--))))) (li= st 'quote --cl-preds--) '--cl-rest--)) macroexp--all-forms((list 'lambda '(&rest --cl-rest--) (list 'apply (list= 'function #'(lambda (G0 . esf-every-pred) (x) (progn (macroexp--funcall-if= -compiled '{macroexp--warn-wrap} #f(compiled-function () #)) (let* ((ret nil) (--cl-var-- (symbol-value G0)) (p nil) (--c= l-var-- t) --cl-var--) (while (and (consp --cl-var--) (progn (setq p (car -= -cl-var--)) (setq ret (funcall p x)) (if ret t (progn (setq --cl-var-- nil)= (setq --cl-var-- nil))))) (setq --cl-var-- (cdr --cl-var--))) (if --cl-var= -- (progn ret) --cl-var--))))) (list 'quote --cl-preds--) '--cl-rest--)) 1) macroexp--expand-all((lambda (x) (loop with ret =3D nil for p in preds do= (setq ret (funcall p x)) unless ret return nil finally return ret))) macroexpand-all((lambda (x) (loop with ret =3D nil for p in preds do (set= q ret (funcall p x)) unless ret return nil finally return ret)) ((:cl-symbo= l-macros (preds (symbol-value --cl-preds--))) (function . cl--function-conv= ert) (esf-konstantly . {esf-konstantly} #f(compiled-function (v) #)) (declare-function . byte-compile-macroexpand-declare= -function) (eval-when-compile . {byte-compile-initial-macro-environment} #f= (compiled-function (&rest body) #)) (eval-and-= compile . {byte-compile-initial-macro-environment} #f(compiled-function (&r= est body) #)) (with-suppressed-warnings . {byt= e-compile-initial-macro-environment} #f(compiled-function (warnings &rest b= ody) #)))) {cl-symbol-macrolet} #f(compiled-function (arg1 &rest rest) "Make symbol = macro definitions.\nWithin the body FORMs, references to the variable NAME = will be replaced\nby EXPANSION, and (setq NAME ...) will act like (setf EXP= ANSION ...)." #)(((preds (symbol-value --cl-pre= ds--))) (lambda (x) (loop with ret =3D nil for p in preds do (setq ret (fun= call p x)) unless ret return nil finally return ret))) macroexpand((cl-symbol-macrolet ((preds (symbol-value --cl-preds--))) (la= mbda (x) (loop with ret =3D nil for p in preds do (setq ret (funcall p x)) = unless ret return nil finally return ret))) ((function . cl--function-conve= rt) (esf-konstantly . {esf-konstantly} #f(compiled-function (v) #)) (declare-function . byte-compile-macroexpand-declare-= function) (eval-when-compile . {byte-compile-initial-macro-environment} #f(= compiled-function (&rest body) #)) (eval-and-c= ompile . {byte-compile-initial-macro-environment} #f(compiled-function (&re= st body) #)) (with-suppressed-warnings . {byte= -compile-initial-macro-environment} #f(compiled-function (warnings &rest bo= dy) #)))) macroexp-macroexpand((cl-symbol-macrolet ((preds (symbol-value --cl-preds= --))) (lambda (x) (loop with ret =3D nil for p in preds do (setq ret (funca= ll p x)) unless ret return nil finally return ret))) ((function . cl--funct= ion-convert) (esf-konstantly . {esf-konstantly} #f(compiled-function (v) #<= bytecode 0x19624eb9d4f19835>)) (declare-function . byte-compile-macroexpand= -declare-function) (eval-when-compile . {byte-compile-initial-macro-environ= ment} #f(compiled-function (&rest body) #)) (e= val-and-compile . {byte-compile-initial-macro-environment} #f(compiled-func= tion (&rest body) #)) (with-suppressed-warning= s . {byte-compile-initial-macro-environment} #f(compiled-function (warnings= &rest body) #)))) macroexp--expand-all((cl-symbol-macrolet ((preds (symbol-value --cl-preds= --))) (lambda (x) (loop with ret =3D nil for p in preds do (setq ret (funca= ll p x)) unless ret return nil finally return ret)))) macroexpand-all((cl-symbol-macrolet ((preds (symbol-value --cl-preds--)))= (lambda (x) (loop with ret =3D nil for p in preds do (setq ret (funcall p = x)) unless ret return nil finally return ret))) ((function . cl--function-c= onvert) (esf-konstantly . {esf-konstantly} #f(compiled-function (v) #)) (declare-function . byte-compile-macroexpand-decl= are-function) (eval-when-compile . {byte-compile-initial-macro-environment}= #f(compiled-function (&rest body) #)) (eval-a= nd-compile . {byte-compile-initial-macro-environment} #f(compiled-function = (&rest body) #)) (with-suppressed-warnings . {= byte-compile-initial-macro-environment} #f(compiled-function (warnings &res= t body) #)))) {lexical-let} #f(compiled-function (bindings body) "Like `let', but lexic= ally scoped.\nThe main visible difference is that lambdas inside BODY will = create\nlexical closures as in Common Lisp." #)(((preds preds)) (lambda (x) (loop with ret =3D nil for p in preds do (se= tq ret (funcall p x)) unless ret return nil finally return ret))) macroexpand((lexical-let ((preds preds)) (lambda (x) (loop with ret =3D n= il for p in preds do (setq ret (funcall p x)) unless ret return nil finally= return ret))) ((esf-konstantly . {esf-konstantly} #f(compiled-function (v)= #)) (declare-function . byte-compile-macroexp= and-declare-function) (eval-when-compile . {byte-compile-initial-macro-envi= ronment} #f(compiled-function (&rest body) #))= (eval-and-compile . {byte-compile-initial-macro-environment} #f(compiled-f= unction (&rest body) #)) (with-suppressed-warn= ings . {byte-compile-initial-macro-environment} #f(compiled-function (warni= ngs &rest body) #)))) macroexp-macroexpand((lexical-let ((preds preds)) (lambda (x) (loop with = ret =3D nil for p in preds do (setq ret (funcall p x)) unless ret return ni= l finally return ret))) ((esf-konstantly . {esf-konstantly} #f(compiled-fun= ction (v) #)) (declare-function . byte-compile= -macroexpand-declare-function) (eval-when-compile . {byte-compile-initial-m= acro-environment} #f(compiled-function (&rest body) #)) (eval-and-compile . {byte-compile-initial-macro-environment} #f(c= ompiled-function (&rest body) #)) (with-suppre= ssed-warnings . {byte-compile-initial-macro-environment} #f(compiled-functi= on (warnings &rest body) #)))) macroexp--expand-all((lexical-let ((preds preds)) (lambda (x) (loop with = ret =3D nil for p in preds do (setq ret (funcall p x)) unless ret return ni= l finally return ret)))) macroexp--all-forms({esf-every-pred} (lambda esf-every-pred (&rest preds)= (lexical-let ((preds preds)) (lambda (x) (loop with ret =3D nil for p in p= reds do (setq ret (funcall p x)) unless ret return nil finally return ret))= )) 3) macroexp--expand-all(#'{esf-every-pred} (lambda esf-every-pred (&rest pre= ds) (lexical-let ((preds preds)) (lambda (x) (loop with ret =3D nil for p i= n preds do (setq ret (funcall p x)) unless ret return nil finally return re= t))))) macroexp--all-forms((defalias 'esf-every-pred #'{esf-every-pred} (lambda = esf-every-pred (&rest preds) (lexical-let ((preds preds)) (lambda (x) (loop= with ret =3D nil for p in preds do (setq ret (funcall p x)) unless ret ret= urn nil finally return ret))))) 1) macroexp--expand-all((defalias 'esf-every-pred #'{esf-every-pred} (lambda= esf-every-pred (&rest preds) (lexical-let ((preds preds)) (lambda (x) (loo= p with ret =3D nil for p in preds do (setq ret (funcall p x)) unless ret re= turn nil finally return ret)))))) macroexpand-all((defalias 'esf-every-pred #'{esf-every-pred} (lambda esf-= every-pred (&rest preds) (lexical-let ((preds preds)) (lambda (x) (loop wit= h ret =3D nil for p in preds do (setq ret (funcall p x)) unless ret return = nil finally return ret))))) ((esf-konstantly . {esf-konstantly} #f(compiled= -function (v) #)) (declare-function . byte-com= pile-macroexpand-declare-function) (eval-when-compile . {byte-compile-initi= al-macro-environment} #f(compiled-function (&rest body) #)) (eval-and-compile . {byte-compile-initial-macro-environment} = #f(compiled-function (&rest body) #)) (with-su= ppressed-warnings . {byte-compile-initial-macro-environment} #f(compiled-fu= nction (warnings &rest body) #)))) byte-compile-preprocess((defalias 'esf-every-pred #'{esf-every-pred} (lam= bda esf-every-pred (&rest preds) (lexical-let ((preds preds)) (lambda (x) (= loop with ret =3D nil for p in preds do (setq ret (funcall p x)) unless ret= return nil finally return ret))))) t) #((defalias '= esf-every-pred #'{esf-every-pred} (lambda esf-every-pred (&rest preds) (lex= ical-let ((preds preds)) (lambda (x) (loop with ret =3D nil for p in preds = do (setq ret (funcall p x)) unless ret return nil finally return ret)))))) byte-compile-recurse-toplevel((defun esf-every-pred (&rest preds) (lexica= l-let ((preds preds)) (lambda (x) (loop with ret =3D nil for p in preds do = (setq ret (funcall p x)) unless ret return nil finally return ret)))) #) byte-compile-toplevel-file-form((defun esf-every-pred (&rest preds) (lexi= cal-let ((preds preds)) (lambda (x) (loop with ret =3D nil for p in preds d= o (setq ret (funcall p x)) unless ret return nil finally return ret))))) #(#) byte-compile-from-buffer(#) byte-compile-file("/home/yantar92/.emacs.d/straight/build/eval-sexp-fu/ev= al-sexp-fu.el") {comp-spill-lap-function} #f(compiled-function (filename) "Byte-compile F= ILENAME, spilling data from the byte compiler." #)("/home/yantar92/.emacs.d/straight/build/eval-sexp-fu/eval-sexp-fu.el") apply({comp-spill-lap-function} #f(compiled-function (filename) "Byte-com= pile FILENAME, spilling data from the byte compiler." #) "/home/yantar92/.emacs.d/straight/build/eval-sexp-fu/eval-sexp-fu= .el" nil) comp-spill-lap-function("/home/yantar92/.emacs.d/straight/build/eval-sexp= -fu/eval-sexp-fu.el") comp-spill-lap("/home/yantar92/.emacs.d/straight/build/eval-sexp-fu/eval-= sexp-fu.el") comp--native-compile("/home/yantar92/.emacs.d/straight/build/eval-sexp-fu= /eval-sexp-fu.el" t) load-with-code-conversion("/tmp/emacs-async-comp-eval-sexp-fu-2WbMdM.el" = "/tmp/emacs-async-comp-eval-sexp-fu-2WbMdM.el" nil t) command-line-1(("--eval" "(setq w32-disable-abort-dialog t)" "-l" "/tmp/e= macs-async-comp-eval-sexp-fu-2WbMdM.el")) command-line() normal-top-level() Wrong type argument: listp, esf-every-pred ----------------------- 3 -------------------- Error: wrong-type-argument (proper-list-p (mode . bug-reference-prog)) mapbacktrace(#f(compiled-function (evald func args flags) #)) debug-early-backtrace() debug-early(error (wrong-type-argument proper-list-p (mode . bug-referenc= e-prog))) cconv-analyze-form((mode . bug-reference-prog) nil) cconv-analyze-form((emacs-lisp-mode (mode . bug-reference-prog) (indent-t= abs-mode) (fill-column . 80)) nil) cconv-analyze-form(((nil (bug-reference-bug-regexp . "\\(\\b\\(?:[Ii]ssue= ?#?\\|[Bb]ug ?#?\\|[Pp]atch ?#\\|RFE ?#\\|PR [a-z+-]+/\\)\\([0-9]+\\(?:#[0= -9]+\\)?\\)\\)") (bug-reference-url-format . "https://github.com/emacs-helm= /helm/issues/%s") (byte-compile-warnings not obsolete docstrings docstrings= -non-ascii-quotes)) (emacs-lisp-mode (mode . bug-reference-prog) (indent-ta= bs-mode) (fill-column . 80))) nil) cconv-closure-convert(((nil (bug-reference-bug-regexp . "\\(\\b\\(?:[Ii]s= sue ?#?\\|[Bb]ug ?#?\\|[Pp]atch ?#\\|RFE ?#\\|PR [a-z+-]+/\\)\\([0-9]+\\(?:= #[0-9]+\\)?\\)\\)") (bug-reference-url-format . "https://github.com/emacs-h= elm/helm/issues/%s") (byte-compile-warnings not obsolete docstrings docstri= ngs-non-ascii-quotes)) (emacs-lisp-mode (mode . bug-reference-prog) (indent= -tabs-mode) (fill-column . 80))) nil) byte-compile-preprocess(((nil (bug-reference-bug-regexp . "\\(\\b\\(?:[Ii= ]ssue ?#?\\|[Bb]ug ?#?\\|[Pp]atch ?#\\|RFE ?#\\|PR [a-z+-]+/\\)\\([0-9]+\\(= ?:#[0-9]+\\)?\\)\\)") (bug-reference-url-format . "https://github.com/emacs= -helm/helm/issues/%s") (byte-compile-warnings not obsolete docstrings docst= rings-non-ascii-quotes)) (emacs-lisp-mode (mode . bug-reference-prog) (inde= nt-tabs-mode) (fill-column . 80))) t) #(((nil (bug-= reference-bug-regexp . "\\(\\b\\(?:[Ii]ssue ?#?\\|[Bb]ug ?#?\\|[Pp]atch ?#\= \|RFE ?#\\|PR [a-z+-]+/\\)\\([0-9]+\\(?:#[0-9]+\\)?\\)\\)") (bug-reference-= url-format . "https://github.com/emacs-helm/helm/issues/%s") (byte-compile-= warnings not obsolete docstrings docstrings-non-ascii-quotes)) (emacs-lisp-= mode (mode . bug-reference-prog) (indent-tabs-mode) (fill-column . 80)))) byte-compile-recurse-toplevel(((nil (bug-reference-bug-regexp . "\\(\\b\\= (?:[Ii]ssue ?#?\\|[Bb]ug ?#?\\|[Pp]atch ?#\\|RFE ?#\\|PR [a-z+-]+/\\)\\([0-= 9]+\\(?:#[0-9]+\\)?\\)\\)") (bug-reference-url-format . "https://github.com= /emacs-helm/helm/issues/%s") (byte-compile-warnings not obsolete docstrings= docstrings-non-ascii-quotes)) (emacs-lisp-mode (mode . bug-reference-prog)= (indent-tabs-mode) (fill-column . 80))) #) byte-compile-toplevel-file-form(((nil (bug-reference-bug-regexp . "\\(\\b= \\(?:[Ii]ssue ?#?\\|[Bb]ug ?#?\\|[Pp]atch ?#\\|RFE ?#\\|PR [a-z+-]+/\\)\\([= 0-9]+\\(?:#[0-9]+\\)?\\)\\)") (bug-reference-url-format . "https://github.c= om/emacs-helm/helm/issues/%s") (byte-compile-warnings not obsolete docstrin= gs docstrings-non-ascii-quotes)) (emacs-lisp-mode (mode . bug-reference-pro= g) (indent-tabs-mode) (fill-column . 80)))) #(#) byte-compile-from-buffer(#) byte-compile-file("/home/yantar92/.emacs.d/straight/build/helm/.dir-local= s.el") {comp-spill-lap-function} #f(compiled-function (filename) "Byte-compile F= ILENAME, spilling data from the byte compiler." #)("/home/yantar92/.emacs.d/straight/build/helm/.dir-locals.el") apply({comp-spill-lap-function} #f(compiled-function (filename) "Byte-com= pile FILENAME, spilling data from the byte compiler." #) "/home/yantar92/.emacs.d/straight/build/helm/.dir-locals.el" nil) comp-spill-lap-function("/home/yantar92/.emacs.d/straight/build/helm/.dir= -locals.el") comp-spill-lap("/home/yantar92/.emacs.d/straight/build/helm/.dir-locals.e= l") comp--native-compile("/home/yantar92/.emacs.d/straight/build/helm/.dir-lo= cals.el" nil) load-with-code-conversion("/tmp/emacs-async-comp-.dir-locals-lrWjJO.el" "= /tmp/emacs-async-comp-.dir-locals-lrWjJO.el" nil t) command-line-1(("--eval" "(setq w32-disable-abort-dialog t)" "-l" "/tmp/e= macs-async-comp-.dir-locals-lrWjJO.el")) command-line() normal-top-level() Wrong type argument: proper-list-p, (# . #) --=20 Ihor Radchenko // yantar92, Org mode contributor, Learn more about Org mode at . Support Org development at , or support my work at