1.0.11.17: fixed dumb buglet in DEFMACRO NAMED-LET

[sbcl.git] / src / code / debug-var-io.lisp

diff --git a/src/code/debug-var-io.lisp b/src/code/debug-var-io.lisp
index f2c10c1..2d489d2 100644 (file)
--- 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))
 \f
 ;;;; packed bit vectors