X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fx86-vm.lisp;h=833460cff9f2483d6d518ada5ee25cee74772bbe;hb=2db3b6b4cb740d5b6512459c223859f747807b09;hp=21c2f47b43d0b0a1bd383187c9b0b4a405f8152b;hpb=637371f800e71ac4449e01d59571c9d10f6bde26;p=sbcl.git

diff --git a/src/code/x86-vm.lisp b/src/code/x86-vm.lisp
index 21c2f47..833460c 100644
--- a/src/code/x86-vm.lisp
+++ b/src/code/x86-vm.lisp
@@ -285,7 +285,7 @@
 			     vector (* n-word-bits vector-data-offset)
 			     (* length n-byte-bits))
       (let* ((index 0)
-	     (error-number (sb!c::read-var-integer vector index)))
+	     (error-number (sb!c:read-var-integer vector index)))
 	(/hexstr error-number)
 	(collect ((sc-offsets))
 	  (loop
@@ -293,7 +293,7 @@
 	   (/hexstr index)
 	   (when (>= index length)
 	     (return))
-	   (let ((sc-offset (sb!c::read-var-integer vector index)))
+	   (let ((sc-offset (sb!c:read-var-integer vector index)))
 	     (/show0 "SC-OFFSET=..")
 	     (/hexstr sc-offset)
 	     (sc-offsets sc-offset)))