Commit 8814e5de authored by wlott's avatar wlott
Browse files

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

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