X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-info.lisp;h=829694cb628bb913bd26a3130095f199d4db14aa;hb=422b88abf96f4842a3d0999cd3b80d96f5a153d6;hp=02a19c455870fd59f79c3cd9083955197f6c28fc;hpb=b0b168c08b31a748150f404398af754f26fd4813;p=sbcl.git

diff --git a/src/code/debug-info.lisp b/src/code/debug-info.lisp
index 02a19c4..829694c 100644
--- a/src/code/debug-info.lisp
+++ b/src/code/debug-info.lisp
@@ -51,11 +51,11 @@
 ;;; FIXME: The first two are no longer used in SBCL.
 ;;;(defconstant compiled-debug-var-uninterned		#b00000001)
 ;;;(defconstant compiled-debug-var-packaged		#b00000010)
-(defconstant compiled-debug-var-environment-live	#b00000100)
-(defconstant compiled-debug-var-save-loc-p		#b00001000)
-(defconstant compiled-debug-var-id-p			#b00010000)
-(defconstant compiled-debug-var-minimal-p		#b00100000)
-(defconstant compiled-debug-var-deleted-p		#b01000000)
+(def!constant compiled-debug-var-environment-live	#b00000100)
+(def!constant compiled-debug-var-save-loc-p		#b00001000)
+(def!constant compiled-debug-var-id-p			#b00010000)
+(def!constant compiled-debug-var-minimal-p		#b00100000)
+(def!constant compiled-debug-var-deleted-p		#b01000000)
 
 ;;;; compiled debug blocks
 ;;;;
@@ -74,7 +74,7 @@
 ;;;;       tuples...
 
 (defconstant-eqx compiled-debug-block-nsucc-byte (byte 2 0) #'equalp)
-(defconstant compiled-debug-block-elsewhere-p #b00000100)
+(def!constant compiled-debug-block-elsewhere-p #b00000100)
 
 (defconstant-eqx compiled-code-location-kind-byte (byte 3 0) #'equalp)
 (defparameter *compiled-code-location-kinds*