X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ftrace-table.lisp;h=f006add74449a8eee72be2720a31aa0d1d1bdc01;hb=8731c1a7c1a585d190151fa881050fb5e14c0616;hp=f0d0f09f5e10dab22cadae716360fa5281781230;hpb=772659782631839f87fe059a45ecb28b933e298b;p=sbcl.git

diff --git a/src/compiler/trace-table.lisp b/src/compiler/trace-table.lisp
index f0d0f09..f006add 100644
--- a/src/compiler/trace-table.lisp
+++ b/src/compiler/trace-table.lisp
@@ -12,16 +12,17 @@
 (in-package "SB!C")
 
 (defun trace-table-entry (state)
+  (declare (special *trace-table-info*))
   (let ((label (gen-label)))
     (emit-label label)
     (push (cons label state) *trace-table-info*))
   (values))
 
-(defconstant tt-bits-per-state 3)
-(defconstant tt-bytes-per-entry 2)
-(defconstant tt-bits-per-entry (* tt-bytes-per-entry sb!vm:byte-bits))
-(defconstant tt-bits-per-offset (- tt-bits-per-entry tt-bits-per-state))
-(defconstant tt-max-offset (1- (ash 1 tt-bits-per-offset)))
+(def!constant tt-bits-per-state 3)
+(def!constant tt-bytes-per-entry 2)
+(def!constant tt-bits-per-entry (* tt-bytes-per-entry sb!vm:n-byte-bits))
+(def!constant tt-bits-per-offset (- tt-bits-per-entry tt-bits-per-state))
+(def!constant tt-max-offset (1- (ash 1 tt-bits-per-offset)))
 
 (deftype tt-state ()
   `(unsigned-byte ,tt-bits-per-state))