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