diff --git a/compiler/mips/parms.lisp b/compiler/mips/parms.lisp
index 88ab527f4468215bc595ed933723baa726b0b50b..0fc176d12dccf9526f8be7db7e3fe2d47353d968 100644
--- a/compiler/mips/parms.lisp
+++ b/compiler/mips/parms.lisp
@@ -7,11 +7,11 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.93 1991/03/14 21:45:43 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.94 1991/03/20 03:05:36 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.93 1991/03/14 21:45:43 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.94 1991/03/20 03:05:36 wlott Exp $
 ;;;
 ;;;    This file contains some parameterizations of various VM
 ;;; attributes for the MIPS.  This file is separate from other stuff so 
@@ -126,7 +126,9 @@
 ;;;; Other non-type constants.
 
 (export '(atomic-flag interrupted-flag halt-trap pending-interrupt-trap
-	  error-trap cerror-trap breakpoint-trap))
+	  error-trap cerror-trap breakpoint-trap
+	  trace-table-normal trace-table-call-site
+	  trace-table-function-prologue trace-table-function-epilogue))
 
 (defenum (:suffix -flag)
   atomic
@@ -139,11 +141,18 @@
   cerror
   breakpoint)
 
+(defenum (:prefix trace-table-)
+  normal
+  call-site
+  function-prologue
+  function-epilogue)
 
 
 
 ;;;; Static symbols.
 
+(export '(static-symbols exported-static-symbols))
+
 ;;; These symbols are loaded into static space directly after NIL so
 ;;; that the system can compute their address by adding a constant
 ;;; amount to NIL.
@@ -162,6 +171,7 @@
     lisp::%initial-function
     lisp::maybe-gc
     kernel::internal-error
+    di::handle-breakpoint
 
     ;; Free Pointers
     lisp::*read-only-space-free-pointer*
@@ -183,12 +193,7 @@
     two-arg-<= two-arg->= two-arg-/= eql %negate
     two-arg-and two-arg-ior two-arg-xor
     length two-arg-gcd two-arg-lcm
-
-    ;; Extra shit that should really be earlier, but isn't because we don't
-    ;; want to recompile everything.
-    di::handle-breakpoint
     ))
 
 (defparameter exported-static-symbols
-  (append (subseq static-symbols 0 (position 'two-arg-+ static-symbols))
-	  '(di::handle-breakpoint)))
+  (subseq static-symbols 0 (position 'two-arg-+ static-symbols)))