gencgc: More precise conservatism for pointers to boxed pages.

[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 94a59ce..eac1df3 100644 (file)
--- 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.