X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fdebug-int.lisp;h=fb1af04595d4cfd2a4f4168e9fd29d1ab48fb358;hb=b3a419f10ad442a1c59d51edabdc70518f193648;hp=c0a1517a3ee459f1f7bf2cb2719d687db445e862;hpb=4df3887d4f74248fb2ce830b86eb07fd30986d8a;p=sbcl.git

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index c0a1517..fb1af04 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -1513,19 +1513,18 @@
 		       (list successors))
 	      (dotimes (k (ldb sb!c::compiled-debug-block-nsucc-byte
 			       succ-and-flags))
-		(push (sb!c::read-var-integer blocks i) successors))
+		(push (sb!c:read-var-integer blocks i) successors))
 	      (let* ((locations
-		      (dotimes (k (sb!c::read-var-integer blocks i)
+		      (dotimes (k (sb!c:read-var-integer blocks i)
 				  (result locations-buffer))
 			(let ((kind (svref sb!c::*compiled-code-location-kinds*
 					   (aref+ blocks i)))
 			      (pc (+ last-pc
-				     (sb!c::read-var-integer blocks i)))
+				     (sb!c:read-var-integer blocks i)))
 			      (tlf-offset (or tlf-number
-					      (sb!c::read-var-integer blocks
-								      i)))
-			      (form-number (sb!c::read-var-integer blocks i))
-			      (live-set (sb!c::read-packed-bit-vector
+					      (sb!c:read-var-integer blocks i)))
+			      (form-number (sb!c:read-var-integer blocks i))
+			      (live-set (sb!c:read-packed-bit-vector
 					 live-set-len blocks i)))
 			  (vector-push-extend (make-known-code-location
 					       pc debug-fun tlf-offset