diff --git a/core/cli/packages.el b/core/cli/packages.el index 7ad4b6b9a..d0775a858 100644 --- a/core/cli/packages.el +++ b/core/cli/packages.el @@ -224,20 +224,23 @@ list remains lean." (defun doom--write-missing-eln-errors () "Write .error files for any expected .eln files that are missing." - (cl-loop for file in doom--eln-output-expected - for eln-name = (doom--eln-file-name file) - for eln-file = (doom--eln-output-file eln-name) - for error-file = (doom--eln-error-file eln-name) - unless (or (file-exists-p eln-file) - (file-newer-than-file-p error-file file)) - do (make-directory (file-name-directory error-file) 'parents) - (write-region "" nil error-file) - (doom-log "Wrote %s" error-file)) - (setq doom--eln-output-expected nil)) + (when (and (require 'comp nil t) + (ignore-errors (native-comp-available-p))) + (cl-loop for file in doom--eln-output-expected + for eln-name = (doom--eln-file-name file) + for eln-file = (doom--eln-output-file eln-name) + for error-file = (doom--eln-error-file eln-name) + unless (or (file-exists-p eln-file) + (file-newer-than-file-p error-file file)) + do (make-directory (file-name-directory error-file) 'parents) + (write-region "" nil error-file) + (doom-log "Wrote %s" error-file)) + (setq doom--eln-output-expected nil))) (defun doom--compile-site-packages () "Queue async compilation for all non-doom Elisp files." - (when (featurep 'comp) + (when (and (featurep 'comp) + (ignore-errors (native-comp-available-p))) (cl-loop with paths = (cl-loop for path in load-path unless (string-prefix-p doom-local-dir path) collect path)