search

syl20bnr / spacemacs

A community-driven Emacs distribution - The best editor is neither Emacs nor Vim, it's Emacs *and* Vim!
http://spacemacs.org
GNU General Public License v3.0
23.7k stars 4.9k forks source link

Change to org-mode startup breaks startup #15865

Closed opie4624 closed 1 year ago

opie4624 commented 1 year ago

Description :octocat:

Commit 7991003a086622b03b30184aa51b45373823a2c8 from PR #15851 breaks Spacemacs startup on Mac (found via git bisect) Emacs 28.2 for Mac, Cask via Homebrew Mac OS 12.6 (21G115) M1

Reproduction guide :beetle:

Observed behaviour: :eyes: :broken_heart:

Expected behaviour: :heart: :smile:

Backtrace :paw_prints:

Debugger entered--Lisp error: (wrong-type-argument listp #f(compiled-function (&optional unrestricted archives) "Get the list of agenda files.\nOptional UNRESTRICTED means return the full list even if a restriction\nis currently in place.\nWhen ARCHIVES is t, include all archive files that are really being\nused by the agenda files.  If ARCHIVE is `ifmode', do this only if\n`org-agenda-archives-mode' is t." #<bytecode -0x6a0fb57cdabf43e>))
  car(#f(compiled-function (&optional unrestricted archives) "Get the list of agenda files.\nOptional UNRESTRICTED means return the full list even if a restriction\nis currently in place.\nWhen ARCHIVES is t, include all archive files that are really being\nused by the agenda files.  If ARCHIVE is `ifmode', do this only if\n`org-agenda-archives-mode' is t." #<bytecode -0x6a0fb57cdabf43e>))
  (eq 'autoload (car (symbol-function 'org-agenda-files)))
  (or (not (fboundp 'org-agenda-files)) (eq 'autoload (car (symbol-function 'org-agenda-files))))
  (if (or (not (fboundp 'org-agenda-files)) (eq 'autoload (car (symbol-function 'org-agenda-files)))) (and (boundp 'org-agenda-files) org-agenda-files) (org-agenda-files))
  (let ((default-directory (or (and (boundp 'org-directory) org-directory) default-directory)) (files (if (or (not (fboundp 'org-agenda-files)) (eq 'autoload (car (symbol-function ...)))) (and (boundp 'org-agenda-files) org-agenda-files) (org-agenda-files)))) (mapcar #'expand-file-name files))
  (let ((agenda-files (let ((default-directory (or (and ... org-directory) default-directory)) (files (if (or ... ...) (and ... org-agenda-files) (org-agenda-files)))) (mapcar #'expand-file-name files))) (ignore-directory (or (and (boundp 'org-directory) (expand-file-name org-directory)) "")) (recent-files-list)) (let* ((--cl-var-- recentf-list) (rfile nil) (--cl-var-- nil)) (while (and (consp --cl-var--) (progn (setq rfile (car --cl-var--)) (length< recent-files-list list-size))) (setq --cl-var-- (cons (let ((full-path ...)) (if (or ... ...) nil (if ... recent-files-list ...))) --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)) (if (spacemacs-buffer//insert-file-list (concat (if dotspacemacs-startup-buffer-show-icons (progn (concat (if dotspacemacs-startup-buffer-show-icons ...) " "))) (propertize "Recent Files:" 'face 'font-lock-keyword-face) (propertize (concat " (" "r" ")") 'face 'font-lock-comment-face)) recent-files-list) (progn (progn (defalias 'spacemacs-buffer/jump-to-recent-files #'(lambda nil (interactive) (if ... nil ...) (forward-line 1) (back-to-indentation))) (define-key spacemacs-buffer-mode-map "r" 'spacemacs-buffer/jump-to-recent-files)))))
  spacemacs-buffer//insert-recent-files(5)
  (cond ((eq el 'warnings) (spacemacs-buffer//insert-errors) (spacemacs-buffer//insert-warnings)) ((eq el 'recents) (spacemacs-buffer//insert-recent-files list-size)) ((and (eq el 'recents-by-project) (fboundp 'projectile-mode)) (spacemacs-buffer//insert-recent-files-by-project list-size)) ((eq el 'todos) (spacemacs-buffer//insert-todos list-size)) ((eq el 'agenda) (spacemacs-buffer//insert-agenda list-size)) ((eq el 'bookmarks) (spacemacs-buffer//insert-bookmarks list-size)) ((and (eq el 'projects) (fboundp 'projectile-mode)) (spacemacs-buffer//insert-projects list-size)))
  (let ((el (or (car-safe els) els)) (list-size (or (cdr-safe els) spacemacs-buffer-startup-lists-length))) (cond ((eq el 'warnings) (spacemacs-buffer//insert-errors) (spacemacs-buffer//insert-warnings)) ((eq el 'recents) (spacemacs-buffer//insert-recent-files list-size)) ((and (eq el 'recents-by-project) (fboundp 'projectile-mode)) (spacemacs-buffer//insert-recent-files-by-project list-size)) ((eq el 'todos) (spacemacs-buffer//insert-todos list-size)) ((eq el 'agenda) (spacemacs-buffer//insert-agenda list-size)) ((eq el 'bookmarks) (spacemacs-buffer//insert-bookmarks list-size)) ((and (eq el 'projects) (fboundp 'projectile-mode)) (spacemacs-buffer//insert-projects list-size))))
  (let ((els (car --dolist-tail--))) (let ((el (or (car-safe els) els)) (list-size (or (cdr-safe els) spacemacs-buffer-startup-lists-length))) (cond ((eq el 'warnings) (spacemacs-buffer//insert-errors) (spacemacs-buffer//insert-warnings)) ((eq el 'recents) (spacemacs-buffer//insert-recent-files list-size)) ((and (eq el 'recents-by-project) (fboundp 'projectile-mode)) (spacemacs-buffer//insert-recent-files-by-project list-size)) ((eq el 'todos) (spacemacs-buffer//insert-todos list-size)) ((eq el 'agenda) (spacemacs-buffer//insert-agenda list-size)) ((eq el 'bookmarks) (spacemacs-buffer//insert-bookmarks list-size)) ((and (eq el 'projects) (fboundp 'projectile-mode)) (spacemacs-buffer//insert-projects list-size)))) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (while --dolist-tail-- (let ((els (car --dolist-tail--))) (let ((el (or (car-safe els) els)) (list-size (or (cdr-safe els) spacemacs-buffer-startup-lists-length))) (cond ((eq el 'warnings) (spacemacs-buffer//insert-errors) (spacemacs-buffer//insert-warnings)) ((eq el 'recents) (spacemacs-buffer//insert-recent-files list-size)) ((and (eq el 'recents-by-project) (fboundp 'projectile-mode)) (spacemacs-buffer//insert-recent-files-by-project list-size)) ((eq el 'todos) (spacemacs-buffer//insert-todos list-size)) ((eq el 'agenda) (spacemacs-buffer//insert-agenda list-size)) ((eq el 'bookmarks) (spacemacs-buffer//insert-bookmarks list-size)) ((and (eq el 'projects) (fboundp 'projectile-mode)) (spacemacs-buffer//insert-projects list-size)))) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (let ((--dolist-tail-- (append '(warnings) dotspacemacs-startup-lists))) (while --dolist-tail-- (let ((els (car --dolist-tail--))) (let ((el (or (car-safe els) els)) (list-size (or (cdr-safe els) spacemacs-buffer-startup-lists-length))) (cond ((eq el 'warnings) (spacemacs-buffer//insert-errors) (spacemacs-buffer//insert-warnings)) ((eq el 'recents) (spacemacs-buffer//insert-recent-files list-size)) ((and (eq el ...) (fboundp ...)) (spacemacs-buffer//insert-recent-files-by-project list-size)) ((eq el 'todos) (spacemacs-buffer//insert-todos list-size)) ((eq el 'agenda) (spacemacs-buffer//insert-agenda list-size)) ((eq el 'bookmarks) (spacemacs-buffer//insert-bookmarks list-size)) ((and (eq el ...) (fboundp ...)) (spacemacs-buffer//insert-projects list-size)))) (setq --dolist-tail-- (cdr --dolist-tail--)))))
  (let ((dotspacemacs-startup-buffer-show-icons dotspacemacs-startup-buffer-show-icons)) (if (display-graphic-p) (if (configuration-layer/package-used-p 'all-the-icons) nil (message "Package `all-the-icons' isn't installed") (setq dotspacemacs-startup-buffer-show-icons nil)) (setq dotspacemacs-startup-buffer-show-icons nil)) (if dotspacemacs-startup-buffer-show-icons (progn (require 'all-the-icons))) (let ((--dolist-tail-- (append '(warnings) dotspacemacs-startup-lists))) (while --dolist-tail-- (let ((els (car --dolist-tail--))) (let ((el (or ... els)) (list-size (or ... spacemacs-buffer-startup-lists-length))) (cond ((eq el ...) (spacemacs-buffer//insert-errors) (spacemacs-buffer//insert-warnings)) ((eq el ...) (spacemacs-buffer//insert-recent-files list-size)) ((and ... ...) (spacemacs-buffer//insert-recent-files-by-project list-size)) ((eq el ...) (spacemacs-buffer//insert-todos list-size)) ((eq el ...) (spacemacs-buffer//insert-agenda list-size)) ((eq el ...) (spacemacs-buffer//insert-bookmarks list-size)) ((and ... ...) (spacemacs-buffer//insert-projects list-size)))) (setq --dolist-tail-- (cdr --dolist-tail--))))))
  spacemacs-buffer//do-insert-startupify-lists()
  (progn (spacemacs-buffer//do-insert-startupify-lists) (recentf-mode -1) (line-number-at-pos))
  (unwind-protect (progn (spacemacs-buffer//do-insert-startupify-lists) (recentf-mode -1) (line-number-at-pos)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (spacemacs-buffer//do-insert-startupify-lists) (recentf-mode -1) (line-number-at-pos)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
  (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (spacemacs-buffer//do-insert-startupify-lists) (recentf-mode -1) (line-number-at-pos)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
  (setq lines (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (spacemacs-buffer//do-insert-startupify-lists) (recentf-mode -1) (line-number-at-pos)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))
  (let ((icons dotspacemacs-startup-buffer-show-icons) lines) (setq dotspacemacs-startup-buffer-show-icons nil) (setq lines (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (spacemacs-buffer//do-insert-startupify-lists) (recentf-mode -1) (line-number-at-pos)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (setq dotspacemacs-startup-buffer-show-icons icons) lines)
  (let* ((startup-list-line-height (let ((icons dotspacemacs-startup-buffer-show-icons) lines) (setq dotspacemacs-startup-buffer-show-icons nil) (setq lines (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...)))) (setq dotspacemacs-startup-buffer-show-icons icons) lines)) (image-height (- (window-text-height) 26 startup-list-line-height))) (max image-height 3))
  spacemacs-buffer//banner-fit-height-size()
  (float (spacemacs-buffer//banner-fit-height-size))
  (/ (float (spacemacs-buffer//banner-fit-height-size)) height)
  (let ((factor (/ (float (spacemacs-buffer//banner-fit-height-size)) height))) (min factor 1))
  (let nil (let ((factor (/ (float (spacemacs-buffer//banner-fit-height-size)) height))) (min factor 1)))
  (if (eq dotspacemacs-startup-banner-scale 'auto) (let nil (let ((factor (/ (float (spacemacs-buffer//banner-fit-height-size)) height))) (min factor 1))) (let ((factor dotspacemacs-startup-banner-scale)) factor))
  (let* ((title spacemacs-buffer-logo-title) (spec (create-image banner)) (unscaled-size (image-size spec)) (height (cdr unscaled-size)) (scale (if (eq dotspacemacs-startup-banner-scale 'auto) (let nil (let ((factor ...)) (min factor 1))) (let ((factor dotspacemacs-startup-banner-scale)) factor))) (size (cons (* scale (car unscaled-size)) (* scale (cdr unscaled-size)))) (width (car size)) (left-margin (max 0 (floor (- spacemacs-buffer--window-width width) 2)))) (plist-put (cdr spec) :scale scale) (insert (make-string left-margin 32)) (insert-image spec) (insert "\n\n") (insert (make-string (max 0 (floor (/ (- spacemacs-buffer--window-width (+ ... 1)) 2))) 32)) (insert (format "%s\n\n" title)))
  (progn (let* ((title spacemacs-buffer-logo-title) (spec (create-image banner)) (unscaled-size (image-size spec)) (height (cdr unscaled-size)) (scale (if (eq dotspacemacs-startup-banner-scale 'auto) (let nil (let (...) (min factor 1))) (let ((factor dotspacemacs-startup-banner-scale)) factor))) (size (cons (* scale (car unscaled-size)) (* scale (cdr unscaled-size)))) (width (car size)) (left-margin (max 0 (floor (- spacemacs-buffer--window-width width) 2)))) (plist-put (cdr spec) :scale scale) (insert (make-string left-margin 32)) (insert-image spec) (insert "\n\n") (insert (make-string (max 0 (floor (/ (- spacemacs-buffer--window-width ...) 2))) 32)) (insert (format "%s\n\n" title))))
  (if (file-exists-p banner) (progn (let* ((title spacemacs-buffer-logo-title) (spec (create-image banner)) (unscaled-size (image-size spec)) (height (cdr unscaled-size)) (scale (if (eq dotspacemacs-startup-banner-scale 'auto) (let nil (let ... ...)) (let (...) factor))) (size (cons (* scale (car unscaled-size)) (* scale (cdr unscaled-size)))) (width (car size)) (left-margin (max 0 (floor (- spacemacs-buffer--window-width width) 2)))) (plist-put (cdr spec) :scale scale) (insert (make-string left-margin 32)) (insert-image spec) (insert "\n\n") (insert (make-string (max 0 (floor (/ ... 2))) 32)) (insert (format "%s\n\n" title)))))
  spacemacs-buffer//insert-image-banner("/Users/akraut/.emacs.d/core/../core/banners/img/sp...")
  (if (image-type-available-p (intern (file-name-extension banner))) (spacemacs-buffer//insert-image-banner banner) (spacemacs-buffer//insert-ascii-banner-centered banner))
  (progn (spacemacs-buffer/message (format "Banner: %s" banner)) (if (image-type-available-p (intern (file-name-extension banner))) (spacemacs-buffer//insert-image-banner banner) (spacemacs-buffer//insert-ascii-banner-centered banner)))
  (if banner (progn (spacemacs-buffer/message (format "Banner: %s" banner)) (if (image-type-available-p (intern (file-name-extension banner))) (spacemacs-buffer//insert-image-banner banner) (spacemacs-buffer//insert-ascii-banner-centered banner))))
  (let ((banner (spacemacs-buffer//choose-banner)) (buffer-read-only nil)) (if banner (progn (spacemacs-buffer/message (format "Banner: %s" banner)) (if (image-type-available-p (intern (file-name-extension banner))) (spacemacs-buffer//insert-image-banner banner) (spacemacs-buffer//insert-ascii-banner-centered banner)))) (spacemacs-buffer//insert-buttons) (spacemacs//redisplay))
  spacemacs-buffer/insert-banner-and-buttons()
  (save-excursion (if (> (buffer-size) 0) (progn (setq save-line (line-number-at-pos)) (let ((inhibit-read-only t)) (erase-buffer)))) (spacemacs-buffer/set-mode-line "") (if dotspacemacs-startup-buffer-show-version (spacemacs-buffer//insert-version) (let ((inhibit-read-only t)) (insert "\n"))) (spacemacs-buffer/insert-banner-and-buttons) (if (and (boundp 'spacemacs-initialized) spacemacs-initialized) (progn (spacemacs-buffer//notes-redisplay-current-note) (if dotspacemacs-startup-lists (progn (spacemacs-buffer/insert-startup-lists))) (spacemacs-buffer//insert-footer) (configuration-layer/display-summary emacs-start-time) (spacemacs-buffer/set-mode-line spacemacs--default-mode-line) (force-mode-line-update) (spacemacs-buffer-mode))))
  (save-current-buffer (set-buffer (get-buffer-create spacemacs-buffer-name)) (page-break-lines-mode) (save-excursion (if (> (buffer-size) 0) (progn (setq save-line (line-number-at-pos)) (let ((inhibit-read-only t)) (erase-buffer)))) (spacemacs-buffer/set-mode-line "") (if dotspacemacs-startup-buffer-show-version (spacemacs-buffer//insert-version) (let ((inhibit-read-only t)) (insert "\n"))) (spacemacs-buffer/insert-banner-and-buttons) (if (and (boundp 'spacemacs-initialized) spacemacs-initialized) (progn (spacemacs-buffer//notes-redisplay-current-note) (if dotspacemacs-startup-lists (progn (spacemacs-buffer/insert-startup-lists))) (spacemacs-buffer//insert-footer) (configuration-layer/display-summary emacs-start-time) (spacemacs-buffer/set-mode-line spacemacs--default-mode-line) (force-mode-line-update) (spacemacs-buffer-mode)))) (if save-line (progn (goto-char (point-min)) (forward-line (1- save-line)) (forward-to-indentation 0)) (spacemacs-buffer/goto-link-line)))
  (progn (setq spacemacs-buffer--window-width (if dotspacemacs-startup-buffer-responsive (window-width) 80) spacemacs-buffer--last-width spacemacs-buffer--window-width) (save-current-buffer (set-buffer (get-buffer-create spacemacs-buffer-name)) (page-break-lines-mode) (save-excursion (if (> (buffer-size) 0) (progn (setq save-line (line-number-at-pos)) (let ((inhibit-read-only t)) (erase-buffer)))) (spacemacs-buffer/set-mode-line "") (if dotspacemacs-startup-buffer-show-version (spacemacs-buffer//insert-version) (let ((inhibit-read-only t)) (insert "\n"))) (spacemacs-buffer/insert-banner-and-buttons) (if (and (boundp 'spacemacs-initialized) spacemacs-initialized) (progn (spacemacs-buffer//notes-redisplay-current-note) (if dotspacemacs-startup-lists (progn (spacemacs-buffer/insert-startup-lists))) (spacemacs-buffer//insert-footer) (configuration-layer/display-summary emacs-start-time) (spacemacs-buffer/set-mode-line spacemacs--default-mode-line) (force-mode-line-update) (spacemacs-buffer-mode)))) (if save-line (progn (goto-char (point-min)) (forward-line (1- save-line)) (forward-to-indentation 0)) (spacemacs-buffer/goto-link-line))) (if current-prefix-arg (switch-to-buffer-other-window spacemacs-buffer-name) (switch-to-buffer spacemacs-buffer-name)) (spacemacs//redisplay))
  (if (or (not (eq spacemacs-buffer--last-width (window-width))) (not buffer-exists) refresh) (progn (setq spacemacs-buffer--window-width (if dotspacemacs-startup-buffer-responsive (window-width) 80) spacemacs-buffer--last-width spacemacs-buffer--window-width) (save-current-buffer (set-buffer (get-buffer-create spacemacs-buffer-name)) (page-break-lines-mode) (save-excursion (if (> (buffer-size) 0) (progn (setq save-line (line-number-at-pos)) (let (...) (erase-buffer)))) (spacemacs-buffer/set-mode-line "") (if dotspacemacs-startup-buffer-show-version (spacemacs-buffer//insert-version) (let ((inhibit-read-only t)) (insert "\n"))) (spacemacs-buffer/insert-banner-and-buttons) (if (and (boundp 'spacemacs-initialized) spacemacs-initialized) (progn (spacemacs-buffer//notes-redisplay-current-note) (if dotspacemacs-startup-lists (progn ...)) (spacemacs-buffer//insert-footer) (configuration-layer/display-summary emacs-start-time) (spacemacs-buffer/set-mode-line spacemacs--default-mode-line) (force-mode-line-update) (spacemacs-buffer-mode)))) (if save-line (progn (goto-char (point-min)) (forward-line (1- save-line)) (forward-to-indentation 0)) (spacemacs-buffer/goto-link-line))) (if current-prefix-arg (switch-to-buffer-other-window spacemacs-buffer-name) (switch-to-buffer spacemacs-buffer-name)) (spacemacs//redisplay)))
  (let ((buffer-exists (buffer-live-p (get-buffer spacemacs-buffer-name))) (save-line nil)) (if (not buffer-exists) (progn (setq spacemacs-buffer--note-widgets nil))) (if (or (not (eq spacemacs-buffer--last-width (window-width))) (not buffer-exists) refresh) (progn (setq spacemacs-buffer--window-width (if dotspacemacs-startup-buffer-responsive (window-width) 80) spacemacs-buffer--last-width spacemacs-buffer--window-width) (save-current-buffer (set-buffer (get-buffer-create spacemacs-buffer-name)) (page-break-lines-mode) (save-excursion (if (> (buffer-size) 0) (progn (setq save-line ...) (let ... ...))) (spacemacs-buffer/set-mode-line "") (if dotspacemacs-startup-buffer-show-version (spacemacs-buffer//insert-version) (let (...) (insert "\n"))) (spacemacs-buffer/insert-banner-and-buttons) (if (and (boundp ...) spacemacs-initialized) (progn (spacemacs-buffer//notes-redisplay-current-note) (if dotspacemacs-startup-lists ...) (spacemacs-buffer//insert-footer) (configuration-layer/display-summary emacs-start-time) (spacemacs-buffer/set-mode-line spacemacs--default-mode-line) (force-mode-line-update) (spacemacs-buffer-mode)))) (if save-line (progn (goto-char (point-min)) (forward-line (1- save-line)) (forward-to-indentation 0)) (spacemacs-buffer/goto-link-line))) (if current-prefix-arg (switch-to-buffer-other-window spacemacs-buffer-name) (switch-to-buffer spacemacs-buffer-name)) (spacemacs//redisplay))))
  spacemacs-buffer/goto-buffer()
  spacemacs/init()
  (let ((please-do-not-disable-file-name-handler-alist nil)) (require 'core-spacemacs) (spacemacs/dump-restore-load-path) (configuration-layer/load-lock-file) (spacemacs/init) (configuration-layer/stable-elpa-init) (configuration-layer/load) (spacemacs-buffer/display-startup-note) (spacemacs/setup-startup-hook) (spacemacs/dump-eval-delayed-functions) (if (and dotspacemacs-enable-server (not (spacemacs-is-dumping-p))) (progn (require 'server) (if dotspacemacs-server-socket-dir (progn (setq server-socket-dir dotspacemacs-server-socket-dir))) (if (server-running-p) nil (message "Starting a server...") (server-start)))))
  (if (not (version<= spacemacs-emacs-min-version emacs-version)) (error (concat "Your version of Emacs (%s) is too old. " "Spacemacs requires Emacs version %s or above.") emacs-version spacemacs-emacs-min-version) (let ((please-do-not-disable-file-name-handler-alist nil)) (require 'core-spacemacs) (spacemacs/dump-restore-load-path) (configuration-layer/load-lock-file) (spacemacs/init) (configuration-layer/stable-elpa-init) (configuration-layer/load) (spacemacs-buffer/display-startup-note) (spacemacs/setup-startup-hook) (spacemacs/dump-eval-delayed-functions) (if (and dotspacemacs-enable-server (not (spacemacs-is-dumping-p))) (progn (require 'server) (if dotspacemacs-server-socket-dir (progn (setq server-socket-dir dotspacemacs-server-socket-dir))) (if (server-running-p) nil (message "Starting a server...") (server-start))))))
  eval-buffer(#<buffer  *load*> nil "/Users/akraut/.emacs.d/init.el" nil t)  ; Reading at buffer position 3365
  load-with-code-conversion("/Users/akraut/.emacs.d/init.el" "/Users/akraut/.emacs.d/init.el" t t)
  load("/Users/akraut/.emacs.d/init" noerror nomessage)
  startup--load-user-init-file(#f(compiled-function () #<bytecode -0x148f8f60c1f35a7>) #f(compiled-function () #<bytecode -0x1f3c686ddc0d6275>) t)
  command-line()
  normal-top-level()
opie4624 commented 1 year ago

Perhaps a duplicate of #15861

opie4624 commented 1 year ago

Dupe of #15861