unknown function symbol in around lsp advice

What did you expect to happen?
lsp mode to activate
What actually happened?
lsp mode fails to load due to missing function symbol in Doom advice.
The function symbol lsp--require-packages is not found at the beginning of that function.
Additional details:

Debugger entered--Lisp error: (void-function lsp--require-packages)
  (lsp--require-packages)
  +lsp-dont-prompt-to-install-servers-maybe-a(#f(compiled-function (&optional arg) "Entry point for the server startup.\nWhen ARG is t the lsp mode will start new language server even if\nthere is language server which can handle current language. When\nARG is nil current file will be opened in multi folder language\nserver if there is such. When `lsp' is called with prefix\nargument ask the user to select which language server to start." (interactive "P") #) nil)
  apply(+lsp-dont-prompt-to-install-servers-maybe-a #f(compiled-function (&optional arg) "Entry point for the server startup.\nWhen ARG is t the lsp mode will start new language server even if\nthere is language server which can handle current language. When\nARG is nil current file will be opened in multi folder language\nserver if there is such. When `lsp' is called with prefix\nargument ask the user to select which language server to start." (interactive "P") #) nil)
  lsp(nil)
  #(lsp nil)
  apply(# (lsp nil))
  funcall-interactively(lsp nil)
  #(lsp record nil)
  apply(# (lsp record nil))
  explain-pause--wrap-call-interactively(# lsp record nil)
  apply(explain-pause--wrap-call-interactively # (lsp record nil))
  call-interactively(lsp record nil)
  command-execute(lsp record)
  counsel-M-x-action("lsp")
  #f(compiled-function (x) #)("lsp")
  ivy-call()
  #f(compiled-function (arg1 arg2 &rest rest) "Read a string in the minibuffer, with completion.\n\nPROMPT is a string, normally ending in a colon and a space.\n`ivy-count-format' is prepended to PROMPT during completion.\n\nCOLLECTION is either a list of strings, a function, an alist, or\na hash table, supplied for `minibuffer-completion-table'.\n\nPREDICATE is applied to filter out the COLLECTION immediately.\nThis argument is for compatibility with `completing-read'.\n\nWhen REQUIRE-MATCH is non-nil, only members of COLLECTION can be\nselected.\n\nIf INITIAL-INPUT is non-nil, then insert that input in the\nminibuffer initially.\n\nHISTORY is a name of a variable to hold the completion session\nhistory.\n\nKEYMAP is composed with `ivy-minibuffer-map'.\n\nPRESELECT, when non-nil, determines which one of the candidates\nmatching INITIAL-INPUT to select initially.  An integer stands\nfor the position of the desired candidate in the collection,\ncounting from zero.  Otherwise, use the first occurrence of\nPRESELECT in the collection.  Comparison is first done with\n`equal'.  If that fails, and when applicable, match PRESELECT as\na regular expression.\n\nDEF is for compatibility with `completing-read'.\n\nUPDATE-FN is called each time the candidate list is re-displayed.\n\nWhen SORT is non-nil, `ivy-sort-functions-alist' determines how\nto sort candidates before displaying them.\n\nACTION is a function to call after selecting a candidate.\nIt takes one argument, the selected candidate. If COLLECTION is\nan alist, the argument is a cons cell, otherwise it's a string.\n\nMULTI-ACTION, when non-nil, is called instead of ACTION when\nthere are marked candidates. It takes the list of candidates as\nits only argument. When it's nil, ACTION is called on each marked\ncandidate.\n\nUNWIND is a function of no arguments to call before exiting.\n\nRE-BUILDER is a function transforming input text into a regex\npattern.\n\nMATCHER is a function which can override how candidates are\nfiltered based on user input.  It takes a regex pattern and a\nlist of candidates, and returns the list of matching candidates.\n\nDYNAMIC-COLLECTION is a boolean specifying whether the list of\ncandidates is updated after each input by calling COLLECTION.\n\nEXTRA-PROPS is a plist that can be used to store\ncollection-specific session-specific data.\n\nCALLER is a symbol to uniquely identify the caller to `ivy-read'.\nIt is used, along with COLLECTION, to determine which\ncustomizations apply to the current completion session." #)("M-x " ("lsp" "getenv" "doom/upgrade" "lsp-restart-workspace" "gdb" "smerge-keep-all" "sh-mode" "org-agenda-mode" "org-mode-restart" "pdf-tools-install" "org-noter-create-skeleton" "org-capture-mode" "text-scale-decrease" "org-gcal-sync-tokens-clear" "org-mode" "org-noter" "helm-bibtex" "org-gcal-sync" "org-time-stamp" "org-id-get-create" "smerge-keep-lower" "text-scale-increase" "org-noter-insert-note" "org-superstar-restart" "org-date-from-calendar" "org-time-stamp-inactive" "cd" "rg" "5x5" "amx" "arp" "dbx" "dig" "erc" "ert" "eww" "ftp" "irc" "jdb" "man" "mpc" "orc" "orn" "oro" "orp" "oru" "pdb" "pwd" "rsh" "sdb" ...) :predicate #f(compiled-function (x) #) :require-match t :history counsel-M-x-history :action counsel-M-x-action :keymap (keymap (67108908 . counsel--info-lookup-symbol) (67108910 . counsel-find-symbol)) :initial-input nil :caller counsel-M-x :sort t)
  apply(#f(compiled-function (arg1 arg2 &rest rest) "Read a string in the minibuffer, with completion.\n\nPROMPT is a string, normally ending in a colon and a space.\n`ivy-count-format' is prepended to PROMPT during completion.\n\nCOLLECTION is either a list of strings, a function, an alist, or\na hash table, supplied for `minibuffer-completion-table'.\n\nPREDICATE is applied to filter out the COLLECTION immediately.\nThis argument is for compatibility with `completing-read'.\n\nWhen REQUIRE-MATCH is non-nil, only members of COLLECTION can be\nselected.\n\nIf INITIAL-INPUT is non-nil, then insert that input in the\nminibuffer initially.\n\nHISTORY is a name of a variable to hold the completion session\nhistory.\n\nKEYMAP is composed with `ivy-minibuffer-map'.\n\nPRESELECT, when non-nil, determines which one of the candidates\nmatching INITIAL-INPUT to select initially.  An integer stands\nfor the position of the desired candidate in the collection,\ncounting from zero.  Otherwise, use the first occurrence of\nPRESELECT in the collection.  Comparison is first done with\n`equal'.  If that fails, and when applicable, match PRESELECT as\na regular expression.\n\nDEF is for compatibility with `completing-read'.\n\nUPDATE-FN is called each time the candidate list is re-displayed.\n\nWhen SORT is non-nil, `ivy-sort-functions-alist' determines how\nto sort candidates before displaying them.\n\nACTION is a function to call after selecting a candidate.\nIt takes one argument, the selected candidate. If COLLECTION is\nan alist, the argument is a cons cell, otherwise it's a string.\n\nMULTI-ACTION, when non-nil, is called instead of ACTION when\nthere are marked candidates. It takes the list of candidates as\nits only argument. When it's nil, ACTION is called on each marked\ncandidate.\n\nUNWIND is a function of no arguments to call before exiting.\n\nRE-BUILDER is a function transforming input text into a regex\npattern.\n\nMATCHER is a function which can override how candidates are\nfiltered based on user input.  It takes a regex pattern and a\nlist of candidates, and returns the list of matching candidates.\n\nDYNAMIC-COLLECTION is a boolean specifying whether the list of\ncandidates is updated after each input by calling COLLECTION.\n\nEXTRA-PROPS is a plist that can be used to store\ncollection-specific session-specific data.\n\nCALLER is a symbol to uniquely identify the caller to `ivy-read'.\nIt is used, along with COLLECTION, to determine which\ncustomizations apply to the current completion session." #) ("M-x " ("lsp" "getenv" "doom/upgrade" "lsp-restart-workspace" "gdb" "smerge-keep-all" "sh-mode" "org-agenda-mode" "org-mode-restart" "pdf-tools-install" "org-noter-create-skeleton" "org-capture-mode" "text-scale-decrease" "org-gcal-sync-tokens-clear" "org-mode" "org-noter" "helm-bibtex" "org-gcal-sync" "org-time-stamp" "org-id-get-create" "smerge-keep-lower" "text-scale-increase" "org-noter-insert-note" "org-superstar-restart" "org-date-from-calendar" "org-time-stamp-inactive" "cd" "rg" "5x5" "amx" "arp" "dbx" "dig" "erc" "ert" "eww" "ftp" "irc" "jdb" "man" "mpc" "orc" "orn" "oro" "orp" "oru" "pdb" "pwd" "rsh" "sdb" ...) :predicate #f(compiled-function (x) #) :require-match t :history counsel-M-x-history :action counsel-M-x-action :keymap (keymap (67108908 . counsel--info-lookup-symbol) (67108910 . counsel-find-symbol)) :initial-input nil :caller counsel-M-x :sort t))
  #f(advice-wrapper :filter-args #f(compiled-function (arg1 arg2 &rest rest) "Read a string in the minibuffer, with completion.\n\nPROMPT is a string, normally ending in a colon and a space.\n`ivy-count-format' is prepended to PROMPT during completion.\n\nCOLLECTION is either a list of strings, a function, an alist, or\na hash table, supplied for `minibuffer-completion-table'.\n\nPREDICATE is applied to filter out the COLLECTION immediately.\nThis argument is for compatibility with `completing-read'.\n\nWhen REQUIRE-MATCH is non-nil, only members of COLLECTION can be\nselected.\n\nIf INITIAL-INPUT is non-nil, then insert that input in the\nminibuffer initially.\n\nHISTORY is a name of a variable to hold the completion session\nhistory.\n\nKEYMAP is composed with `ivy-minibuffer-map'.\n\nPRESELECT, when non-nil, determines which one of the candidates\nmatching INITIAL-INPUT to select initially.  An integer stands\nfor the position of the desired candidate in the collection,\ncounting from zero.  Otherwise, use the first occurrence of\nPRESELECT in the collection.  Comparison is first done with\n`equal'.  If that fails, and when applicable, match PRESELECT as\na regular expression.\n\nDEF is for compatibility with `completing-read'.\n\nUPDATE-FN is called each time the candidate list is re-displayed.\n\nWhen SORT is non-nil, `ivy-sort-functions-alist' determines how\nto sort candidates before displaying them.\n\nACTION is a function to call after selecting a candidate.\nIt takes one argument, the selected candidate. If COLLECTION is\nan alist, the argument is a cons cell, otherwise it's a string.\n\nMULTI-ACTION, when non-nil, is called instead of ACTION when\nthere are marked candidates. It takes the list of candidates as\nits only argument. When it's nil, ACTION is called on each marked\ncandidate.\n\nUNWIND is a function of no arguments to call before exiting.\n\nRE-BUILDER is a function transforming input text into a regex\npattern.\n\nMATCHER is a function which can override how candidates are\nfiltered based on user input.  It takes a regex pattern and a\nlist of candidates, and returns the list of matching candidates.\n\nDYNAMIC-COLLECTION is a boolean specifying whether the list of\ncandidates is updated after each input by calling COLLECTION.\n\nEXTRA-PROPS is a plist that can be used to store\ncollection-specific session-specific data.\n\nCALLER is a symbol to uniquely identify the caller to `ivy-read'.\nIt is used, along with COLLECTION, to determine which\ncustomizations apply to the current completion session." #) ivy-prescient--enable-sort-commands)("M-x " ("lsp" "getenv" "doom/upgrade" "lsp-restart-workspace" "gdb" "smerge-keep-all" "sh-mode" "org-agenda-mode" "org-mode-restart" "pdf-tools-install" "org-noter-create-skeleton" "org-capture-mode" "text-scale-decrease" "org-gcal-sync-tokens-clear" "org-mode" "org-noter" "helm-bibtex" "org-gcal-sync" "org-time-stamp" "org-id-get-create" "smerge-keep-lower" "text-scale-increase" "org-noter-insert-note" "org-superstar-restart" "org-date-from-calendar" "org-time-stamp-inactive" "cd" "rg" "5x5" "amx" "arp" "dbx" "dig" "erc" "ert" "eww" "ftp" "irc" "jdb" "man" "mpc" "orc" "orn" "oro" "orp" "oru" "pdb" "pwd" "rsh" "sdb" ...) :predicate #f(compiled-function (x) #) :require-match t :history counsel-M-x-history :action counsel-M-x-action :keymap (keymap (67108908 . counsel--info-lookup-symbol) (67108910 . counsel-find-symbol)) :initial-input nil :caller counsel-M-x)
  apply(#f(advice-wrapper :filter-args #f(compiled-function (arg1 arg2 &rest rest) "Read a string in the minibuffer, with completion.\n\nPROMPT is a string, normally ending in a colon and a space.\n`ivy-count-format' is prepended to PROMPT during completion.\n\nCOLLECTION is either a list of strings, a function, an alist, or\na hash table, supplied for `minibuffer-completion-table'.\n\nPREDICATE is applied to filter out the COLLECTION immediately.\nThis argument is for compatibility with `completing-read'.\n\nWhen REQUIRE-MATCH is non-nil, only members of COLLECTION can be\nselected.\n\nIf INITIAL-INPUT is non-nil, then insert that input in the\nminibuffer initially.\n\nHISTORY is a name of a variable to hold the completion session\nhistory.\n\nKEYMAP is composed with `ivy-minibuffer-map'.\n\nPRESELECT, when non-nil, determines which one of the candidates\nmatching INITIAL-INPUT to select initially.  An integer stands\nfor the position of the desired candidate in the collection,\ncounting from zero.  Otherwise, use the first occurrence of\nPRESELECT in the collection.  Comparison is first done with\n`equal'.  If that fails, and when applicable, match PRESELECT as\na regular expression.\n\nDEF is for compatibility with `completing-read'.\n\nUPDATE-FN is called each time the candidate list is re-displayed.\n\nWhen SORT is non-nil, `ivy-sort-functions-alist' determines how\nto sort candidates before displaying them.\n\nACTION is a function to call after selecting a candidate.\nIt takes one argument, the selected candidate. If COLLECTION is\nan alist, the argument is a cons cell, otherwise it's a string.\n\nMULTI-ACTION, when non-nil, is called instead of ACTION when\nthere are marked candidates. It takes the list of candidates as\nits only argument. When it's nil, ACTION is called on each marked\ncandidate.\n\nUNWIND is a function of no arguments to call before exiting.\n\nRE-BUILDER is a function transforming input text into a regex\npattern.\n\nMATCHER is a function which can override how candidates are\nfiltered based on user input.  It takes a regex pattern and a\nlist of candidates, and returns the list of matching candidates.\n\nDYNAMIC-COLLECTION is a boolean specifying whether the list of\ncandidates is updated after each input by calling COLLECTION.\n\nEXTRA-PROPS is a plist that can be used to store\ncollection-specific session-specific data.\n\nCALLER is a symbol to uniquely identify the caller to `ivy-read'.\nIt is used, along with COLLECTION, to determine which\ncustomizations apply to the current completion session." #) ivy-prescient--enable-sort-commands) ("M-x " ("lsp" "getenv" "doom/upgrade" "lsp-restart-workspace" "gdb" "smerge-keep-all" "sh-mode" "org-agenda-mode" "org-mode-restart" "pdf-tools-install" "org-noter-create-skeleton" "org-capture-mode" "text-scale-decrease" "org-gcal-sync-tokens-clear" "org-mode" "org-noter" "helm-bibtex" "org-gcal-sync" "org-time-stamp" "org-id-get-create" "smerge-keep-lower" "text-scale-increase" "org-noter-insert-note" "org-superstar-restart" "org-date-from-calendar" "org-time-stamp-inactive" "cd" "rg" "5x5" "amx" "arp" "dbx" "dig" "erc" "ert" "eww" "ftp" "irc" "jdb" "man" "mpc" "orc" "orn" "oro" "orp" "oru" "pdb" "pwd" "rsh" "sdb" ...) :predicate #f(compiled-function (x) #) :require-match t :history counsel-M-x-history :action counsel-M-x-action :keymap (keymap (67108908 . counsel--info-lookup-symbol) (67108910 . counsel-find-symbol)) :initial-input nil :caller counsel-M-x))
  ivy-posframe--read(#f(advice-wrapper :filter-args #f(compiled-function (arg1 arg2 &rest rest) "Read a string in the minibuffer, with completion.\n\nPROMPT is a string, normally ending in a colon and a space.\n`ivy-count-format' is prepended to PROMPT during completion.\n\nCOLLECTION is either a list of strings, a function, an alist, or\na hash table, supplied for `minibuffer-completion-table'.\n\nPREDICATE is applied to filter out the COLLECTION immediately.\nThis argument is for compatibility with `completing-read'.\n\nWhen REQUIRE-MATCH is non-nil, only members of COLLECTION can be\nselected.\n\nIf INITIAL-INPUT is non-nil, then insert that input in the\nminibuffer initially.\n\nHISTORY is a name of a variable to hold the completion session\nhistory.\n\nKEYMAP is composed with `ivy-minibuffer-map'.\n\nPRESELECT, when non-nil, determines which one of the candidates\nmatching INITIAL-INPUT to select initially.  An integer stands\nfor the position of the desired candidate in the collection,\ncounting from zero.  Otherwise, use the first occurrence of\nPRESELECT in the collection.  Comparison is first done with\n`equal'.  If that fails, and when applicable, match PRESELECT as\na regular expression.\n\nDEF is for compatibility with `completing-read'.\n\nUPDATE-FN is called each time the candidate list is re-displayed.\n\nWhen SORT is non-nil, `ivy-sort-functions-alist' determines how\nto sort candidates before displaying them.\n\nACTION is a function to call after selecting a candidate.\nIt takes one argument, the selected candidate. If COLLECTION is\nan alist, the argument is a cons cell, otherwise it's a string.\n\nMULTI-ACTION, when non-nil, is called instead of ACTION when\nthere are marked candidates. It takes the list of candidates as\nits only argument. When it's nil, ACTION is called on each marked\ncandidate.\n\nUNWIND is a function of no arguments to call before exiting.\n\nRE-BUILDER is a function transforming input text into a regex\npattern.\n\nMATCHER is a function which can override how candidates are\nfiltered based on user input.  It takes a regex pattern and a\nlist of candidates, and returns the list of matching candidates.\n\nDYNAMIC-COLLECTION is a boolean specifying whether the list of\ncandidates is updated after each input by calling COLLECTION.\n\nEXTRA-PROPS is a plist that can be used to store\ncollection-specific session-specific data.\n\nCALLER is a symbol to uniquely identify the caller to `ivy-read'.\nIt is used, along with COLLECTION, to determine which\ncustomizations apply to the current completion session." #) ivy-prescient--enable-sort-commands) "M-x " ("lsp" "getenv" "doom/upgrade" "lsp-restart-workspace" "gdb" "smerge-keep-all" "sh-mode" "org-agenda-mode" "org-mode-restart" "pdf-tools-install" "org-noter-create-skeleton" "org-capture-mode" "text-scale-decrease" "org-gcal-sync-tokens-clear" "org-mode" "org-noter" "helm-bibtex" "org-gcal-sync" "org-time-stamp" "org-id-get-create" "smerge-keep-lower" "text-scale-increase" "org-noter-insert-note" "org-superstar-restart" "org-date-from-calendar" "org-time-stamp-inactive" "cd" "rg" "5x5" "amx" "arp" "dbx" "dig" "erc" "ert" "eww" "ftp" "irc" "jdb" "man" "mpc" "orc" "orn" "oro" "orp" "oru" "pdb" "pwd" "rsh" "sdb" ...) :predicate #f(compiled-function (x) #) :require-match t :history counsel-M-x-history :action counsel-M-x-action :keymap (keymap (67108908 . counsel--info-lookup-symbol) (67108910 . counsel-find-symbol)) :initial-input nil :caller counsel-M-x)
  apply(ivy-posframe--read #f(advice-wrapper :filter-args #f(compiled-function (arg1 arg2 &rest rest) "Read a string in the minibuffer, with completion.\n\nPROMPT is a string, normally ending in a colon and a space.\n`ivy-count-format' is prepended to PROMPT during completion.\n\nCOLLECTION is either a list of strings, a function, an alist, or\na hash table, supplied for `minibuffer-completion-table'.\n\nPREDICATE is applied to filter out the COLLECTION immediately.\nThis argument is for compatibility with `completing-read'.\n\nWhen REQUIRE-MATCH is non-nil, only members of COLLECTION can be\nselected.\n\nIf INITIAL-INPUT is non-nil, then insert that input in the\nminibuffer initially.\n\nHISTORY is a name of a variable to hold the completion session\nhistory.\n\nKEYMAP is composed with `ivy-minibuffer-map'.\n\nPRESELECT, when non-nil, determines which one of the candidates\nmatching INITIAL-INPUT to select initially.  An integer stands\nfor the position of the desired candidate in the collection,\ncounting from zero.  Otherwise, use the first occurrence of\nPRESELECT in the collection.  Comparison is first done with\n`equal'.  If that fails, and when applicable, match PRESELECT as\na regular expression.\n\nDEF is for compatibility with `completing-read'.\n\nUPDATE-FN is called each time the candidate list is re-displayed.\n\nWhen SORT is non-nil, `ivy-sort-functions-alist' determines how\nto sort candidates before displaying them.\n\nACTION is a function to call after selecting a candidate.\nIt takes one argument, the selected candidate. If COLLECTION is\nan alist, the argument is a cons cell, otherwise it's a string.\n\nMULTI-ACTION, when non-nil, is called instead of ACTION when\nthere are marked candidates. It takes the list of candidates as\nits only argument. When it's nil, ACTION is called on each marked\ncandidate.\n\nUNWIND is a function of no arguments to call before exiting.\n\nRE-BUILDER is a function transforming input text into a regex\npattern.\n\nMATCHER is a function which can override how candidates are\nfiltered based on user input.  It takes a regex pattern and a\nlist of candidates, and returns the list of matching candidates.\n\nDYNAMIC-COLLECTION is a boolean specifying whether the list of\ncandidates is updated after each input by calling COLLECTION.\n\nEXTRA-PROPS is a plist that can be used to store\ncollection-specific session-specific data.\n\nCALLER is a symbol to uniquely identify the caller to `ivy-read'.\nIt is used, along with COLLECTION, to determine which\ncustomizations apply to the current completion session." #) ivy-prescient--enable-sort-commands) ("M-x " ("lsp" "getenv" "doom/upgrade" "lsp-restart-workspace" "gdb" "smerge-keep-all" "sh-mode" "org-agenda-mode" "org-mode-restart" "pdf-tools-install" "org-noter-create-skeleton" "org-capture-mode" "text-scale-decrease" "org-gcal-sync-tokens-clear" "org-mode" "org-noter" "helm-bibtex" "org-gcal-sync" "org-time-stamp" "org-id-get-create" "smerge-keep-lower" "text-scale-increase" "org-noter-insert-note" "org-superstar-restart" "org-date-from-calendar" "org-time-stamp-inactive" "cd" "rg" "5x5" "amx" "arp" "dbx" "dig" "erc" "ert" "eww" "ftp" "irc" "jdb" "man" "mpc" "orc" "orn" "oro" "orp" "oru" "pdb" "pwd" "rsh" "sdb" ...) :predicate #f(compiled-function (x) #) :require-match t :history counsel-M-x-history :action counsel-M-x-action :keymap (keymap (67108908 . counsel--info-lookup-symbol) (67108910 . counsel-find-symbol)) :initial-input nil :caller counsel-M-x))
  ivy-read("M-x " ("lsp" "getenv" "doom/upgrade" "lsp-restart-workspace" "gdb" "smerge-keep-all" "sh-mode" "org-agenda-mode" "org-mode-restart" "pdf-tools-install" "org-noter-create-skeleton" "org-capture-mode" "text-scale-decrease" "org-gcal-sync-tokens-clear" "org-mode" "org-noter" "helm-bibtex" "org-gcal-sync" "org-time-stamp" "org-id-get-create" "smerge-keep-lower" "text-scale-increase" "org-noter-insert-note" "org-superstar-restart" "org-date-from-calendar" "org-time-stamp-inactive" "cd" "rg" "5x5" "amx" "arp" "dbx" "dig" "erc" "ert" "eww" "ftp" "irc" "jdb" "man" "mpc" "orc" "orn" "oro" "orp" "oru" "pdb" "pwd" "rsh" "sdb" ...) :predicate #f(compiled-function (x) #) :require-match t :history counsel-M-x-history :action counsel-M-x-action :keymap (keymap (67108908 . counsel--info-lookup-symbol) (67108910 . counsel-find-symbol)) :initial-input nil :caller counsel-M-x)
  counsel-M-x()
  #(counsel-M-x)
  apply(# counsel-M-x)
  funcall-interactively(counsel-M-x)
  #(counsel-M-x nil nil)
  apply(# (counsel-M-x nil nil))
  explain-pause--wrap-call-interactively(# counsel-M-x nil nil)
  apply(explain-pause--wrap-call-interactively # (counsel-M-x nil nil))
  call-interactively(counsel-M-x nil nil)
  command-execute(counsel-M-x)

Steps to reproduce:

enable LSP mode
call lsp via M-x in a valid file (e.g. C or CMake in my case)
+lsp-dont-prompt-to-install-servers-maybe-a: Symbol’s function definition is void: lsp--require-packages

System information:

```
SYSTEM  type       gnu/linux
	config     x86_64-suse-linux-gnu
	shell      /usr/bin/zsh
	uname      Linux 5.10.12-1-vanilla #1 SMP Sat Jan 30 19:15:49 UTC 2021 (a3c8888) x86_64
	path       (~/.config/zsh/.zinit/polaris/bin ~/bin ~/.local/bin ~/.nix-profile/bin ~/.config/emacs/bin /usr/local/bin /usr/bin /bin /snap/bin /usr/lib/emacs/27.1/x86_64-suse-linux)
EMACS   dir        ~/.config/emacs/
	version    27.1
	build      Feb 06, 2021
	buildopts  --disable-build-details --without-pop --with-mailutils --without-hesiod --with-gameuser=:games --with-kerberos --with-kerberos5 --with-file-notification=inotify --with-modules --enable-autodepend --prefix=/usr --mandir=/usr/share/man --infodir=/usr/share/info --datadir=/usr/share --localstatedir=/var --sharedstatedir=/var/lib --libexecdir=/usr/lib --enable-locallisppath=/usr/share/emacs/27.1/site-lisp:/usr/share/emacs/site-lisp --with-x --with-xim --with-sound --with-xpm --with-jpeg --with-tiff --with-gif --with-png --with-rsvg --with-dbus --with-xft --without-gpm --with-x-toolkit=gtk3 --with-toolkit-scroll-bars --x-includes=/usr/include --x-libraries=/usr/lib64 --with-libotf --with-m17n-flt --with-cairo --with-xwidgets --build=x86_64-suse-linux --with-dumping=pdumper 'CFLAGS=-O2 -Wall -D_FORTIFY_SOURCE=2 -fstack-protector-strong -funwind-tables -fasynchronous-unwind-tables -fstack-clash-protection -Werror=return-type -flto=auto -g -D_GNU_SOURCE -DGDK_DISABLE_DEPRECATION_WARNINGS -DGLIB_DISABLE_DEPRECATION_WARNINGS -pipe -Wno-pointer-sign -Wno-unused-variable -Wno-unused-label -fno-optimize-sibling-calls -fno-PIE -DSYSTEM_PURESIZE_EXTRA=55000 	 -DSITELOAD_PURESIZE_EXTRA=10000  -DPDMP_BASE='\''"emacs-gtk"'\''' LDFLAGS=-Wl,-O2
	features   XPM JPEG TIFF GIF PNG RSVG CAIRO SOUND DBUS GSETTINGS GLIB NOTIFY INOTIFY ACL LIBSELINUX GNUTLS LIBXML2 FREETYPE HARFBUZZ M17N_FLT LIBOTF ZLIB TOOLKIT_SCROLL_BARS GTK3 X11 XDBE XIM MODULES THREADS XWIDGETS LIBSYSTEMD JSON PDUMPER LCMS2 GMP
	traits     (batch server-running)
DOOM    dir        ~/.dotfiles/fold/.config/doom/
	version    2.0.9
	build      HEAD -> develop, origin/develop, origin/HEAD c7458e9e2 2021-02-05 22:51:29 -0500
	elc-files  0
	modules    (:completion (company +childframe) (ivy +childframe +icons +prescient) :ui doom doom-dashboard doom-quit hl-todo modeline neotree ophints (popup +defaults +hacks) ligatures unicode vc-gutter vi-tilde-fringe window-select workspaces :editor (evil +everywhere) file-templates fold (format +onsave) snippets word-wrap :emacs dired electric undo vc :term eshell shell vterm :checkers syntax (spell +aspell) grammar :tools (eval +overlay) lookup (lsp +peek) (magit +forge) make pdf tmux :lang (cc +lsp) emacs-lisp markdown nix (org +roam +pretty +journal +noter +dragndrop) (python +lsp +pyenv +conda +pyright) sh yaml :app calendar :config literate (default +bindings +smartparens))
	packages   ((deadgrep) (rg) (company-posframe) (ace-link) (beacon) (dired-narrow) (olivetti) (modus-themes) (define-word) (emojify) (all-the-icons-dired) (all-the-icons-ibuffer) (nov) (mixed-pitch) (helm-org-rifle) (org-super-agenda) (org-roam-bibtex) (ivy-bibtex) (org-ref) (org-fragtog) (org-noter-pdftools) (org-pretty-tags) (org-ql) (doct) (command-log-mode) (rmsbolt) (company-cabal) (eterm-256color) (eshell-git-prompt) (pinentry))
	unpin      (n/a)
	elpa       (n/a)
```

Ah, I was relying on a function that exists in a later version of lsp-mode. I've bumped it in 45b68e4, which should fix this issue. Let me know if that isn't the case and I'll reopen it. Thanks for bringing it to my attention!

I'm afraid this still unfixed...
had runned doom upgrade, all packages updated.
please give some help

doom-version:
Doom v2.0.9 (HEAD -> develop, origin/develop, origin/HEAD 47925933d 2021-02-17 14:20:37 -0500)
error info:
Debugger entered--Lisp error: (void-function lsp--require-packages)
  (lsp--require-packages)
  +lsp-dont-prompt-to-install-servers-maybe-a(#f(compiled-function (&optional arg) "Entry point for the server startup.\nWhen ARG is t the lsp mode will start new language server even if\nthere is language server which can handle current language. When\nARG is nil current file will be opened in multi folder language\nserver if there is such. When `lsp' is called with prefix\nargument ask the user to select which language server to start." (interactive "P") #<bytecode 0x1ff5f5a5ccb9>))
  apply(+lsp-dont-prompt-to-install-servers-maybe-a #f(compiled-function (&optional arg) "Entry point for the server startup.\nWhen ARG is t the lsp mode will start new language server even if\nthere is language server which can handle current language. When\nARG is nil current file will be opened in multi folder language\nserver if there is such. When `lsp' is called with prefix\nargument ask the user to select which language server to start." (interactive "P") #<bytecode 0x1ff5f5a5ccb9>) nil)
  lsp()
  lsp--init-if-visible()
  #f(compiled-function () #<bytecode 0x1ff5f43ad081>)()
  apply(#f(compiled-function () #<bytecode 0x1ff5f43ad081>) nil)

@sound2gd I cannot reproduce this on any of my systems, on either 27.1 or 28. Please try doom build. Failing that, try deleting ~/.emacs.d/.local then doom sync.

@sound2gd I cannot reproduce this on any of my systems, on either 27.1 or 28. Please try doom build. Failing that, try deleting ~/.emacs.d/.local then doom sync.

thanks, after trying several times doom build, it finally works.

@sound2gd I cannot reproduce this on any of my systems, on either 27.1 or 28. Please try doom build. Failing that, try deleting ~/.emacs.d/.local then doom sync.

Hi!
This affects me as well.
I deleted ~/.config/emacs/.local and then doom sync. This went smoothly. The issue appears when  doing doom compile afterwards:
[...]
  x There was an unexpected error
    Message: Symbol's function definition is void
    Data: (void-function . macroexp-file-name)
    Backtrace:
      (macroexp-file-name)
      (let* ((compile-file (macroexp-file-name)) (sublog (if (and compile-file (
      ((closure (t) (level msg &rest args) "Log, at level LEVEL, the message MSG
      (macroexpand (flymake-log :debug "backend %s reported %d diagnostics in %.
      (macroexp-macroexpand (flymake-log :debug "backend %s reported %d diagnost
      (macroexp--expand-all (flymake-log :debug "backend %s reported %d diagnost
      (macroexp--all-forms (progn (flymake-log :debug "backend %s reported %d di
      (#[514 "\300\301\"\211\204\302\242\303\"\202g\304!\204+\3051
      (macroexp--expand-all (progn (flymake-log :debug "backend %s reported %d d
      (macroexp--all-forms (if flymake-check-start-time (progn (flymake-log :deb
  ! Extended backtrace logged to ~/.config/emacs/.local/doom.error.log

# -*- lisp-interaction -*-
# vim: set ft=lisp:
(void-function macroexp-file-name)
(macroexp-file-name)
(let* ((compile-file (macroexp-file-name)) (sublog (if (and compile-file (not load-file-name)) (intern (file-name-nondirectory (file-name-sans-extension compile-file)))))) (cons 'flymake--log-1 (cons level (cons (list 'quote sublog) (cons msg args)))))
((closure (t) (level msg &rest args) "Log, at level LEVEL, the message MSG formatted with ARGS.\nLEVEL is passed to `display-warning', which is used to display\nthe warning.  If this form is included in a byte-compiled file,\nthe generated warning contains an indication of the file that\ngenerated it." (let* ((compile-file (macroexp-file-name)) (sublog (if (and compile-file (not load-file-name)) (intern (file-name-nondirectory (file-name-sans-extension compile-file)))))) (cons 'flymake--log-1 (cons level (cons (list 'quote sublog) (cons msg args)))))) :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))
(macroexpand (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time))) nil)
(macroexp-macroexpand (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time))) nil)
(macroexp--expand-all (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time))))
(macroexp--all-forms (progn (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) 1)
(#[514 "\300\1\301"\211\204\20\0\302\3\242\303"\202g\0\304\1!\204+\0\3051$\0\306\307\3!\3"0\202*\0\310\311\2"\262\1\210\312\1\4\242"\3\242\1=\203b\0\3\242\302\5\242\303"\211\262\3\232\203J\0\3\242\202e\0\3\312\3\3"\240\210\211\4\242=\203\\0\211\202e\0\313\1!\202e\0\313\1!\262\1\207" [function-get compiler-macro macroexp--all-forms 1 functionp (debug error) autoload-do-load indirect-function message "macroexp--expand-all: %S" macroexp--compiler-macro macroexp--expand-all] 8 "\n\n(fn FORM FUNC)"] ((progn (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time))))) progn)
(macroexp--expand-all (progn (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))))
(macroexp--all-forms (if flymake-check-start-time (progn (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time))))) 1)
(#[514 "\300\1\301"\211\204\20\0\302\3\242\303"\202g\0\304\1!\204+\0\3051$\0\306\307\3!\3"0\202*\0\310\311\2"\262\1\210\312\1\4\242"\3\242\1=\203b\0\3\242\302\5\242\303"\211\262\3\232\203J\0\3\242\202e\0\3\312\3\3"\240\210\211\4\242=\203\\0\211\202e\0\313\1!\202e\0\313\1!\262\1\207" [function-get compiler-macro macroexp--all-forms 1 functionp (debug error) autoload-do-load indirect-function message "macroexp--expand-all: %S" macroexp--compiler-macro macroexp--expand-all] 8 "\n\n(fn FORM FUNC)"] ((if flymake-check-start-time (progn (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))))) if)
(macroexp--expand-all (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))))
(macroexp--all-forms (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer))) 1)
(#[514 "\300\1\301"\211\204\20\0\302\3\242\303"\202g\0\304\1!\204+\0\3051$\0\306\307\3!\3"0\202*\0\310\311\2"\262\1\210\312\1\4\242"\3\242\1=\203b\0\3\242\302\5\242\303"\211\262\3\232\203J\0\3\242\202e\0\3\312\3\3"\240\210\211\4\242=\203\\0\211\202e\0\313\1!\202e\0\313\1!\262\1\207" [function-get compiler-macro macroexp--all-forms 1 functionp (debug error) autoload-do-load indirect-function message "macroexp--expand-all: %S" macroexp--compiler-macro macroexp--expand-all] 8 "\n\n(fn FORM FUNC)"] ((save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer)))) save-restriction)
(macroexp--expand-all (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer))))
(macroexp--all-forms (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer)))) nil)
(macroexp--all-clauses (((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer))))))
(macroexp--expand-all (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer))))))
(macroexp--all-forms ((cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer)))))))
(#[1028 "\300\1\300\301\5\302"\303\6\7!\6\10\242A#\6\6\242#\207" [macroexp--cons macroexp--all-clauses 1 macroexp--all-forms] 10 "\n\n(fn FORM BODY BINDINGS FUN)"] ((let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer))))))) ((cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer)))))) (expected-token new-diags) let)
(macroexp--expand-all (let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer)))))))
(macroexp--all-forms ((setf (flymake--backend-state-reported-p state) t) (let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer))))))))
(#[1028 "\300\1\300\301\5\302"\303\6\7!\6\10\242A#\6\6\242#\207" [macroexp--cons macroexp--all-clauses 1 macroexp--all-forms] 10 "\n\n(fn FORM BODY BINDINGS FUN)"] ((let* ((state (gethash backend flymake--backend-state)) (first-report (not (flymake--backend-state-reported-p state)))) (setf (flymake--backend-state-reported-p state) t) (let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer)))))))) ((setf (flymake--backend-state-reported-p state) t) (let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer))))))) ((state (gethash backend flymake--backend-state)) (first-report (not (flymake--backend-state-reported-p state)))) let*)
(macroexp--expand-all (let* ((state (gethash backend flymake--backend-state)) (first-report (not (flymake--backend-state-reported-p state)))) (setf (flymake--backend-state-reported-p state) t) (let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer))))))))
(macroexpand-all (let* ((state (gethash backend flymake--backend-state)) (first-report (not (flymake--backend-state-reported-p state)))) (setf (flymake--backend-state-reported-p state) t) (let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer))))))) nil)
(cl--block-wrapper--cmacro (cl--block-wrapper (catch '--cl-block-flymake--handle-report-- (let* ((state (gethash backend flymake--backend-state)) (first-report (not (flymake--backend-state-reported-p state)))) (setf (flymake--backend-state-reported-p state) t) (let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer))))))))) (catch '--cl-block-flymake--handle-report-- (let* ((state (gethash backend flymake--backend-state)) (first-report (not (flymake--backend-state-reported-p state)))) (setf (flymake--backend-state-reported-p state) t) (let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer)))))))))
(apply cl--block-wrapper--cmacro (cl--block-wrapper (catch '--cl-block-flymake--handle-report-- (let* ((state (gethash backend flymake--backend-state)) (first-report (not (flymake--backend-state-reported-p state)))) (setf (flymake--backend-state-reported-p state) t) (let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer))))))))) (catch '--cl-block-flymake--handle-report-- (let* ((state (gethash backend flymake--backend-state)) (first-report (not (flymake--backend-state-reported-p state)))) (setf (flymake--backend-state-reported-p state) t) (let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer)))))))))
(macroexp--compiler-macro cl--block-wrapper--cmacro (cl--block-wrapper (catch '--cl-block-flymake--handle-report-- (let* ((state (gethash backend flymake--backend-state)) (first-report (not (flymake--backend-state-reported-p state)))) (setf (flymake--backend-state-reported-p state) t) (let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer))))))))))
(#[514 "\300\1\301"\211\204\20\0\302\3\242\303"\202g\0\304\1!\204+\0\3051$\0\306\307\3!\3"0\202*\0\310\311\2"\262\1\210\312\1\4\242"\3\242\1=\203b\0\3\242\302\5\242\303"\211\262\3\232\203J\0\3\242\202e\0\3\312\3\3"\240\210\211\4\242=\203\\0\211\202e\0\313\1!\202e\0\313\1!\262\1\207" [function-get compiler-macro macroexp--all-forms 1 functionp (debug error) autoload-do-load indirect-function message "macroexp--expand-all: %S" macroexp--compiler-macro macroexp--expand-all] 8 "\n\n(fn FORM FUNC)"] ((cl--block-wrapper (catch '--cl-block-flymake--handle-report-- (let* ((state (gethash backend flymake--backend-state)) (first-report (not (flymake--backend-state-reported-p state)))) (setf (flymake--backend-state-reported-p state) t) (let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer)))))))))) cl--block-wrapper)
(macroexp--expand-all (cl-block flymake--handle-report (let* ((state (gethash backend flymake--backend-state)) (first-report (not (flymake--backend-state-reported-p state)))) (setf (flymake--backend-state-reported-p state) t) (let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer)))))))))
(macroexp--all-forms ((cl-block flymake--handle-report (let* ((state (gethash backend flymake--backend-state)) (first-report (not (flymake--backend-state-reported-p state)))) (setf (flymake--backend-state-reported-p state) t) (let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer))))))))))
(#[1028 "\300\1\300\301\5\302"\303\6\7!\6\10\242A#\6\6\242#\207" [macroexp--cons macroexp--all-clauses 1 macroexp--all-forms] 10 "\n\n(fn FORM BODY BINDINGS FUN)"] ((let* ((explanation (car (cdr (plist-member --cl-rest-- ':explanation)))) (force (car (cdr (plist-member --cl-rest-- ':force)))) (region (car (cdr (plist-member --cl-rest-- ':region))))) (cl-block flymake--handle-report (let* ((state (gethash backend flymake--backend-state)) (first-report (not (flymake--backend-state-reported-p state)))) (setf (flymake--backend-state-reported-p state) t) (let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer)))))))))) ((cl-block flymake--handle-report (let* ((state (gethash backend flymake--backend-state)) (first-report (not (flymake--backend-state-reported-p state)))) (setf (flymake--backend-state-reported-p state) t) (let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer))))))))) ((explanation (car (cdr (plist-member --cl-rest-- ':explanation)))) (force (car (cdr (plist-member --cl-rest-- ':force)))) (region (car (cdr (plist-member --cl-rest-- ':region))))) let*)
(macroexp--expand-all (let* ((explanation (car (cdr (plist-member --cl-rest-- ':explanation)))) (force (car (cdr (plist-member --cl-rest-- ':force)))) (region (car (cdr (plist-member --cl-rest-- ':region))))) (cl-block flymake--handle-report (let* ((state (gethash backend flymake--backend-state)) (first-report (not (flymake--backend-state-reported-p state)))) (setf (flymake--backend-state-reported-p state) t) (let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer))))))))))
(macroexp--all-forms (lambda (backend token report-action &rest --cl-rest--) "Handle reports from BACKEND identified by TOKEN.\nBACKEND, REPORT-ACTION and EXPLANATION, and FORCE conform to the\ncalling convention described in\n`flymake-diagnostic-functions' (which see).  Optional FORCE says\nto handle a report even if TOKEN was not expected.  REGION is\na (BEG . END) pair of buffer positions indicating that this\nreport applies to that region.\n\n(fn BACKEND TOKEN REPORT-ACTION &key EXPLANATION FORCE REGION &allow-other-keys)" (let* ((explanation (car (cdr (plist-member --cl-rest-- ':explanation)))) (force (car (cdr (plist-member --cl-rest-- ':force)))) (region (car (cdr (plist-member --cl-rest-- ':region))))) (cl-block flymake--handle-report (let* ((state (gethash backend flymake--backend-state)) (first-report (not (flymake--backend-state-reported-p state)))) (setf (flymake--backend-state-reported-p state) t) (let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer)))))))))) 2)
(macroexp--expand-all #'(lambda (backend token report-action &rest --cl-rest--) "Handle reports from BACKEND identified by TOKEN.\nBACKEND, REPORT-ACTION and EXPLANATION, and FORCE conform to the\ncalling convention described in\n`flymake-diagnostic-functions' (which see).  Optional FORCE says\nto handle a report even if TOKEN was not expected.  REGION is\na (BEG . END) pair of buffer positions indicating that this\nreport applies to that region.\n\n(fn BACKEND TOKEN REPORT-ACTION &key EXPLANATION FORCE REGION &allow-other-keys)" (let* ((explanation (car (cdr (plist-member --cl-rest-- ':explanation)))) (force (car (cdr (plist-member --cl-rest-- ':force)))) (region (car (cdr (plist-member --cl-rest-- ':region))))) (cl-block flymake--handle-report (let* ((state (gethash backend flymake--backend-state)) (first-report (not (flymake--backend-state-reported-p state)))) (setf (flymake--backend-state-reported-p state) t) (let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer)))))))))))
(macroexp--all-forms (defalias 'flymake--handle-report #'(lambda (backend token report-action &rest --cl-rest--) "Handle reports from BACKEND identified by TOKEN.\nBACKEND, REPORT-ACTION and EXPLANATION, and FORCE conform to the\ncalling convention described in\n`flymake-diagnostic-functions' (which see).  Optional FORCE says\nto handle a report even if TOKEN was not expected.  REGION is\na (BEG . END) pair of buffer positions indicating that this\nreport applies to that region.\n\n(fn BACKEND TOKEN REPORT-ACTION &key EXPLANATION FORCE REGION &allow-other-keys)" (let* ((explanation (car (cdr (plist-member --cl-rest-- ':explanation)))) (force (car (cdr (plist-member --cl-rest-- ':force)))) (region (car (cdr (plist-member --cl-rest-- ':region))))) (cl-block flymake--handle-report (let* ((state (gethash backend flymake--backend-state)) (first-report (not (flymake--backend-state-reported-p state)))) (setf (flymake--backend-state-reported-p state) t) (let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer))))))))))) 1)
(#[514 "\300\1\301"\211\204\20\0\302\3\242\303"\202g\0\304\1!\204+\0\3051$\0\306\307\3!\3"0\202*\0\310\311\2"\262\1\210\312\1\4\242"\3\242\1=\203b\0\3\242\302\5\242\303"\211\262\3\232\203J\0\3\242\202e\0\3\312\3\3"\240\210\211\4\242=\203\\0\211\202e\0\313\1!\202e\0\313\1!\262\1\207" [function-get compiler-macro macroexp--all-forms 1 functionp (debug error) autoload-do-load indirect-function message "macroexp--expand-all: %S" macroexp--compiler-macro macroexp--expand-all] 8 "\n\n(fn FORM FUNC)"] ((defalias 'flymake--handle-report #'(lambda (backend token report-action &rest --cl-rest--) "Handle reports from BACKEND identified by TOKEN.\nBACKEND, REPORT-ACTION and EXPLANATION, and FORCE conform to the\ncalling convention described in\n`flymake-diagnostic-functions' (which see).  Optional FORCE says\nto handle a report even if TOKEN was not expected.  REGION is\na (BEG . END) pair of buffer positions indicating that this\nreport applies to that region.\n\n(fn BACKEND TOKEN REPORT-ACTION &key EXPLANATION FORCE REGION &allow-other-keys)" (let* ((explanation (car (cdr (plist-member --cl-rest-- ':explanation)))) (force (car (cdr (plist-member --cl-rest-- ':force)))) (region (car (cdr (plist-member --cl-rest-- ':region))))) (cl-block flymake--handle-report (let* ((state (gethash backend flymake--backend-state)) (first-report (not (flymake--backend-state-reported-p state)))) (setf (flymake--backend-state-reported-p state) t) (let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer)))))))))))) defalias)
(macroexp--expand-all (defalias 'flymake--handle-report #'(lambda (backend token report-action &rest --cl-rest--) "Handle reports from BACKEND identified by TOKEN.\nBACKEND, REPORT-ACTION and EXPLANATION, and FORCE conform to the\ncalling convention described in\n`flymake-diagnostic-functions' (which see).  Optional FORCE says\nto handle a report even if TOKEN was not expected.  REGION is\na (BEG . END) pair of buffer positions indicating that this\nreport applies to that region.\n\n(fn BACKEND TOKEN REPORT-ACTION &key EXPLANATION FORCE REGION &allow-other-keys)" (let* ((explanation (car (cdr (plist-member --cl-rest-- ':explanation)))) (force (car (cdr (plist-member --cl-rest-- ':force)))) (region (car (cdr (plist-member --cl-rest-- ':region))))) (cl-block flymake--handle-report (let* ((state (gethash backend flymake--backend-state)) (first-report (not (flymake--backend-state-reported-p state)))) (setf (flymake--backend-state-reported-p state) t) (let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer))))))))))))
(macroexpand-all (defalias 'flymake--handle-report #'(lambda (backend token report-action &rest --cl-rest--) "Handle reports from BACKEND identified by TOKEN.\nBACKEND, REPORT-ACTION and EXPLANATION, and FORCE conform to the\ncalling convention described in\n`flymake-diagnostic-functions' (which see).  Optional FORCE says\nto handle a report even if TOKEN was not expected.  REGION is\na (BEG . END) pair of buffer positions indicating that this\nreport applies to that region.\n\n(fn BACKEND TOKEN REPORT-ACTION &key EXPLANATION FORCE REGION &allow-other-keys)" (let* ((explanation (car (cdr (plist-member --cl-rest-- ':explanation)))) (force (car (cdr (plist-member --cl-rest-- ':force)))) (region (car (cdr (plist-member --cl-rest-- ':region))))) (cl-block flymake--handle-report (let* ((state (gethash backend flymake--backend-state)) (first-report (not (flymake--backend-state-reported-p state)))) (setf (flymake--backend-state-reported-p state) t) (let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer))))))))))))
(internal-macroexpand-for-load (defalias 'flymake--handle-report #'(lambda (backend token report-action &rest --cl-rest--) "Handle reports from BACKEND identified by TOKEN.\nBACKEND, REPORT-ACTION and EXPLANATION, and FORCE conform to the\ncalling convention described in\n`flymake-diagnostic-functions' (which see).  Optional FORCE says\nto handle a report even if TOKEN was not expected.  REGION is\na (BEG . END) pair of buffer positions indicating that this\nreport applies to that region.\n\n(fn BACKEND TOKEN REPORT-ACTION &key EXPLANATION FORCE REGION &allow-other-keys)" (let* ((explanation (car (cdr (plist-member --cl-rest-- ':explanation)))) (force (car (cdr (plist-member --cl-rest-- ':force)))) (region (car (cdr (plist-member --cl-rest-- ':region))))) (cl-block flymake--handle-report (let* ((state (gethash backend flymake--backend-state)) (first-report (not (flymake--backend-state-reported-p state)))) (setf (flymake--backend-state-reported-p state) t) (let (expected-token new-diags) (cond ((null state) (flymake-error "Unexpected report from unknown backend %s" backend)) ((flymake--backend-state-disabled state) (flymake-error "Unexpected report from disabled backend %s" backend)) ((progn (setq expected-token (flymake--backend-state-running state)) (null expected-token)) (flymake-error "Unexpected report from stopped backend %s" backend)) ((not (or (eq expected-token token) force)) (flymake-error "Obsolete report from backend %s with explanation %s" backend explanation)) ((eq :panic report-action) (flymake--disable-backend backend explanation)) ((not (listp report-action)) (flymake--disable-backend backend (format "Unknown action %S" report-action)) (flymake-error "Expected report, but got unknown key %s" report-action)) (t (setq new-diags (cl-remove-if-not (lambda (diag) (eq (flymake--diag-buffer diag) (current-buffer))) report-action)) (save-restriction (widen) (cond (region (cl-loop for diag in (flymake--backend-state-diags state) for ov = (flymake--diag-overlay diag) if (or (not (overlay-buffer ov)) (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) do (delete-overlay ov) else collect diag into surviving finally (setf (flymake--backend-state-diags state) surviving))) (first-report (dolist (diag (flymake--backend-state-diags state)) (delete-overlay (flymake--diag-overlay diag))) (setf (flymake--backend-state-diags state) nil))) (mapc (lambda (diag) (let ((overlay (flymake--highlight-line diag))) (setf (flymake--diag-backend diag) backend (flymake--diag-overlay diag) overlay))) new-diags) (setf (flymake--backend-state-diags state) (append new-diags (flymake--backend-state-diags state))) (when flymake-check-start-time (flymake-log :debug "backend %s reported %d diagnostics in %.2f second(s)" backend (length new-diags) (float-time (time-since flymake-check-start-time)))) (when (and (get-buffer (flymake--diagnostics-buffer-name)) (get-buffer-window (flymake--diagnostics-buffer-name)) (null (cl-set-difference (flymake-running-backends) (flymake-reporting-backends)))) (flymake-show-diagnostics-buffer))))))))))) t)
(eval-buffer #<buffer  load-125399> nil "/home/pancho/.config/emacs/.local/straight/build-27.1/flymake/flymake.el" nil t)
(load-with-code-conversion "/home/pancho/.config/emacs/.local/straight/build-27.1/flymake/flymake.el" "/home/pancho/.config/emacs/.local/straight/build-27.1/flymake/flymake.el" nil t)
(require flymake)
(byte-code "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\301\306!\210\301\307!\210\301\310!\210\301\311!\210\301\312!\210\301\313!\210\301\314!\210\301\315!\210\301\316!\210\301\317!\210\301\320!\210\301\321!\210\10\322W\203S\0\323\324!\204S\0\325\326!\210\202W\0\301\327!\210\330\331\332\333\334\335\336\337&\7\207" [emacs-major-version require json imenu cl-lib project seq url-parse url-util pcase compile warnings flymake xref jsonrpc filenotify ert array 28 boundp eldoc-documentation-strategy load "eldoc" eldoc custom-declare-group eglot nil "Interaction with Language Server Protocol servers" :prefix "eglot-" :group applications] 8)
(# "eglot" nil t nil nil)
(load "eglot" nil t)
(byte-code "\3001\22\0\301\302!?\205\20\0\303\304\305\306#0\207\307\310\2"\210\305\207" [(debug error) featurep eglot load "eglot" nil t message "Cannot load eglot: %S"] 4)
(eval (byte-code "\3001\22\0\301\302!?\205\20\0\303\304\305\306#0\207\307\310\2"\210\305\207" [(debug error) featurep eglot load "eglot" nil t message "Cannot load eglot: %S"] 4) t)
(byte-compile-eval (byte-code "\3001\22\0\301\302!?\205\20\0\303\304\305\306#0\207\307\310\2"\210\305\207" [(debug error) featurep eglot load "eglot" nil t message "Cannot load eglot: %S"] 4))
(#[257 "\11\n\32\31\300\303\304\305\4!!!\240*\207" [(nil) byte-compile-unresolved-functions byte-compile-new-defuns byte-compile-eval byte-compile-top-level byte-compile-preprocess] 6 "\n\n(fn FORM)"] (condition-case err (progn nil (unless (featurep 'eglot) (load "eglot" nil t))) ((debug error) (message "Cannot load eglot: %S" err) nil)))
(byte-compile-recurse-toplevel (with-demoted-errors "Cannot load eglot: %S" nil (unless (featurep 'eglot) (load "eglot" nil t))) #[257 "\11\n\32\31\300\303\304\305\4!!!\240*\207" [(nil) byte-compile-unresolved-functions byte-compile-new-defuns byte-compile-eval byte-compile-top-level byte-compile-preprocess] 6 "\n\n(fn FORM)"])
(#[128 "\300C\301\302\3!\303\304\305\306\307\6\7!\310"\311\312%"\210\313\1\242D\207" [nil byte-compile-recurse-toplevel macroexp-progn make-byte-code 257 "\11\n\32\31\300\303\304\305\4!!!\240*\207" vconcat vector [byte-compile-unresolved-functions byte-compile-new-defuns byte-compile-eval byte-compile-top-level byte-compile-preprocess] 6 "\n\n(fn FORM)" quote] 10 "\n\n(fn &rest BODY)"] (with-demoted-errors "Cannot load eglot: %S" nil (unless (featurep 'eglot) (load "eglot" nil t))))
(macroexpand (eval-when-compile (with-demoted-errors "Cannot load eglot: %S" nil (unless (featurep 'eglot) (load "eglot" nil t)))) ((declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #[128 "\300C\301\302\3!\303\304\305\306\307\6\7!\310"\311\312%"\210\313\1\242D\207" [nil byte-compile-recurse-toplevel macroexp-progn make-byte-code 257 "\11\n\32\31\300\303\304\305\4!!!\240*\207" vconcat vector [byte-compile-unresolved-functions byte-compile-new-defuns byte-compile-eval byte-compile-top-level byte-compile-preprocess] 6 "\n\n(fn FORM)" quote] 10 "\n\n(fn &rest BODY)"]) (eval-and-compile . #[128 "\300\301\2!\302"\207" [byte-compile-recurse-toplevel macroexp-progn #[257 "\302\1\10"\303\1\11"\210\211\207" [macroexpand-all-environment lexical-binding macroexpand-all eval] 5 "\n\n(fn FORM)"]] 4 "\n\n(fn &rest BODY)"]) (with-suppressed-warnings . #[385 "\302\2\10"\30\303\304\3D\305\306\4B\11"E)\207" [byte-compile--suppressed-warnings macroexpand-all-environment append internal--with-suppressed-warnings quote macroexpand-all progn] 7 "\n\n(fn WARNINGS &rest BODY)"])))
(macroexp-macroexpand (eval-when-compile (with-demoted-errors "Cannot load eglot: %S" nil (unless (featurep 'eglot) (load "eglot" nil t)))) ((declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #[128 "\300C\301\302\3!\303\304\305\306\307\6\7!\310"\311\312%"\210\313\1\242D\207" [nil byte-compile-recurse-toplevel macroexp-progn make-byte-code 257 "\11\n\32\31\300\303\304\305\4!!!\240*\207" vconcat vector [byte-compile-unresolved-functions byte-compile-new-defuns byte-compile-eval byte-compile-top-level byte-compile-preprocess] 6 "\n\n(fn FORM)" quote] 10 "\n\n(fn &rest BODY)"]) (eval-and-compile . #[128 "\300\301\2!\302"\207" [byte-compile-recurse-toplevel macroexp-progn #[257 "\302\1\10"\303\1\11"\210\211\207" [macroexpand-all-environment lexical-binding macroexpand-all eval] 5 "\n\n(fn FORM)"]] 4 "\n\n(fn &rest BODY)"]) (with-suppressed-warnings . #[385 "\302\2\10"\30\303\304\3D\305\306\4B\11"E)\207" [byte-compile--suppressed-warnings macroexpand-all-environment append internal--with-suppressed-warnings quote macroexpand-all progn] 7 "\n\n(fn WARNINGS &rest BODY)"])))
(byte-compile-recurse-toplevel (eval-when-compile (with-demoted-errors "Cannot load eglot: %S" nil (unless (featurep 'eglot) (load "eglot" nil t)))) #[257 "\302\1\10"\303\1\11"\210\211\207" [macroexpand-all-environment lexical-binding macroexpand-all eval] 5 "\n\n(fn FORM)"])
(#[128 "\300\301\2!\302"\207" [byte-compile-recurse-toplevel macroexp-progn #[257 "\302\1\10"\303\1\11"\210\211\207" [macroexpand-all-environment lexical-binding macroexpand-all eval] 5 "\n\n(fn FORM)"]] 4 "\n\n(fn &rest BODY)"] (eval-when-compile (with-demoted-errors "Cannot load eglot: %S" nil (unless (featurep 'eglot) (load "eglot" nil t)))))
(macroexpand (eval-and-compile (eval-when-compile (with-demoted-errors "Cannot load eglot: %S" nil (unless (featurep 'eglot) (load "eglot" nil t))))) ((declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #[128 "\300C\301\302\3!\303\304\305\306\307\6\7!\310"\311\312%"\210\313\1\242D\207" [nil byte-compile-recurse-toplevel macroexp-progn make-byte-code 257 "\11\n\32\31\300\303\304\305\4!!!\240*\207" vconcat vector [byte-compile-unresolved-functions byte-compile-new-defuns byte-compile-eval byte-compile-top-level byte-compile-preprocess] 6 "\n\n(fn FORM)" quote] 10 "\n\n(fn &rest BODY)"]) (eval-and-compile . #[128 "\300\301\2!\302"\207" [byte-compile-recurse-toplevel macroexp-progn #[257 "\302\1\10"\303\1\11"\210\211\207" [macroexpand-all-environment lexical-binding macroexpand-all eval] 5 "\n\n(fn FORM)"]] 4 "\n\n(fn &rest BODY)"]) (with-suppressed-warnings . #[385 "\302\2\10"\30\303\304\3D\305\306\4B\11"E)\207" [byte-compile--suppressed-warnings macroexpand-all-environment append internal--with-suppressed-warnings quote macroexpand-all progn] 7 "\n\n(fn WARNINGS &rest BODY)"])))
(macroexp-macroexpand (eval-and-compile (eval-when-compile (with-demoted-errors "Cannot load eglot: %S" nil (unless (featurep 'eglot) (load "eglot" nil t))))) ((declare-function . byte-compile-macroexpand-declare-function) (eval-when-compile . #[128 "\300C\301\302\3!\303\304\305\306\307\6\7!\310"\311\312%"\210\313\1\242D\207" [nil byte-compile-recurse-toplevel macroexp-progn make-byte-code 257 "\11\n\32\31\300\303\304\305\4!!!\240*\207" vconcat vector [byte-compile-unresolved-functions byte-compile-new-defuns byte-compile-eval byte-compile-top-level byte-compile-preprocess] 6 "\n\n(fn FORM)" quote] 10 "\n\n(fn &rest BODY)"]) (eval-and-compile . #[128 "\300\301\2!\302"\207" [byte-compile-recurse-toplevel macroexp-progn #[257 "\302\1\10"\303\1\11"\210\211\207" [macroexpand-all-environment lexical-binding macroexpand-all eval] 5 "\n\n(fn FORM)"]] 4 "\n\n(fn &rest BODY)"]) (with-suppressed-warnings . #[385 "\302\2\10"\30\303\304\3D\305\306\4B\11"E)\207" [byte-compile--suppressed-warnings macroexpand-all-environment append internal--with-suppressed-warnings quote macroexpand-all progn] 7 "\n\n(fn WARNINGS &rest BODY)"])))
(byte-compile-recurse-toplevel (eval-and-compile (eval-when-compile (with-demoted-errors "Cannot load eglot: %S" nil (unless (featurep 'eglot) (load "eglot" nil t))))) #[257 "\301\30\302\303\2\304"!)\207" [byte-compile-current-form nil byte-compile-file-form byte-compile-preprocess t] 5 "\n\n(fn FORM)"])
(#[257 "\301\1\300"\207" [#[257 "\301\30\302\303\2\304"!)\207" [byte-compile-current-form nil byte-compile-file-form byte-compile-preprocess t] 5 "\n\n(fn FORM)"] byte-compile-recurse-toplevel] 4 "\n\n(fn SUBFORM)"] (eval-and-compile (eval-when-compile (with-demoted-errors "Cannot load eglot: %S" nil (unless (featurep 'eglot) (load "eglot" nil t))))))
(mapcar #[257 "\301\1\300"\207" [#[257 "\301\30\302\303\2\304"!)\207" [byte-compile-current-form nil byte-compile-file-form byte-compile-preprocess t] 5 "\n\n(fn FORM)"] byte-compile-recurse-toplevel] 4 "\n\n(fn SUBFORM)"] ((eval-and-compile (eval-when-compile (with-demoted-errors "Cannot load eglot: %S" nil (unless (featurep 'eglot) (load "eglot" nil t))))) (unless (fboundp '+lsp-optimization-mode) (autoload #'+lsp-optimization-mode "eglot" nil t)) (eval-when-compile (declare-function +lsp-optimization-mode "eglot")) (unless (fboundp 'eglot) (autoload #'eglot "eglot" nil t)) (eval-when-compile (declare-function eglot "eglot")) (unless (fboundp 'eglot-ensure) (autoload #'eglot-ensure "eglot" nil t)) (eval-when-compile (declare-function eglot-ensure "eglot")) (setq eglot-sync-connect 1 eglot-connect-timeout 10 eglot-autoshutdown t eglot-send-changes-idle-time 0.5 eglot-auto-display-help-buffer nil) (eval-after-load 'eglot '(progn (set-popup-rule! "^\*eglot-help" :size 0.15 :quit t :select t) (set-lookup-handlers! 'eglot--managed-mode :implementations #'eglot-find-implementation :type-definition #'eglot-find-typeDefinition :documentation #'+eglot-lookup-documentation) (add-to-list 'doom-debug-variables '(eglot-events-buffer-size . 0)) (when (featurep! :checkers syntax) (after! flycheck (load! "autoload/flycheck-eglot"))) (defadvice! +lsp--defer-server-shutdown-a (orig-fn &optional server) "Defer server shutdown for a few seconds.\nThis gives the user a chance to open other project files before the server is\nauto-killed (which is a potentially expensive process). It also prevents the\nserver getting expensively restarted when reverting buffers." :around #'eglot--managed-mode (letf! (defun eglot-shutdown (server) (if (or (null +lsp-defer-shutdown) (eq +lsp-defer-shutdown 0)) (prog1 (funcall eglot-shutdown server) (+lsp-optimization-mode -1)) (run-at-time (if (numberp +lsp-defer-shutdown) +lsp-defer-shutdown 3) nil (lambda (server) (unless (eglot--managed-buffers server) (prog1 (funcall eglot-shutdown server) (+lsp-optimization-mode -1)))) server))) (funcall orig-fn server))) t)) (add-hook 'eglot-managed-mode-hook #'+lsp-optimization-mode)))
(byte-compile-recurse-toplevel (use-package! eglot :commands eglot eglot-ensure :hook (eglot-managed-mode . +lsp-optimization-mode) :init (setq eglot-sync-connect 1 eglot-connect-timeout 10 eglot-autoshutdown t eglot-send-changes-idle-time 0.5 eglot-auto-display-help-buffer nil) :config (set-popup-rule! "^\*eglot-help" :size 0.15 :quit t :select t) (set-lookup-handlers! 'eglot--managed-mode :implementations #'eglot-find-implementation :type-definition #'eglot-find-typeDefinition :documentation #'+eglot-lookup-documentation) (add-to-list 'doom-debug-variables '(eglot-events-buffer-size . 0)) (when (featurep! :checkers syntax) (after! flycheck (load! "autoload/flycheck-eglot"))) (defadvice! +lsp--defer-server-shutdown-a (orig-fn &optional server) "Defer server shutdown for a few seconds.\nThis gives the user a chance to open other project files before the server is\nauto-killed (which is a potentially expensive process). It also prevents the\nserver getting expensively restarted when reverting buffers." :around #'eglot--managed-mode (letf! (defun eglot-shutdown (server) (if (or (null +lsp-defer-shutdown) (eq +lsp-defer-shutdown 0)) (prog1 (funcall eglot-shutdown server) (+lsp-optimization-mode -1)) (run-at-time (if (numberp +lsp-defer-shutdown) +lsp-defer-shutdown 3) nil (lambda (server) (unless (eglot--managed-buffers server) (prog1 (funcall eglot-shutdown server) (+lsp-optimization-mode -1)))) server))) (funcall orig-fn server)))) #[257 "\301\30\302\303\2\304"!)\207" [byte-compile-current-form nil byte-compile-file-form byte-compile-preprocess t] 5 "\n\n(fn FORM)"])
(byte-compile-toplevel-file-form (use-package! eglot :commands eglot eglot-ensure :hook (eglot-managed-mode . +lsp-optimization-mode) :init (setq eglot-sync-connect 1 eglot-connect-timeout 10 eglot-autoshutdown t eglot-send-changes-idle-time 0.5 eglot-auto-display-help-buffer nil) :config (set-popup-rule! "^\*eglot-help" :size 0.15 :quit t :select t) (set-lookup-handlers! 'eglot--managed-mode :implementations #'eglot-find-implementation :type-definition #'eglot-find-typeDefinition :documentation #'+eglot-lookup-documentation) (add-to-list 'doom-debug-variables '(eglot-events-buffer-size . 0)) (when (featurep! :checkers syntax) (after! flycheck (load! "autoload/flycheck-eglot"))) (defadvice! +lsp--defer-server-shutdown-a (orig-fn &optional server) "Defer server shutdown for a few seconds.\nThis gives the user a chance to open other project files before the server is\nauto-killed (which is a potentially expensive process). It also prevents the\nserver getting expensively restarted when reverting buffers." :around #'eglot--managed-mode (letf! (defun eglot-shutdown (server) (if (or (null +lsp-defer-shutdown) (eq +lsp-defer-shutdown 0)) (prog1 (funcall eglot-shutdown server) (+lsp-optimization-mode -1)) (run-at-time (if (numberp +lsp-defer-shutdown) +lsp-defer-shutdown 3) nil (lambda (server) (unless (eglot--managed-buffers server) (prog1 (funcall eglot-shutdown server) (+lsp-optimization-mode -1)))) server))) (funcall orig-fn server)))))