X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-var-io.lisp;h=087b46c1ebd3e077eabf0c22297eb9b50f697b8f;hb=6c4d4d984b1af6b2a73568cec3ab9c8795cff2da;hp=6a61e26b23a9338e8916bee29be1941f5897aae3;hpb=0b3ec4b1d978b887db175b7b3bada8e727683e15;p=sbcl.git

diff --git a/src/code/debug-var-io.lisp b/src/code/debug-var-io.lisp
index 6a61e26..087b46c 100644
--- a/src/code/debug-var-io.lisp
+++ b/src/code/debug-var-io.lisp
@@ -70,7 +70,7 @@
   (once-only ((len `(read-var-integer ,vec ,index)))
     (once-only ((res `(make-string ,len)))
       `(progn
-	 (%primitive byte-blt ,vec ,index ,res 0 ,len)
+	 (%byte-blt ,vec ,index ,res 0 ,len)
 	 (incf ,index ,len)
 	 ,res))))
 
@@ -93,6 +93,6 @@
   (once-only ((n-bytes bytes))
     (once-only ((n-res `(make-array (* ,n-bytes 8) :element-type 'bit)))
       `(progn
-	 (%primitive byte-blt ,vec ,index ,n-res 0 ,n-bytes)
+	 (%byte-blt ,vec ,index ,n-res 0 ,n-bytes)
 	 (incf ,index ,n-bytes)
 	 ,n-res))))