diff --git a/compiler/mips/alloc.lisp b/compiler/mips/alloc.lisp index 2d23812bf9eea233a0328167fc2009676a5f9d76..27497b6ffb4ac27702adafc6b6485d3fa81aebb0 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 d8aa4f6c33e9ddd7052b1f7c301450b61750a713..9aaa2ad71035be6f2c2169ffb6fe0d4964ed84e1 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 10ef344230d035ad4e90dfcc7cac172b5459c7f4..b16a11bd8ef748c7a3a5064d407cbfbbec2b4968 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 19ab7f43f0935efb0e2da31122e551ceba2e0eaa..4543eb1cd671b73ab9c219b7f9a3e2e275115da6 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 dcd6ff732f1381a03a36c6ad52e3ce0846a2957f..ffb02b0250ab4f04bc11a411056e830066c664a9 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 371357be544482a77417ca9a4cf40574f4a226af..aa1ff41ac3502c962f5f1d17d6fb5ec3c4499700 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 428c2a8b9ddba20270828d44addf88a205bfedf7..918825676558453d6080b57a2213826529b1868f 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 74e1b77cb30c90668423d5844e00fc9d6cc3f7d8..c86e5b12f065486c79479626314a2bdf547413a8 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 5845278eb33cbd9a7488ec95349b05e0163bf4fd..87727d339c7b416515e896e0dac2fba298adf052 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 8a4afbe7f0ed704062fe780e96c862a030ad27f7..ac5eb7641cff97089b6e0bd86b815c5cdcb20d0a 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 3a4c19d6bd7e7a96f002b3c052ff8205e1495100..8e71344053d855c2fc2917da10c5e01445a3dcfc 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 5d311c55e2182a2ea0aa336e7795ebc8d258dfe5..5fa4f08a2a578ee40fedac0103ce043f93d056de 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 061bf408fceeb353e0cae91621d71965c09ed7a5..185b21c9d4dc5018a2f04d573d688c884fbdb39f 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 f91ebded443d13e7db523f2421ee6a3b7939c31d..b135a4384fd4ea94a635e9118efed74c4f08b227 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 a24847b1d681d23a2fab04d78e4286da0ef097a7..308390e7c38a233cbca337b0c4461de3590fcebb 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 dca1f10820c8e185ac865fe76f6f06a2ce88c23a..9197c50bff9790236ba23383d0c7fe1c91595e60 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 14f9bee3fb0bd038ddcf000130e8c203e56992db..7328f0da5b7450fc190bbbaec315c6e3b013d45a 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 6c601d2967a5a9ac6de8a2a3f0918ffada12e185..a8216622377cde2c2b745ccc763d9dd4e4d27db1 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)))