feature/native-comp 7565a4a 5/9: Command late load when deferring compilation

[Andrea Corallo]

branch: feature/native-comp
commit 7565a4a1170bf36352ffd7283c18ac1843ae8123
Author: Andrea Corallo <address@hidden>
Commit: Andrea Corallo <address@hidden>

    Command late load when deferring compilation
---
 lisp/emacs-lisp/comp.el | 4 +++-
 src/comp.c              | 4 +++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index f1e99c5..44de274 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -41,7 +41,9 @@
   :group 'lisp)
 
 (defcustom comp-deferred-compilation nil
-  "If t compile asyncronously all lexically bound .elc files being loaded."
+  "If t compile asyncronously all lexically bound .elc files being loaded.
+Once compilation happened each function definition is updated to
+the native compiled one."
   :type 'boolean
   :group 'comp)
 
diff --git a/src/comp.c b/src/comp.c
index 3f2b45c..d645b59 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -3381,7 +3381,8 @@ maybe_defer_native_compilation (Lisp_Object function_name,
     concat2 (CALL1I (file-name-sans-extension, Vload_file_name),
             build_pure_c_string (".el"));
   if (!NILP (Ffile_exists_p (src)))
-    CALLN (Ffuncall, intern_c_string ("native-compile-async"), src, Qnil);
+    CALLN (Ffuncall, intern_c_string ("native-compile-async"), src, Qnil,
+          Qlate);
 }
 
 
@@ -3639,6 +3640,7 @@ syms_of_comp (void)
   /* Others.  */
   DEFSYM (Qfixnum, "fixnum");
   DEFSYM (Qscratch, "scratch");
+  DEFSYM (Qlate, "late");
 
   /* To be signaled by the compiler.  */
   DEFSYM (Qnative_compiler_error, "native-compiler-error");