diff --git a/code/debug-info.lisp b/code/debug-info.lisp index d0e29c39e248112794c4e6736fc611bac0536c00..bb4aa7eb403dbae8f6d44a0bedec2f0713ecfcbc 100644 --- a/code/debug-info.lisp +++ b/code/debug-info.lisp @@ -143,7 +143,8 @@ (start (fill-pointer vec))) (dotimes (i len) (vector-push-extend 0 vec)) - (lisp::with-array-data ((data vec)) + (lisp::with-array-data ((data vec) (ig1) (ig2)) + (declare (ignore ig1 ig2)) (%primitive byte-blt bits 0 data start (+ start len)))) (undefined-value))