X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fppc-vm.lisp;h=801192d1ef51735954af5b98dad265f24f657e0b;hb=e365f2f7a9c66d307b48fee70778f4eaa84bdcc0;hp=7b0e19919c5e602d5dacba0cef1ec30243bb41f6;hpb=581e3d62de8cb37e13ad9db63e5537c0f962be28;p=sbcl.git

diff --git a/src/code/ppc-vm.lisp b/src/code/ppc-vm.lisp
index 7b0e199..801192d 100644
--- a/src/code/ppc-vm.lisp
+++ b/src/code/ppc-vm.lisp
@@ -149,12 +149,12 @@
 				     sb!vm:vector-data-offset)
 			   (* length sb!vm:n-byte-bits))
     (let* ((index 0)
-	   (error-number (sb!c::read-var-integer vector index)))
+	   (error-number (sb!c:read-var-integer vector index)))
       (collect ((sc-offsets))
 	       (loop
 		(when (>= index length)
 		  (return))
-		(sc-offsets (sb!c::read-var-integer vector index)))
+		(sc-offsets (sb!c:read-var-integer vector index)))
 	       (values error-number (sc-offsets))))))