Skip to content
Snippets Groups Projects
Commit d8be7de1 authored by pfdietz's avatar pfdietz
Browse files

Fixed bug in find-package.16

parent 1d922ed8
No related branches found
No related tags found
No related merge requests found
...@@ -115,7 +115,7 @@ ...@@ -115,7 +115,7 @@
t) t)
(deftest find-package.16 (deftest find-package.16
(let* ((name (make-array '(10) :initial-contents "KEYWORDXYZ" (let* ((name (make-array '(7) :initial-contents "KEYWORD"
:adjustable t :adjustable t
:element-type 'base-char)) :element-type 'base-char))
(p (find-package name))) (p (find-package name)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment