X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fdebug-var-io.lisp;h=f2c10c1f09956ce25e5a204cac7a85bed21b3409;hb=447477e72bd4fe54e678a28bdcc4a2802797d6ed;hp=08ce07d3ad6bc5dc5d031bcaf959b56f4276b893;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/debug-var-io.lisp b/src/code/debug-var-io.lisp
index 08ce07d..f2c10c1 100644
--- a/src/code/debug-var-io.lisp
+++ b/src/code/debug-var-io.lisp
@@ -70,7 +70,9 @@
   (once-only ((len `(read-var-integer ,vec ,index)))
     (once-only ((res `(make-string ,len)))
       `(progn
-         (%byte-blt ,vec ,index ,res 0 ,len)
+         (loop for i from 0 below ,len
+               do (setf (aref ,res i)
+                        (code-char (aref ,vec (+ ,index i)))))
          (incf ,index ,len)
          ,res))))