From ac7c4ccc08b37062f2d285754a0e40ce797c93fb Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 3 Nov 1990 03:26:01 +0000
Subject: [PATCH] Put all the vm-specific code in a vm-specific package (MIPS
 in this case).

---
 compiler/mips/alloc.lisp     | 4 ++--
 compiler/mips/arith.lisp     | 4 ++--
 compiler/mips/array.lisp     | 4 ++--
 compiler/mips/cell.lisp      | 4 ++--
 compiler/mips/char.lisp      | 4 ++--
 compiler/mips/debug.lisp     | 6 +++---
 compiler/mips/float.lisp     | 4 ++--
 compiler/mips/macros.lisp    | 4 ++--
 compiler/mips/memory.lisp    | 4 ++--
 compiler/mips/move.lisp      | 4 ++--
 compiler/mips/pred.lisp      | 4 ++--
 compiler/mips/print.lisp     | 4 ++--
 compiler/mips/sap.lisp       | 4 ++--
 compiler/mips/static-fn.lisp | 4 ++--
 compiler/mips/subprim.lisp   | 4 ++--
 compiler/mips/system.lisp    | 4 ++--
 compiler/mips/type-vops.lisp | 4 ++--
 compiler/mips/values.lisp    | 4 ++--
 18 files changed, 37 insertions(+), 37 deletions(-)

diff --git a/compiler/mips/alloc.lisp b/compiler/mips/alloc.lisp
index 2d23812bf..27497b6ff 100644
--- a/compiler/mips/alloc.lisp
+++ b/compiler/mips/alloc.lisp
@@ -7,14 +7,14 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/alloc.lisp,v 1.12 1990/09/21 00:48:01 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/alloc.lisp,v 1.13 1990/11/03 03:24:27 wlott Exp $
 ;;;
 ;;; Allocation VOPs for the MIPS port.
 ;;;
 ;;; Written by William Lott.
 ;;; 
 
-(in-package "C")
+(in-package "MIPS")
 
 
 ;;;; LIST and LIST*
diff --git a/compiler/mips/arith.lisp b/compiler/mips/arith.lisp
index d8aa4f6c3..9aaa2ad71 100644
--- a/compiler/mips/arith.lisp
+++ b/compiler/mips/arith.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/arith.lisp,v 1.36 1990/11/01 17:14:52 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/arith.lisp,v 1.37 1990/11/03 03:25:10 wlott Exp $
 ;;;
 ;;;    This file contains the VM definition arithmetic VOPs for the MIPS.
 ;;;
@@ -16,7 +16,7 @@
 ;;; Converted by William Lott.
 ;;; 
 
-(in-package "C")
+(in-package "MIPS")
 
 
 
diff --git a/compiler/mips/array.lisp b/compiler/mips/array.lisp
index 10ef34423..b16a11bd8 100644
--- a/compiler/mips/array.lisp
+++ b/compiler/mips/array.lisp
@@ -7,13 +7,13 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/array.lisp,v 1.27 1990/11/01 17:16:34 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/array.lisp,v 1.28 1990/11/03 03:25:14 wlott Exp $
 ;;;
 ;;;    This file contains the MIPS definitions for array operations.
 ;;;
 ;;; Written by William Lott
 ;;;
-(in-package "C")
+(in-package "MIPS")
 
 
 ;;;; Allocator for the array header.
diff --git a/compiler/mips/cell.lisp b/compiler/mips/cell.lisp
index 19ab7f43f..4543eb1cd 100644
--- a/compiler/mips/cell.lisp
+++ b/compiler/mips/cell.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.46 1990/10/10 12:54:07 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.47 1990/11/03 03:25:19 wlott Exp $
 ;;;
 ;;;    This file contains the VM definition of various primitive memory access
 ;;; VOPs for the MIPS.
@@ -17,7 +17,7 @@
 ;;; Converted by William Lott.
 ;;; 
 
-(in-package "C")
+(in-package "MIPS")
 
 
 ;;;; Data object definition macros.
diff --git a/compiler/mips/char.lisp b/compiler/mips/char.lisp
index dcd6ff732..ffb02b025 100644
--- a/compiler/mips/char.lisp
+++ b/compiler/mips/char.lisp
@@ -7,14 +7,14 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/char.lisp,v 1.9 1990/07/02 09:33:10 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/char.lisp,v 1.10 1990/11/03 03:25:27 wlott Exp $
 ;;; 
 ;;; This file contains the RT VM definition of character operations.
 ;;;
 ;;; Written by Rob MacLachlan
 ;;; Converted for the MIPS R2000 by Christopher Hoover.
 ;;;
-(in-package "C")
+(in-package "MIPS")
 
 
 
