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