134 |
(progn |
(progn |
135 |
(safely-delete-package '#:|TEST1|) |
(safely-delete-package '#:|TEST1|) |
136 |
(let ((p (ignore-errors (make-package '#:|TEST1| :use '("A"))))) |
(let ((p (ignore-errors (make-package '#:|TEST1| :use '("A"))))) |
137 |
(prog1 |
(multiple-value-prog1 |
138 |
(and (packagep p) |
(values (notnot (packagep p)) |
139 |
(equalt (package-name p) "TEST1") |
(equalt (package-name p) "TEST1") |
140 |
(equalt (package-nicknames p) nil) |
(equalt (package-nicknames p) nil) |
141 |
(equalt (package-use-list p) (list (find-package "A"))) |
(equalt (package-use-list p) (list (find-package "A"))) |
142 |
(equalt (package-used-by-list p) nil)) |
(equalt (package-used-by-list p) nil)) |
143 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
144 |
t) |
t t t t t) |
145 |
|
|
146 |
(deftest make-package.8a |
(deftest make-package.8a |
147 |
(progn |
(progn |
148 |
(safely-delete-package '#:|TEST1|) |
(safely-delete-package '#:|TEST1|) |
149 |
(let ((p (ignore-errors (make-package '#:|TEST1| :use '(#:|A|))))) |
(let ((p (ignore-errors (make-package '#:|TEST1| :use '(#:|A|))))) |
150 |
(prog1 |
(multiple-value-prog1 |
151 |
(and (packagep p) |
(values (notnot (packagep p)) |
152 |
(equalt (package-name p) "TEST1") |
(equalt (package-name p) "TEST1") |
153 |
(equalt (package-nicknames p) nil) |
(equalt (package-nicknames p) nil) |
154 |
(equalt (package-use-list p) (list (find-package "A"))) |
(equalt (package-use-list p) (list (find-package "A"))) |
155 |
(equalt (package-used-by-list p) nil)) |
(equalt (package-used-by-list p) nil)) |
156 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
157 |
t) |
t t t t t) |
158 |
|
|
159 |
(deftest make-package.8b |
(deftest make-package.8b |
160 |
(progn |
(progn |
161 |
(safely-delete-package '#:|TEST1|) |
(safely-delete-package '#:|TEST1|) |
162 |
(let ((p (ignore-errors (make-package '#:|TEST1| :use '(#\A))))) |
(let ((p (ignore-errors (make-package '#:|TEST1| :use '(#\A))))) |
163 |
(prog1 |
(multiple-value-prog1 |
164 |
(and (packagep p) |
(values (packagep p) |
165 |
(equalt (package-name p) "TEST1") |
(equalt (package-name p) "TEST1") |
166 |
(equalt (package-nicknames p) nil) |
(equalt (package-nicknames p) nil) |
167 |
(equalt (package-use-list p) (list (find-package "A"))) |
(equalt (package-use-list p) (list (find-package "A"))) |
168 |
(equalt (package-used-by-list p) nil)) |
(equalt (package-used-by-list p) nil)) |
169 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
170 |
t) |
t t t t t) |
171 |
|
|
172 |
(deftest make-package.9 |
(deftest make-package.9 |
173 |
(progn |
(progn |
174 |
(safely-delete-package #\X) |
(safely-delete-package #\X) |
175 |
(let ((p (ignore-errors (make-package #\X :use '("A"))))) |
(let ((p (ignore-errors (make-package #\X :use '("A"))))) |
176 |
(prog1 |
(multiple-value-prog1 |
177 |
(and (packagep p) |
(values (notnot (packagep p)) |
178 |
(equalt (package-name p) "X") |
(equalt (package-name p) "X") |
179 |
(equalt (package-nicknames p) nil) |
(equalt (package-nicknames p) nil) |
180 |
(equalt (package-use-list p) (list (find-package "A"))) |
(equalt (package-use-list p) (list (find-package "A"))) |
181 |
(equalt (package-used-by-list p) nil)) |
(equalt (package-used-by-list p) nil)) |
182 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
183 |
t) |
t t t t t) |
184 |
|
|
185 |
(deftest make-package.9a |
(deftest make-package.9a |
186 |
(progn |
(progn |
187 |
(safely-delete-package #\X) |
(safely-delete-package #\X) |
188 |
(let ((p (ignore-errors (make-package #\X :use '(#:|A|))))) |
(let ((p (ignore-errors (make-package #\X :use '(#:|A|))))) |
189 |
(prog1 |
(multiple-value-prog1 |
190 |
(and (packagep p) |
(values (notnot (packagep p)) |
191 |
(equalt (package-name p) "X") |
(equalt (package-name p) "X") |
192 |
(equalt (package-nicknames p) nil) |
(equalt (package-nicknames p) nil) |
193 |
(equalt (package-use-list p) (list (find-package "A"))) |
(equalt (package-use-list p) (list (find-package "A"))) |
194 |
(equalt (package-used-by-list p) nil)) |
(equalt (package-used-by-list p) nil)) |
195 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
196 |
t) |
t t t t t) |
197 |
|
|
198 |
(deftest make-package.9b |
(deftest make-package.9b |
199 |
(progn |
(progn |
200 |
(safely-delete-package #\X) |
(safely-delete-package #\X) |
201 |
(let ((p (ignore-errors (make-package #\X :use '(#\A))))) |
(let ((p (ignore-errors (make-package #\X :use '(#\A))))) |
202 |
(prog1 |
(multiple-value-prog1 |
203 |
(and (packagep p) |
(values (notnot (packagep p)) |
204 |
(equalt (package-name p) "X") |
(equalt (package-name p) "X") |
205 |
(equalt (package-nicknames p) nil) |
(equalt (package-nicknames p) nil) |
206 |
(equalt (package-use-list p) (list (find-package "A"))) |
(equalt (package-use-list p) (list (find-package "A"))) |
207 |
(equalt (package-used-by-list p) nil)) |
(equalt (package-used-by-list p) nil)) |
208 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
209 |
t) |
t t t t t) |
210 |
|
|
211 |
;; make-package with nicknames |
;; make-package with nicknames |
212 |
|
|
213 |
(deftest make-package.10 |
(deftest make-package.10 |
214 |
(progn |
(progn |
215 |
(safely-delete-package "TEST1") |
(mapc #'safely-delete-package '("TEST1" "F")) |
216 |
(let ((p (make-package "TEST1" :nicknames '("F")))) |
(let ((p (make-package "TEST1" :nicknames '("F")))) |
217 |
(prog1 |
(multiple-value-prog1 |
218 |
(and (packagep p) |
(values (notnot (packagep p)) |
219 |
(equalt (package-name p) "TEST1") |
(equalt (package-name p) "TEST1") |
220 |
(equalt (package-nicknames p) '("F")) |
(equalt (package-nicknames p) '("F")) |
221 |
(equalt (package-used-by-list p) nil)) |
(equalt (package-used-by-list p) nil)) |
222 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
223 |
t) |
t t t t) |
224 |
|
|
225 |
(deftest make-package.11 |
(deftest make-package.11 |
226 |
(progn |
(progn |
227 |
(safely-delete-package '#:|TEST1|) |
(mapc #'safely-delete-package '("TEST1" "G")) |
228 |
(let ((p (make-package '#:|TEST1| :nicknames '(#:|G|)))) |
(let ((p (make-package '#:|TEST1| :nicknames '(#:|G|)))) |
229 |
(prog1 |
(multiple-value-prog1 |
230 |
(and (packagep p) |
(values (notnot (packagep p)) |
231 |
(equalt (package-name p) "TEST1") |
(equalt (package-name p) "TEST1") |
232 |
(equalt (package-nicknames p) '("G")) |
(equalt (package-nicknames p) '("G")) |
233 |
(equalt (package-used-by-list p) nil)) |
(equalt (package-used-by-list p) nil)) |
234 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
235 |
t) |
t t t t) |
236 |
|
|
237 |
(deftest make-package.12 |
(deftest make-package.12 |
238 |
(progn |
(progn |
239 |
(safely-delete-package '#:|TEST1|) |
(mapc #'safely-delete-package '("TEST1" "G")) |
240 |
(let ((p (make-package '#:|TEST1| :nicknames '(#\G)))) |
(let ((p (make-package '#:|TEST1| :nicknames '(#\G)))) |
241 |
(prog1 |
(multiple-value-prog1 |
242 |
(and (packagep p) |
(values (notnot (packagep p)) |
243 |
(equalt (package-name p) "TEST1") |
(equalt (package-name p) "TEST1") |
244 |
(equalt (package-nicknames p) '("G")) |
(equalt (package-nicknames p) '("G")) |
245 |
(equalt (package-used-by-list p) nil)) |
(equalt (package-used-by-list p) nil)) |
246 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
247 |
t) |
t t t t) |
248 |
|
|
249 |
(deftest make-package.13 |
(deftest make-package.13 |
250 |
(progn |
(progn |
251 |
(safely-delete-package #\X) |
(mapc #'safely-delete-package '(#\X #\F #\G #\H)) |
252 |
(let ((p (make-package #\X :nicknames '("F" #\G #:|H|)))) |
(let ((p (make-package #\X :nicknames '("F" #\G #:|H|)))) |
253 |
(prog1 |
(multiple-value-prog1 |
254 |
(and (packagep p) |
(values (notnot (packagep p)) |
255 |
(equalt (package-name p) "X") |
(equalt (package-name p) "X") |
256 |
(null (set-exclusive-or (package-nicknames p) |
(set-exclusive-or (package-nicknames p) |
257 |
'("F" "G" "H") |
'("F" "G" "H") |
258 |
:test #'equal)) |
:test #'equal) |
259 |
(equalt (package-used-by-list p) nil)) |
(equalt (package-used-by-list p) nil)) |
260 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
261 |
t) |
t t nil t) |
262 |
|
|
263 |
;;; Specialized sequences as designators |
;;; Specialized sequences as designators |
264 |
|
|
270 |
(assert (string= name "TEST1")) |
(assert (string= name "TEST1")) |
271 |
(safely-delete-package "TEST1") |
(safely-delete-package "TEST1") |
272 |
(let ((p (ignore-errors (make-package name)))) |
(let ((p (ignore-errors (make-package name)))) |
273 |
(prog1 |
(multiple-value-prog1 |
274 |
(and (packagep p) |
(values (notnot (packagep p)) |
275 |
(equalt (package-name p) "TEST1") |
(equalt (package-name p) "TEST1") |
276 |
(equalt (package-nicknames p) nil) |
(equalt (package-nicknames p) nil) |
277 |
(equalt (package-used-by-list p) nil)) |
(equalt (package-used-by-list p) nil)) |
278 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
279 |
t)) |
t t t t)) |
280 |
|
|
281 |
(def-make-package-test1 make-package.14 |
(def-make-package-test1 make-package.14 |
282 |
(make-array 5 :initial-contents "TEST1" |
(make-array 5 :initial-contents "TEST1" |
327 |
(safely-delete-package "TEST1") |
(safely-delete-package "TEST1") |
328 |
(safely-delete-package nickname) |
(safely-delete-package nickname) |
329 |
(let ((p (make-package name :nicknames (list nickname)))) |
(let ((p (make-package name :nicknames (list nickname)))) |
330 |
(prog1 |
(multiple-value-prog1 |
331 |
(and (packagep p) |
(values (notnot (packagep p)) |
332 |
(equalt (package-name p) "TEST1") |
(equalt (package-name p) "TEST1") |
333 |
(equalt (package-nicknames p) (list nickname)) |
(equalt (package-nicknames p) (list nickname)) |
334 |
(equalt (package-used-by-list p) nil)) |
(equalt (package-used-by-list p) nil)) |
335 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
336 |
t)) |
t t t t)) |
337 |
|
|
338 |
(def-make-package-test2 make-package.21 |
(def-make-package-test2 make-package.21 |
339 |
(make-array 5 :initial-contents "TEST1" |
(make-array 5 :initial-contents "TEST1" |
383 |
(safely-delete-package "TEST1") |
(safely-delete-package "TEST1") |
384 |
(assert (find-package name)) |
(assert (find-package name)) |
385 |
(let ((p (ignore-errors (make-package "TEST1" :use (list name))))) |
(let ((p (ignore-errors (make-package "TEST1" :use (list name))))) |
386 |
(prog1 |
(multiple-value-prog1 |
387 |
(and (packagep p) |
(values (notnot (packagep p)) |
388 |
(equalt (package-name p) "TEST1") |
(equalt (package-name p) "TEST1") |
389 |
(equalt (package-nicknames p) nil) |
(equalt (package-nicknames p) nil) |
390 |
(equalt (package-use-list p) (list (find-package name))) |
(equalt (package-use-list p) (list (find-package name))) |
391 |
(equalt (package-used-by-list p) nil)) |
(equalt (package-used-by-list p) nil)) |
392 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
393 |
t)) |
t t t t t)) |
394 |
|
|
395 |
(def-make-package-test3 make-package.28 |
(def-make-package-test3 make-package.28 |
396 |
(make-array 1 :initial-contents "A" :element-type 'base-char)) |
(make-array 1 :initial-contents "A" :element-type 'base-char)) |