16 |
|
|
17 |
;; The required packages are present |
;; The required packages are present |
18 |
(deftest list-all-packages.2 |
(deftest list-all-packages.2 |
19 |
(subsetp |
(progn |
20 |
(list (find-package "CL") |
(set-up-packages) |
21 |
(find-package "CL-USER") |
(notnot |
22 |
(find-package "KEYWORD") |
(subsetp |
23 |
(find-package "A") |
(list (find-package "CL") |
24 |
(find-package "REGRESSION-TEST") |
(find-package "CL-USER") |
25 |
(find-package "CL-TEST") |
(find-package "KEYWORD") |
26 |
(find-package "B")) |
(find-package "A") |
27 |
(list-all-packages)) |
(find-package "REGRESSION-TEST") |
28 |
|
(find-package "CL-TEST") |
29 |
|
(find-package "B")) |
30 |
|
(list-all-packages)))) |
31 |
t) |
t) |
32 |
|
|
33 |
;; The list returned has only packages in it |
;; The list returned has only packages in it |