diff --git a/compiler/sparc/parms.lisp b/compiler/sparc/parms.lisp
index b19d1018ff182060d5565f127fbfab19f386455a..e66a9c485e45550245c9c8c5b4b30c7e83cf28b6 100644
--- a/compiler/sparc/parms.lisp
+++ b/compiler/sparc/parms.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.6 1991/03/19 18:48:28 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.7 1991/03/22 14:01:43 wlott Exp $
 ;;;
 ;;;    This file contains some parameterizations of various VM
 ;;; attributes for the SPARC.  This file is separate from other stuff so 
@@ -138,17 +138,26 @@
 ;;;; Other random constants.
 
 (export '(halt-trap pending-interrupt-trap error-trap cerror-trap
-	  breakpoint-trap object-not-list-trap object-not-structure-trap))
-
-(defconstant halt-trap 8)
-(defconstant pending-interrupt-trap 9)
-(defconstant error-trap 10)
-(defconstant cerror-trap 11)
-(defconstant breakpoint-trap 12)
-
-
-(defconstant object-not-list-trap 16)
-(defconstant object-not-structure-trap 17)
+	  breakpoint-trap object-not-list-trap object-not-structure-trap
+	  trace-table-normal trace-table-call-site
+	  trace-table-function-prologue trace-table-function-epilogue))
+
+(defenum (:suffix -trap :start 8)
+  halt
+  pending-interrupt
+  error
+  cerror
+  breakpoint)
+
+(defenum (:prefix object-not- :suffix -trap :start 16)
+  list
+  structure)
+
+(defenum (:prefix trace-table-)
+  normal
+  call-site
+  function-prologue
+  function-epilogue)