49 |
;;; package-name |
;;; package-name |
50 |
|
|
51 |
(deftest package-name.1 |
(deftest package-name.1 |
52 |
(ignore-errors (package-name "A")) |
(let () (ignore-errors (package-name "A"))) |
53 |
"A") |
"A") |
54 |
|
|
55 |
(deftest package-name.2 |
(deftest package-name.2 |
56 |
(ignore-errors (package-name #\A)) |
(let () (ignore-errors (package-name #\A))) |
57 |
"A") |
"A") |
58 |
|
|
59 |
(deftest package-name.3 |
(deftest package-name.3 |
60 |
(ignore-errors (package-name "Q")) |
(let () (ignore-errors (package-name "Q"))) |
61 |
"A") |
"A") |
62 |
|
|
63 |
(deftest package-name.4 |
(deftest package-name.4 |
64 |
(ignore-errors (package-name #\Q)) |
(let () (ignore-errors (package-name #\Q))) |
65 |
"A") |
"A") |
66 |
|
|
67 |
(deftest package-name.5 |
(deftest package-name.5 |
143 |
;;; package-nicknames |
;;; package-nicknames |
144 |
|
|
145 |
(deftest package-nicknames.1 |
(deftest package-nicknames.1 |
146 |
(ignore-errors (package-nicknames "A")) |
(let () (ignore-errors (package-nicknames "A"))) |
147 |
("Q")) |
("Q")) |
148 |
|
|
149 |
(deftest package-nicknames.2 |
(deftest package-nicknames.2 |
150 |
(ignore-errors (package-nicknames #\A)) |
(let () (ignore-errors (package-nicknames #\A))) |
151 |
("Q")) |
("Q")) |
152 |
|
|
153 |
(deftest package-nicknames.3 |
(deftest package-nicknames.3 |
154 |
(ignore-errors (package-nicknames ':|A|)) |
(let () (ignore-errors (package-nicknames ':|A|))) |
155 |
("Q")) |
("Q")) |
156 |
|
|
157 |
(deftest package-nicknames.4 |
(deftest package-nicknames.4 |
158 |
(ignore-errors (package-nicknames "B")) |
(let () (ignore-errors (package-nicknames "B"))) |
159 |
nil) |
nil) |
160 |
|
|
161 |
(deftest package-nicknames.5 |
(deftest package-nicknames.5 |
162 |
(ignore-errors (package-nicknames #\B)) |
(let () (ignore-errors (package-nicknames #\B))) |
163 |
nil) |
nil) |
164 |
|
|
165 |
(deftest package-nicknames.6 |
(deftest package-nicknames.6 |
166 |
(ignore-errors (package-nicknames '#:|B|)) |
(let () (ignore-errors (package-nicknames '#:|B|))) |
167 |
nil) |
nil) |
168 |
|
|
169 |
(deftest package-nicknames.7 |
(deftest package-nicknames.7 |
170 |
(ignore-errors |
(let () |
171 |
(subsetp '(#.(string '#:cl)) |
(ignore-errors |
172 |
(package-nicknames "COMMON-LISP") |
(subsetp '(#.(string '#:cl)) |
173 |
:test #'string=)) |
(package-nicknames "COMMON-LISP") |
174 |
|
:test #'string=))) |
175 |
t) |
t) |
176 |
|
|
177 |
(deftest package-nicknames.8 |
(deftest package-nicknames.8 |
178 |
(ignore-errors |
(let () |
179 |
(notnot |
(ignore-errors |
180 |
(subsetp '(#.(string '#:cl-user)) |
(notnot |
181 |
(package-nicknames "COMMON-LISP-USER") |
(subsetp '(#.(string '#:cl-user)) |
182 |
:test #'string=))) |
(package-nicknames "COMMON-LISP-USER") |
183 |
|
:test #'string=)))) |
184 |
t) |
t) |
185 |
|
|
186 |
(deftest package-nicknames.9 |
(deftest package-nicknames.9 |
192 |
type-error) |
type-error) |
193 |
|
|
194 |
(deftest package-nicknames.10 |
(deftest package-nicknames.10 |
195 |
(ignore-errors (package-nicknames (find-package "A"))) |
(let () (ignore-errors (package-nicknames (find-package "A")))) |
196 |
("Q")) |
("Q")) |
197 |
|
|
198 |
(deftest package-nicknames.11 |
(deftest package-nicknames.11 |