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