X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-var-io.lisp;h=eac1df33029128c0d13a6bb99d272652360ad563;hb=ba39d165a0bb6fabba6d6feb9b6fb88ae4d544ff;hp=94a59cec7eac82caffacaa157fb34a26383ce32f;hpb=09a00b3120e7dd6d040cf70fbaaa1af32b890ee3;p=sbcl.git

diff --git a/src/code/debug-var-io.lisp b/src/code/debug-var-io.lisp
index 94a59ce..eac1df3 100644
--- a/src/code/debug-var-io.lisp
+++ b/src/code/debug-var-io.lisp
@@ -40,10 +40,10 @@
 
 (defmacro read-var-integer (vec index)
   (once-only ((vec vec))
-    `(multiple-value-bind (vector new-index)
+    `(multiple-value-bind (value new-index)
          (%read-var-integer ,vec ,index)
        (setf ,index new-index)
-       vector)))
+       value)))
 
 ;;; Take an adjustable vector VEC with a fill pointer and push the
 ;;; variable length representation of INT on the end.