diff --git a/lisp/startup.el b/lisp/startup.el index f4216f7c4cb..60aaa76002f 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -521,7 +521,7 @@ DIRS are relative." (defvar comp--loadable) (defvar comp--delayed-sources) -(defun startup--require-comp-safetly () +(defun startup--require-comp-safely () "Require the native compiler avoiding circular dependencies." (unless (featurep 'comp) ;; Require comp with `comp--loadable' set to nil to break @@ -537,7 +537,7 @@ DIRS are relative." "Honor pending delayed deferred native compilations." (when (and (native-comp-available-p) comp--delayed-sources) - (startup--require-comp-safetly)) + (startup--require-comp-safely)) (setq comp--loadable t)) (defvar native-comp-eln-load-path) diff --git a/src/comp.c b/src/comp.c index 66288988fd8..56e583eb5c8 100644 --- a/src/comp.c +++ b/src/comp.c @@ -5132,7 +5132,7 @@ maybe_defer_native_compilation (Lisp_Object function_name, if (comp__loadable) { /* Startup is done, comp is usable. */ - CALL0I(startup--require-comp-safetly); + CALL0I (startup--require-comp-safely); Fputhash (function_name, definition, Vcomp_deferred_pending_h); CALLN (Ffuncall, intern_c_string ("native--compile-async"), src, Qnil, Qlate);