diff --git a/compiler/mips/debug.lisp b/compiler/mips/debug.lisp
index 371357be5..aa1ff41ac 100644
--- a/compiler/mips/debug.lisp
+++ b/compiler/mips/debug.lisp
@@ -7,13 +7,13 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/debug.lisp,v 1.4 1990/07/02 04:48:43 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/debug.lisp,v 1.5 1990/11/03 03:25:29 wlott Exp $
 ;;;
 ;;; Compiler support for the new whizzy debugger.
 ;;;
 ;;; Written by William Lott.
 ;;; 
-(in-package "C")
+(in-package "MIPS")
 
 (in-package "DI")
 (import '(c::current-fp))
@@ -21,7 +21,7 @@
 		     function-code-header make-lisp-obj get-lisp-obj-address)
 	(find-package "C"))
 
-(in-package "C")
+(in-package "MIPS")
 
 
 (defknown current-sp () system-area-pointer (movable flushable))
diff --git a/compiler/mips/float.lisp b/compiler/mips/float.lisp
index 428c2a8b9..918825676 100644
--- a/compiler/mips/float.lisp
+++ b/compiler/mips/float.lisp
@@ -7,13 +7,13 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/float.lisp,v 1.9 1990/10/24 16:23:11 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/float.lisp,v 1.10 1990/11/03 03:25:31 wlott Exp $
 ;;;
 ;;;    This file contains floating point support for the MIPS.
 ;;;
 ;;; Written by Rob MacLachlan
 ;;;
-(in-package "C")
+(in-package "MIPS")
 
 
 ;;;; Move functions:
diff --git a/compiler/mips/macros.lisp b/compiler/mips/macros.lisp
index 74e1b77cb..c86e5b12f 100644
--- a/compiler/mips/macros.lisp
+++ b/compiler/mips/macros.lisp
@@ -7,14 +7,14 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/macros.lisp,v 1.39 1990/08/23 18:51:37 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/macros.lisp,v 1.40 1990/11/03 03:25:35 wlott Exp $
 ;;;
 ;;;    This file contains various useful macros for generating MIPS code.
 ;;;
 ;;; Written by William Lott and Christopher Hoover.
 ;;; 
 
-(in-package "C")
+(in-package "MIPS")
 
 ;;; Handy macro for defining top-level forms that depend on the compile
 ;;; environment.
diff --git a/compiler/mips/memory.lisp b/compiler/mips/memory.lisp
index 5845278eb..87727d339 100644
--- a/compiler/mips/memory.lisp
+++ b/compiler/mips/memory.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/memory.lisp,v 1.10 1990/08/15 02:55:01 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/memory.lisp,v 1.11 1990/11/03 03:25:32 wlott Exp $
 ;;;
 ;;;    This file contains the MIPS definitions of some general purpose memory
 ;;; reference VOPs inherited by basic memory reference operations.
@@ -17,7 +17,7 @@
 ;;; Converted by William Lott.
 ;;; 
 
-(in-package "C")
+(in-package "MIPS")
 
 
 ;;; Cell-Ref and Cell-Set are used to define VOPs like CAR, where the offset to
diff --git a/compiler/mips/move.lisp b/compiler/mips/move.lisp
index 8a4afbe7f..ac5eb7641 100644
--- a/compiler/mips/move.lisp
+++ b/compiler/mips/move.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/move.lisp,v 1.23 1990/10/24 16:23:56 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/move.lisp,v 1.24 1990/11/03 03:25:38 wlott Exp $
 ;;;
 ;;;    This file contains the MIPS VM definition of operand loading/saving and
 ;;; the Move VOP.
@@ -15,7 +15,7 @@
 ;;; Written by Rob MacLachlan.
 ;;; MIPS conversion by William Lott.
 ;;;
