183 |
(dolist (p '("H1" "H2" "G1" "G2" "G3")) |
(dolist (p '("H1" "H2" "G1" "G2" "G3")) |
184 |
(ignore-errors (delete-package p))))))) |
(ignore-errors (delete-package p))))))) |
185 |
t) |
t) |
186 |
|
|
187 |
|
(deftest unuse-package.error.1 |
188 |
|
(classify-error (unuse-package)) |
189 |
|
program-error) |
190 |
|
|
191 |
|
(deftest unuse-package.error.2 |
192 |
|
(progn |
193 |
|
(ignore-errors (delete-package "UPE2")) |
194 |
|
(ignore-errors (delete-package "UPE2A")) |
195 |
|
(make-package "UPE2" :use ()) |
196 |
|
(make-package "UPE2A" :use '("UPE2")) |
197 |
|
(classify-error (unuse-package "UPE2" "UPE2A" nil))) |
198 |
|
program-error) |