From 21f73df67d99792fcf3cbfb9cfd1918aa04966d2 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Mon, 30 Aug 2004 12:14:07 +0000
Subject: [PATCH] Fixed typo

---
 ansi-tests/find-package.lsp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ansi-tests/find-package.lsp b/ansi-tests/find-package.lsp
index c50b2505..eb0da058 100644
--- a/ansi-tests/find-package.lsp
+++ b/ansi-tests/find-package.lsp
@@ -115,7 +115,7 @@
   t)
 
 (deftest find-package.16
-  (let* ((name (make-array '(7) :initial-contents "KEYWORDXYZ"
+  (let* ((name (make-array '(10) :initial-contents "KEYWORDXYZ"
 			   :adjustable t
 			   :element-type 'base-char))
 	 (p (find-package name)))
@@ -123,7 +123,7 @@
   t)
 
 (deftest find-package.17
-  (let* ((name (make-array '(7) :initial-contents "KEYWORDXYZ"
+  (let* ((name (make-array '(10) :initial-contents "KEYWORDXYZ"
 			   :adjustable t
 			   :element-type 'character))
 	 (p (find-package name)))
-- 
GitLab