From 01ffe7e78f2c0519d8096ea44f4064e11115afd6 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 16 Nov 1990 04:29:15 +0000
Subject: [PATCH] Tuck backend info into *target-backend* instead of *backend*.

---
 compiler/mips/parms.lisp | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/compiler/mips/parms.lisp b/compiler/mips/parms.lisp
index d5528e912..acfc22828 100644
--- a/compiler/mips/parms.lisp
+++ b/compiler/mips/parms.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.80 1990/11/03 15:34:32 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.81 1990/11/16 04:29:15 wlott Exp $
 ;;;
 ;;;    This file contains some parameterizations of various VM
 ;;; attributes for the MIPS.  This file is separate from other stuff so 
@@ -33,14 +33,14 @@
 
 (eval-when (compile eval load)
 
-(setf (backend-name *backend*) "PMAX")
-(setf (backend-version *backend*) "DECstation 3100/Mach 0.0")
-(setf (backend-fasl-file-type *backend*) "mips-fasl")
-(setf (backend-fasl-file-implementation *backend*)
+(setf (backend-name *target-backend*) "PMAX")
+(setf (backend-version *target-backend*) "DECstation 3100/Mach 0.0")
+(setf (backend-fasl-file-type *target-backend*) "mips-fasl")
+(setf (backend-fasl-file-implementation *target-backend*)
       pmax-fasl-file-implementation)
-(setf (backend-fasl-file-version *backend*) 1)
-(setf (backend-register-save-penalty *backend*) 3)
-(setf (backend-byte-order *backend*) :little-endian)
+(setf (backend-fasl-file-version *target-backend*) 1)
+(setf (backend-register-save-penalty *target-backend*) 3)
+(setf (backend-byte-order *target-backend*) :little-endian)
 
 ); eval-when
 
-- 
GitLab