X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-int.lisp;h=ae9439d3b830dd11f09241e7bd8fe650336c6a9a;hb=b1de52969f584c63d43fb35da4a8a6a4e0e619f0;hp=281128ef06c63f0f2a907bcc51125b577c2d0622;hpb=7e1f6a02db322634078e6cec7bf92bcd060db0fe;p=sbcl.git

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index 281128e..ae9439d 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -1813,7 +1813,7 @@
 	      (let* ((locations
 		      (dotimes (k (sb!c::read-var-integer blocks i)
 				  (result locations-buffer))
-			(let ((kind (svref sb!c::compiled-code-location-kinds
+			(let ((kind (svref sb!c::*compiled-code-location-kinds*
 					   (aref+ blocks i)))
 			      (pc (+ last-pc
 				     (sb!c::read-var-integer blocks i)))
@@ -2003,7 +2003,7 @@
       (if (logtest flags sb!c::minimal-debug-function-setf-bit)
 	  `(setf ,base)
 	  base))
-    :kind (svref sb!c::minimal-debug-function-kinds
+    :kind (svref sb!c::*minimal-debug-function-kinds*
 		 (ldb sb!c::minimal-debug-function-kind-byte options))
     :variables
     (when vars-p
@@ -3622,7 +3622,7 @@
 			#!+x86 sb!vm::ebx-offset)))
 	(nargs (make-lisp-obj
 		(sb!vm:context-register scp sb!vm::nargs-offset)))
- 	(reg-arg-offsets '#.sb!vm::register-arg-offsets)
+ 	(reg-arg-offsets '#.sb!vm::*register-arg-offsets*)
 	(results nil))
     (without-gcing
      (dotimes (arg-num nargs)