Skip to content
Snippets Groups Projects
Commit 8814e5de authored by wlott's avatar wlott
Browse files

Use *target-backend* when building the name for def-vm-support-routine, not

*backend*.
parent a35493d2
No related branches found
No related tags found
No related merge requests found
......@@ -72,7 +72,7 @@
(unless (member (intern (string name) (find-package "C"))
vm-support-routines)
(warn "Unknown VM support routine: ~A" name))
(let ((local-name (symbolicate (backend-name *backend*) "-" name)))
(let ((local-name (symbolicate (backend-name *target-backend*) "-" name)))
`(progn
(defun ,local-name ,ll ,@body)
(setf (,(intern (concatenate 'simple-string "BACKEND-" (string name))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment