29 |
|
|
30 |
;; The list returned has only packages in it |
;; The list returned has only packages in it |
31 |
(deftest list-all-packages-3 |
(deftest list-all-packages-3 |
32 |
(not (not (every #'packagep (list-all-packages)))) |
(notnot (every #'packagep (list-all-packages))) |
33 |
t) |
t) |
34 |
|
|
35 |
;; It returns a list of the same packages each time it is called |
;; It returns a list of the same packages each time it is called |
155 |
t) |
t) |
156 |
|
|
157 |
(deftest package-nicknames-8 |
(deftest package-nicknames-8 |
158 |
(ignore-errors |
(ignore-errors |
159 |
(subsetp '("CL-USER") |
(notnot |
160 |
(package-nicknames "COMMON-LISP-USER") |
(subsetp '("CL-USER") |
161 |
:test #'string=)) |
(package-nicknames "COMMON-LISP-USER") |
162 |
|
:test #'string=))) |
163 |
t) |
t) |
164 |
|
|
165 |
(deftest package-nicknames-9 |
(deftest package-nicknames-9 |