X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-int.lisp;h=e8a188d31f00afa16e6134c281c9ba5306664a7f;hb=cee8ef591040db9a79cdd19297867672a9529051;hp=38dcf429bd0d5638dfe17fdd1640ddcd75d9e24d;hpb=1e5296127f5b384a2171646747021ebeee73b801;p=sbcl.git

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index 38dcf42..e8a188d 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -2656,6 +2656,7 @@ register."
              (let ((count-var (fourth bind)))
                (specs `(,name (multiple-value-list
                                (sb!c:%more-arg-values (debug-var-value ',var ,n-frame)
+                                                      0
                                                       (debug-var-value ',count-var ,n-frame)))))))
             (:unknown
              (specs `(,name (debug-signal 'invalid-value