From 0ca90c5ca30a46dfb7ad020f5fd6d37c88744f50 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sun, 22 Mar 1992 17:29:20 +0000
Subject: [PATCH] Fixed two uses of BACKEND-VM-SUPPORT-ROUTINES to be
 BACKEND-SUPPORT-ROUTINES and added a stub for BACKEND-VM-SUPPORT-ROUTINES so
 that we don't have to recompile everything.

---
 compiler/backend.lisp | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/compiler/backend.lisp b/compiler/backend.lisp
index 1fef0e3c9..30380b086 100644
--- a/compiler/backend.lisp
+++ b/compiler/backend.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/backend.lisp,v 1.16 1992/03/21 19:39:02 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/backend.lisp,v 1.17 1992/03/22 17:29:20 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -170,7 +170,7 @@
 	#'(lambda (name)
 	    `(defun ,name (&rest args)
 	       (apply (or (,(symbolicate "VM-SUPPORT-ROUTINES-" name)
-			   (backend-vm-support-routines *backend*))
+			   (backend-support-routines *backend*))
 			  (error "Machine specific support routine ~S ~
 				  undefined for ~S"
 				 ',name *backend*))
@@ -225,7 +225,7 @@
 				    "VM-SUPPORT-ROUTINES-"
 				    (string name))
 		       (find-package "C"))
-	      (backend-vm-support-routines *target-backend*))
+	      (backend-support-routines *target-backend*))
 	     #',local-name))))
 
 
@@ -306,3 +306,10 @@
 		  :%features features
 		  :misfeatures misfeatures)))
     (setf *target-backend* backend)))
+
+
+
+;;;; temporary hack.
+
+(defun backend-vm-support-routines (backend)
+  (backend-support-routines backend))
-- 
GitLab