115 |
t) |
t) |
116 |
|
|
117 |
(deftest find-package.16 |
(deftest find-package.16 |
118 |
(let* ((name (make-array '(7) :initial-contents "KEYWORDXYZ" |
(let* ((name (make-array '(10) :initial-contents "KEYWORDXYZ" |
119 |
:adjustable t |
:adjustable t |
120 |
:element-type 'base-char)) |
:element-type 'base-char)) |
121 |
(p (find-package name))) |
(p (find-package name))) |
123 |
t) |
t) |
124 |
|
|
125 |
(deftest find-package.17 |
(deftest find-package.17 |
126 |
(let* ((name (make-array '(7) :initial-contents "KEYWORDXYZ" |
(let* ((name (make-array '(10) :initial-contents "KEYWORDXYZ" |
127 |
:adjustable t |
:adjustable t |
128 |
:element-type 'character)) |
:element-type 'character)) |
129 |
(p (find-package name))) |
(p (find-package name))) |