diff --git a/ansi-tests/find-package.lsp b/ansi-tests/find-package.lsp index c50b25057b5fa6a20f33d1b78aa16cf7cf7901d9..eb0da058804cfb8a98edea97219360b0832fdd64 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)))