From d8df75682be40b8bb8cd15699379598994c67849 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 21 Feb 1990 16:06:14 +0000 Subject: [PATCH] Really fixed the WITH-ARRAY-DATA syntax this time for sure, truly. --- code/debug-info.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/code/debug-info.lisp b/code/debug-info.lisp index d0e29c39e..bb4aa7eb4 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)) -- GitLab