X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Falpha%2Fparms.lisp;h=78b7d0e5363659297d24fcb97b3c37cc13b485ab;hb=b83353d9f998e5c0e34604b5593df70c66d2c510;hp=5254a2b9ac5a50d2bc1f9c72a842dc307463ee8a;hpb=b66385e2031fc2cac17dd129df0af400beb48a22;p=sbcl.git

diff --git a/src/compiler/alpha/parms.lisp b/src/compiler/alpha/parms.lisp
index 5254a2b..78b7d0e 100644
--- a/src/compiler/alpha/parms.lisp
+++ b/src/compiler/alpha/parms.lisp
@@ -143,25 +143,19 @@
 
 ;;;; other miscellaneous constants
 
-(defenum (:suffix -trap :start 8)
-  halt
-  pending-interrupt
-  error
-  cerror
-  breakpoint
-  fun-end-breakpoint
-  single-step-breakpoint
+(defenum (:start 8)
+  halt-trap
+  pending-interrupt-trap
+  error-trap
+  cerror-trap
+  breakpoint-trap
+  fun-end-breakpoint-trap
+  single-step-breakpoint-trap
   ;; Stepper actually not implemented on Alpha, but these constants
   ;; are still needed to avoid undefined variable warnings during sbcl
   ;; build.
-  single-step-around
-  single-step-before)
-
-(defenum (:prefix trace-table-)
-  normal
-  call-site
-  fun-prologue
-  fun-epilogue)
+  single-step-around-trap
+  single-step-before-trap)
 
 ;;;; static symbols