diff --git a/compiler/backend.lisp b/compiler/backend.lisp index 8bb432a2c207cd17d1cfbb938dfa5a8abcadfd87..4ba6d49e632dc7c6ae5d8f087d80cb0511f8c4c7 100644 --- a/compiler/backend.lisp +++ b/compiler/backend.lisp @@ -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))