From 9f15b4c3ca98e6af3dfe61f70d0043ae896167ac Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Mon, 4 Nov 2019 23:38:37 +0100 Subject: [PATCH] fix top level macro generation --- lisp/emacs-lisp/bytecomp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index a4bdbacf76f..836377b4df3 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -2712,7 +2712,7 @@ not to take responsibility for the actual compilation of the code." ;; Spill output for the native compiler here. (push (if macro (make-byte-to-native-top-level - :form `(defalias ,name (macro . ,code) nil)) + :form `(defalias ',name '(macro . ,code) nil)) (make-byte-to-native-function :name name :data code)) byte-to-native-top-level-forms)) ;; Output the form by hand, that's much simpler than having -- 2.39.5