X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-info.lisp;h=cab930c61ae055e4215b0e4cc418f8cf94304545;hb=b66385e2031fc2cac17dd129df0af400beb48a22;hp=991d158f6faf04d6a2440b8dd60a4c3687419445;hpb=d2f5999ec2882ba9d69656f5568705e5fd200ba1;p=sbcl.git

diff --git a/src/code/debug-info.lisp b/src/code/debug-info.lisp
index 991d158..cab930c 100644
--- a/src/code/debug-info.lisp
+++ b/src/code/debug-info.lisp
@@ -60,10 +60,11 @@
 (defconstant-eqx compiled-debug-block-nsucc-byte (byte 2 0) #'equalp)
 (def!constant compiled-debug-block-elsewhere-p #b00000100)
 
-(defconstant-eqx compiled-code-location-kind-byte (byte 3 0) #'equalp)
+(defconstant-eqx compiled-code-location-kind-byte (byte 4 0) #'equalp)
 (defparameter *compiled-code-location-kinds*
   #(:unknown-return :known-return :internal-error :non-local-exit
-    :block-start :call-site :single-value-return :non-local-entry))
+    :block-start :call-site :single-value-return :non-local-entry
+    :step-before-vop))
 
 ;;;; DEBUG-FUN objects