40 |
(subsetp p2 p1))) |
(subsetp p2 p1))) |
41 |
t) |
t) |
42 |
|
|
43 |
|
(deftest list-all-packages.error.1 |
44 |
|
(classify-error (list-all-packages nil)) |
45 |
|
program-error) |
46 |
|
|
47 |
|
|
48 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
49 |
;;; package-name |
;;; package-name |
126 |
(ignore-errors (package-name (package-name p)))))) |
(ignore-errors (package-name (package-name p)))))) |
127 |
0) |
0) |
128 |
|
|
129 |
|
(deftest package-name.error.1 |
130 |
|
(classify-error (package-name)) |
131 |
|
program-error) |
132 |
|
|
133 |
|
(deftest package-name.error.2 |
134 |
|
(classify-error (package-name "CL" nil)) |
135 |
|
program-error) |
136 |
|
|
137 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
138 |
;;; package-nicknames |
;;; package-nicknames |
139 |
|
|
201 |
(and (stringp nk) |
(and (stringp nk) |
202 |
(eqt p (find-package nk)))))) |
(eqt p (find-package nk)))))) |
203 |
0) |
0) |
204 |
|
|
205 |
|
(deftest package-nicknames.error.1 |
206 |
|
(classify-error (package-nicknames)) |
207 |
|
program-error) |
208 |
|
|
209 |
|
(deftest package-nicknames.error.2 |
210 |
|
(classify-error (package-nicknames "CL" nil)) |
211 |
|
program-error) |