From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 8 Sep 2019 15:04:06 +0000 (+0200)
Subject: get right dependency during top level form evaluantion
X-Git-Tag: emacs-28.0.90~2727^2~1198
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f74ab3e9ef7a5a63efdb4a7e0bca0c9cc71bf575;p=emacs.git

get right dependency during top level form evaluantion
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 811e03a5edb..c5c36e9eda8 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -282,11 +282,11 @@ Put PREFIX in front of it."
   "Byte compile FILENAME spilling data from the byte compiler."
   (byte-compile-file filename)
   (setf (comp-ctxt-top-level-defvars comp-ctxt)
-        (mapcar (lambda (x)
-                  (if (eq (car x) 'defvar)
-                      (cdr x)
-                    (cl-assert nil)))
-                byte-to-native-top-level-forms))
+        (reverse (mapcar (lambda (x)
+                           (if (eq (car x) 'defvar)
+                               (cdr x)
+                             (cl-assert nil)))
+                         byte-to-native-top-level-forms)))
   (cl-loop for (name lap bytecode) in byte-to-native-output
            for lambda-list = (aref bytecode 0)
            for func = (make-comp-func :symbol-name name