diff --git a/compiler/mips/vm.lisp b/compiler/mips/vm.lisp
index c03dfdcd336f2de3ace33a502322247bd6b44957..5f00bef7a7f7be223e8510b6b65dc4eb85ceeee2 100644
--- a/compiler/mips/vm.lisp
+++ b/compiler/mips/vm.lisp
@@ -7,12 +7,14 @@
 ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
 ;;; **********************************************************************
 ;;;
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/vm.lisp,v 1.3 1990/02/02 21:42:57 wlott Exp $
+;;;
 ;;; This file contains the VM definition for the MIPS R2000 and the new
 ;;; object format.
 ;;;
 ;;; Written by Christopher Hoover.
 ;;;
-(in-package 'c)
+(in-package "C")
 
 
 ;;;; SB and SC definition:
@@ -306,61 +308,71 @@
 
 ;;;; Magical Registers
 
+(eval-when (compile eval load)
+  (defconstant zero-offset 0)
+  (defconstant lip-offset 1)
+  (defconstant bsp-offset 24)
+  (defconstant csp-offset 25)
+  (defconstant null-offset 28)
+  (defconstant nsp-offset 29)
+  (defconstant code-offset 30)
+  (defconstant cont-offset 31))
+
 ;;; 
 ;;; Wired Zero
 (defparameter zero-tn
   (make-random-tn :kind :normal
 		  :sc (sc-or-lose 'any-reg)
-		  :offset 0))
+		  :offset zero-offset))
 
 ;;; 
 ;;; Lisp Interior Pointer
 (defparameter lip-tn
   (make-random-tn :kind :normal
 		  :sc (sc-or-lose 'any-reg)
-		  :offset 1))
+		  :offset lip-offset))
 
 ;;; 
 ;;; Binding stack pointer
 (defparameter bsp-tn
   (make-random-tn :kind :normal
 		  :sc (sc-or-lose 'any-reg)
-		  :offset 24))
+		  :offset bsp-offset))
 
 ;;; 
 ;;; Control stack pointer
 (defparameter csp-tn
   (make-random-tn :kind :normal
 		  :sc (sc-or-lose 'any-reg)
-		  :offset 25))
+		  :offset csp-offset))
 
 ;;;
 ;;; ``Wired'' NIL
 (defparameter null-tn
   (make-random-tn :kind :normal
 		  :sc (sc-or-lose 'any-reg)
-		  :offset 28))
+		  :offset null-offset))
 
 ;;; 
 ;;; Number stack pointer
 (defparameter nsp-tn
   (make-random-tn :kind :normal
 		  :sc (sc-or-lose 'any-reg)
-		  :offset 29))
+		  :offset nsp-offset))
 
 ;;; 
 ;;; Code Pointer
 (defparameter code-tn
   (make-random-tn :kind :normal
 		  :sc (sc-or-lose 'any-reg)
-		  :offset 30))
+		  :offset code-offset))
 
 ;;;
 ;;; Frame Pointer
 (defparameter cont-tn
   (make-random-tn :kind :normal
 		  :sc (sc-or-lose 'any-reg)
-		  :offset 31))
+		  :offset cont-offset))
 
 
 ;;;; Side-Effect Classes