From d8be7de173cfc81aba6ecf639ceb718ef9104642 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 4 Sep 2004 01:08:50 +0000
Subject: [PATCH] Fixed bug in find-package.16

---
 ansi-tests/find-package.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ansi-tests/find-package.lsp b/ansi-tests/find-package.lsp
index eb0da058..2c9569ca 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 '(10) :initial-contents "KEYWORDXYZ"
+  (let* ((name (make-array '(7) :initial-contents "KEYWORD"
 			   :adjustable t
 			   :element-type 'base-char))
 	 (p (find-package name)))
-- 
GitLab