82 |
(eqt cl cl2))) |
(eqt cl cl2))) |
83 |
t) |
t) |
84 |
|
|
85 |
|
(deftest find-package.12 |
86 |
|
(let* ((name (make-array '(7) :initial-contents "KEYWORD" |
87 |
|
:element-type 'base-char)) |
88 |
|
(p (find-package name))) |
89 |
|
(and p (eqt p (symbol-package :test)))) |
90 |
|
t) |
91 |
|
|
92 |
|
(deftest find-package.13 |
93 |
|
(let* ((name (make-array '(10) :initial-contents "KEYWORDXYZ" |
94 |
|
:fill-pointer 7 |
95 |
|
:element-type 'base-char)) |
96 |
|
(p (find-package name))) |
97 |
|
(and p (eqt p (symbol-package :test)))) |
98 |
|
t) |
99 |
|
|
100 |
|
(deftest find-package.14 |
101 |
|
(let* ((name (make-array '(10) :initial-contents "KEYWORDXYZ" |
102 |
|
:fill-pointer 7 |
103 |
|
:element-type 'character)) |
104 |
|
(p (find-package name))) |
105 |
|
(and p (eqt p (symbol-package :test)))) |
106 |
|
t) |
107 |
|
|
108 |
|
(deftest find-package.15 |
109 |
|
(let* ((name0 (make-array '(10) :initial-contents "XYKEYWORDZ" |
110 |
|
:element-type 'character)) |
111 |
|
(name (make-array '(7) :displaced-to name0 :displaced-index-offset 2 |
112 |
|
:element-type 'character)) |
113 |
|
(p (find-package name))) |
114 |
|
(and p (eqt p (symbol-package :test)))) |
115 |
|
t) |
116 |
|
|
117 |
|
(deftest find-package.16 |
118 |
|
(let* ((name (make-array '(7) :initial-contents "KEYWORDXYZ" |
119 |
|
:adjustable t |
120 |
|
:element-type 'base-char)) |
121 |
|
(p (find-package name))) |
122 |
|
(and p (eqt p (symbol-package :test)))) |
123 |
|
t) |
124 |
|
|
125 |
|
(deftest find-package.17 |
126 |
|
(let* ((name (make-array '(7) :initial-contents "KEYWORDXYZ" |
127 |
|
:adjustable t |
128 |
|
:element-type 'character)) |
129 |
|
(p (find-package name))) |
130 |
|
(and p (eqt p (symbol-package :test)))) |
131 |
|
t) |
132 |
|
|
133 |
|
;;; Error tests |
134 |
|
|
135 |
(deftest find-package.error.1 |
(deftest find-package.error.1 |
136 |
(signals-error (find-package) program-error) |
(signals-error (find-package) program-error) |
137 |
t) |
t) |