fix top level macro generation
This commit is contained in:
parent
9ee6b685a3
commit
9f15b4c3ca
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue