12 |
;; Test basic make-package, using string, symbol and character |
;; Test basic make-package, using string, symbol and character |
13 |
;; package-designators |
;; package-designators |
14 |
|
|
15 |
(deftest make-package-1 |
(deftest make-package.1 |
16 |
(progn |
(progn |
17 |
(safely-delete-package "TEST1") |
(safely-delete-package "TEST1") |
18 |
(let ((p (ignore-errors (make-package "TEST1")))) |
(let ((p (ignore-errors (make-package "TEST1")))) |
24 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
25 |
t) |
t) |
26 |
|
|
27 |
(deftest make-package-2 |
(deftest make-package.2 |
28 |
(progn |
(progn |
29 |
(safely-delete-package '#:|TEST1|) |
(safely-delete-package '#:|TEST1|) |
30 |
(let ((p (ignore-errors (make-package '#:|TEST1|)))) |
(let ((p (ignore-errors (make-package '#:|TEST1|)))) |
36 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
37 |
t) |
t) |
38 |
|
|
39 |
(deftest make-package-3 |
(deftest make-package.3 |
40 |
(progn |
(progn |
41 |
(safely-delete-package #\X) |
(safely-delete-package #\X) |
42 |
(let ((p (ignore-errors (make-package #\X)))) |
(let ((p (ignore-errors (make-package #\X)))) |
50 |
|
|
51 |
;; Same, but with a null :use list |
;; Same, but with a null :use list |
52 |
|
|
53 |
(deftest make-package-4 |
(deftest make-package.4 |
54 |
(progn |
(progn |
55 |
(safely-delete-package "TEST1") |
(safely-delete-package "TEST1") |
56 |
(let ((p (ignore-errors (make-package "TEST1" :use nil)))) |
(let ((p (ignore-errors (make-package "TEST1" :use nil)))) |
63 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
64 |
t) |
t) |
65 |
|
|
66 |
(deftest make-package-5 |
(deftest make-package.5 |
67 |
(progn |
(progn |
68 |
(safely-delete-package '#:|TEST1|) |
(safely-delete-package '#:|TEST1|) |
69 |
(let ((p (ignore-errors (make-package '#:|TEST1| :use nil)))) |
(let ((p (ignore-errors (make-package '#:|TEST1| :use nil)))) |
76 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
77 |
t) |
t) |
78 |
|
|
79 |
(deftest make-package-6 |
(deftest make-package.6 |
80 |
(progn |
(progn |
81 |
(safely-delete-package #\X) |
(safely-delete-package #\X) |
82 |
(let ((p (make-package #\X))) |
(let ((p (make-package #\X))) |
91 |
|
|
92 |
;; Same, but use the A package |
;; Same, but use the A package |
93 |
|
|
94 |
(deftest make-package-7 |
(deftest make-package.7 |
95 |
(progn |
(progn |
96 |
(safely-delete-package "TEST1") |
(safely-delete-package "TEST1") |
97 |
(let ((p (ignore-errors (make-package "TEST1" :use '("A"))))) |
(let ((p (ignore-errors (make-package "TEST1" :use '("A"))))) |
104 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
105 |
t) |
t) |
106 |
|
|
107 |
(deftest make-package-7a |
(deftest make-package.7a |
108 |
(progn |
(progn |
109 |
(safely-delete-package "TEST1") |
(safely-delete-package "TEST1") |
110 |
(let ((p (ignore-errors (make-package "TEST1" :use '(#:|A|))))) |
(let ((p (ignore-errors (make-package "TEST1" :use '(#:|A|))))) |
117 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
118 |
t) |
t) |
119 |
|
|
120 |
(deftest make-package-7b |
(deftest make-package.7b |
121 |
(progn |
(progn |
122 |
(safely-delete-package "TEST1") |
(safely-delete-package "TEST1") |
123 |
(let ((p (ignore-errors (make-package "TEST1" :use '(#\A))))) |
(let ((p (ignore-errors (make-package "TEST1" :use '(#\A))))) |
130 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
131 |
t) |
t) |
132 |
|
|
133 |
(deftest make-package-8 |
(deftest make-package.8 |
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"))))) |
143 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
144 |
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|))))) |
156 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
157 |
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))))) |
169 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
170 |
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"))))) |
182 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
183 |
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|))))) |
195 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
196 |
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))))) |
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") |
(safely-delete-package "TEST1") |
216 |
(let ((p (make-package "TEST1" :nicknames '("F")))) |
(let ((p (make-package "TEST1" :nicknames '("F")))) |
222 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
223 |
t) |
t) |
224 |
|
|
225 |
(deftest make-package-11 |
(deftest make-package.11 |
226 |
(progn |
(progn |
227 |
(safely-delete-package '#:|TEST1|) |
(safely-delete-package '#:|TEST1|) |
228 |
(let ((p (make-package '#:|TEST1| :nicknames '(#:|G|)))) |
(let ((p (make-package '#:|TEST1| :nicknames '(#:|G|)))) |
234 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
235 |
t) |
t) |
236 |
|
|
237 |
(deftest make-package-12 |
(deftest make-package.12 |
238 |
(progn |
(progn |
239 |
(safely-delete-package '#:|TEST1|) |
(safely-delete-package '#:|TEST1|) |
240 |
(let ((p (make-package '#:|TEST1| :nicknames '(#\G)))) |
(let ((p (make-package '#:|TEST1| :nicknames '(#\G)))) |
246 |
(safely-delete-package p)))) |
(safely-delete-package p)))) |
247 |
t) |
t) |
248 |
|
|
249 |
(deftest make-package-13 |
(deftest make-package.13 |
250 |
(progn |
(progn |
251 |
(safely-delete-package #\X) |
(safely-delete-package #\X) |
252 |
(let ((p (make-package #\X :nicknames '("F" #\G #:|H|)))) |
(let ((p (make-package #\X :nicknames '("F" #\G #:|H|)))) |