X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fdebug-var-io.lisp;h=2d489d24e8dff81f6f7678044169c794e59730ab;hb=7137cb0872e17772f26c432384da5eefa3e645d7;hp=f2c10c1f09956ce25e5a204cac7a85bed21b3409;hpb=b66385e2031fc2cac17dd129df0af400beb48a22;p=sbcl.git

diff --git a/src/code/debug-var-io.lisp b/src/code/debug-var-io.lisp
index f2c10c1..2d489d2 100644
--- a/src/code/debug-var-io.lisp
+++ b/src/code/debug-var-io.lisp
@@ -72,8 +72,7 @@
       `(progn
          (loop for i from 0 below ,len
                do (setf (aref ,res i)
-                        (code-char (aref ,vec (+ ,index i)))))
-         (incf ,index ,len)
+                        (code-char (read-var-integer ,vec ,index))))
          ,res))))
 
 ;;; Write STRING into VEC (adjustable, with fill-pointer) represented
@@ -84,7 +83,7 @@
   (let ((len (length string)))
     (write-var-integer len vec)
     (dotimes (i len)
-      (vector-push-extend (char-code (schar string i)) vec)))
+      (write-var-integer (char-code (schar string i)) vec)))
   (values))
 
 ;;;; packed bit vectors