From 8814e5de298e59465badc82f1f09adb9b27cb50b Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 13 Nov 1990 10:16:58 +0000 Subject: [PATCH] Use *target-backend* when building the name for def-vm-support-routine, not *backend*. --- compiler/backend.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/backend.lisp b/compiler/backend.lisp index 8bb432a2c..4ba6d49e6 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)) -- GitLab