-(in-package "C")
+(in-package "MIPS")
 
 
 (define-move-function (load-immediate 1) (vop x y)
diff --git a/compiler/mips/pred.lisp b/compiler/mips/pred.lisp
index 3a4c19d6b..8e7134405 100644
--- a/compiler/mips/pred.lisp
+++ b/compiler/mips/pred.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/pred.lisp,v 1.4 1990/04/24 02:56:27 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/pred.lisp,v 1.5 1990/11/03 03:25:41 wlott Exp $
 ;;;
 ;;;    This file contains the VM definition of predicate VOPs for the MIPS.
 ;;;
@@ -16,7 +16,7 @@
 ;;; Converted by William Lott.
 ;;; 
 
-(in-package "C")
+(in-package "MIPS")
 
 
 ;;;; The Branch VOP.
diff --git a/compiler/mips/print.lisp b/compiler/mips/print.lisp
index 5d311c55e..5fa4f08a2 100644
--- a/compiler/mips/print.lisp
+++ b/compiler/mips/print.lisp
@@ -7,13 +7,13 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/print.lisp,v 1.5 1990/07/20 00:40:19 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/print.lisp,v 1.6 1990/11/03 03:25:43 wlott Exp $
 ;;;
 ;;; This file contains temporary printing utilities and similar noise.
 ;;;
 ;;; Written by William Lott.
 
-(in-package "C")
+(in-package "MIPS")
 
 
 (define-vop (print)
diff --git a/compiler/mips/sap.lisp b/compiler/mips/sap.lisp
index 061bf408f..185b21c9d 100644
--- a/compiler/mips/sap.lisp
+++ b/compiler/mips/sap.lisp
@@ -7,13 +7,13 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/sap.lisp,v 1.16 1990/07/07 01:01:37 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/sap.lisp,v 1.17 1990/11/03 03:25:46 wlott Exp $
 ;;;
 ;;;    This file contains the MIPS VM definition of SAP operations.
 ;;;
 ;;; Written by William Lott.
 ;;;
-(in-package "C")
+(in-package "MIPS")
 
 
 ;;;; Moves and coercions:
diff --git a/compiler/mips/static-fn.lisp b/compiler/mips/static-fn.lisp
index f91ebded4..b135a4384 100644
--- a/compiler/mips/static-fn.lisp
+++ b/compiler/mips/static-fn.lisp
@@ -7,14 +7,14 @@
 ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/static-fn.lisp,v 1.12 1990/09/17 23:44:18 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/static-fn.lisp,v 1.13 1990/11/03 03:25:52 wlott Exp $
 ;;;
 ;;; This file contains the VOPs and macro magic necessary to call static
 ;;; functions.
 ;;;
 ;;; Written by William Lott.
 ;;;
-(in-package "C")
+(in-package "MIPS")
 
 
 
diff --git a/compiler/mips/subprim.lisp b/compiler/mips/subprim.lisp
index a24847b1d..308390e7c 100644
--- a/compiler/mips/subprim.lisp
+++ b/compiler/mips/subprim.lisp
@@ -7,13 +7,13 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/subprim.lisp,v 1.17 1990/07/20 00:42:03 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/subprim.lisp,v 1.18 1990/11/03 03:25:54 wlott Exp $
 ;;;
 ;;;    Linkage information for standard static functions, and random vops.
 ;;;
 ;;; Written by William Lott.
 ;;; 
-(in-package "C")
+(in-package "MIPS")
 
 
 
diff --git a/compiler/mips/system.lisp b/compiler/mips/system.lisp
index dca1f1082..9197c50bf 100644
--- a/compiler/mips/system.lisp
+++ b/compiler/mips/system.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.32 1990/10/04 23:23:43 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.33 1990/11/03 03:25:56 wlott Exp $
 ;;;
 ;;;    MIPS VM definitions of various system hacking operations.
 ;;;
@@ -15,7 +15,7 @@
 ;;;
 ;;; Mips conversion by William Lott and Christopher Hoover.
 ;;;
-(in-package "C")
+(in-package "MIPS")
 
 
 ;;;; Random pointer comparison VOPs
diff --git a/compiler/mips/type-vops.lisp b/compiler/mips/type-vops.lisp
index 14f9bee3f..7328f0da5 100644
--- a/compiler/mips/type-vops.lisp
+++ b/compiler/mips/type-vops.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/type-vops.lisp,v 1.22 1990/10/14 22:39:06 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/type-vops.lisp,v 1.23 1990/11/03 03:25:59 wlott Exp $
 ;;; 
 ;;; This file contains the VM definition of type testing and checking VOPs
 ;;; for the RT.
@@ -16,7 +16,7 @@
 ;;;
 ;;; Converted for the MIPS R2000 by Christopher Hoover.
 ;;;
-(in-package "C")
+(in-package "MIPS")
 
 
 ;;;; Simple type checking and testing:
diff --git a/compiler/mips/values.lisp b/compiler/mips/values.lisp
index 6c601d296..a82166223 100644
--- a/compiler/mips/values.lisp
+++ b/compiler/mips/values.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/values.lisp,v 1.10 1990/07/03 06:31:25 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/values.lisp,v 1.11 1990/11/03 03:26:01 wlott Exp $
 ;;;
 ;;;    This file contains the implementation of unknown-values VOPs.
 ;;;
@@ -16,7 +16,7 @@
 ;;; Converted for MIPS by William Lott.
 ;;; 
 
-(in-package "C")
+(in-package "MIPS")
 
 (define-vop (reset-stack-pointer)
   (:args (ptr :scs (any-reg)))
-- 
GitLab