From f74ab3e9ef7a5a63efdb4a7e0bca0c9cc71bf575 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sun, 8 Sep 2019 17:04:06 +0200 Subject: [PATCH] get right dependency during top level form evaluantion --- lisp/emacs-lisp/comp.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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 -- 2.39.5