From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Mon, 3 May 2004 13:24:35 +0000 (+0000)
Subject: r9208: fix bad declaration
X-Git-Tag: v3.8.6~547
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=34df0812531e506e1d1ed1a811e9c3ff73de988d

r9208: fix bad declaration
---

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