fix top level macro generation

This commit is contained in:
Andrea Corallo 2019-11-04 23:38:37 +01:00
parent 9ee6b685a3
commit 9f15b4c3ca

View file

@ -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