From 34df0812531e506e1d1ed1a811e9c3ff73de988d Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Mon, 3 May 2004 13:24:35 +0000
Subject: [PATCH] r9208: fix bad declaration

---
 tests/test-basic.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tests/test-basic.lisp b/tests/test-basic.lisp
index 37639e3..c551b0d 100644
--- a/tests/test-basic.lisp
+++ b/tests/test-basic.lisp
@@ -104,6 +104,7 @@
 	(let ((results '())
 	      (rows (map-query 'vector #'list "select * from TYPE_TABLE" 
 			       :result-types nil)))
+	  (declare (array rows))
 	  (dotimes (i (length rows) results)
 	    (push
 	     (list
-- 
2.34.1