112 |
(mapcar |
(mapcar |
113 |
#'notnot |
#'notnot |
114 |
(list |
(list |
115 |
(not (not (packagep p))) |
(packagep p) |
116 |
(equal (package-name p) "H") |
(equal (package-name p) "H") |
117 |
(equal (package-use-list p) nil) |
(equal (package-use-list p) nil) |
118 |
(equal (package-used-by-list p) nil) |
(equal (package-used-by-list p) nil) |
119 |
(equal (package-nicknames p) nil) |
(equal (package-nicknames p) nil) |
120 |
(eql (num-symbols-in-package p) 1) |
(eql (num-symbols-in-package p) 1) |
121 |
(multiple-value-bind (sym access) |
(multiple-value-bind* (sym access) |
122 |
(find-symbol "foo" p) |
(find-symbol "foo" p) |
123 |
(and (eqt access :internal) |
(and (eqt access :internal) |
124 |
(equal (symbol-name sym) "foo") |
(equal (symbol-name sym) "foo") |
143 |
(mapcar |
(mapcar |
144 |
#'notnot |
#'notnot |
145 |
(list |
(list |
146 |
(not (not (packagep p))) |
(packagep p) |
147 |
(equal (package-name p) "H") |
(equal (package-name p) "H") |
148 |
(equal (package-use-list p) nil) |
(equal (package-use-list p) nil) |
149 |
(equal (package-used-by-list p) nil) |
(equal (package-used-by-list p) nil) |
150 |
(equal (package-nicknames p) nil) |
(equal (package-nicknames p) nil) |
151 |
(eql (num-symbols-in-package p) 1) |
(eql (num-symbols-in-package p) 1) |
152 |
(multiple-value-bind (sym access) |
(multiple-value-bind* (sym access) |
153 |
(find-symbol "f" p) |
(find-symbol "f" p) |
154 |
(and (eqt access :internal) |
(and (eqt access :internal) |
155 |
(equal (symbol-name sym) "f") |
(equal (symbol-name sym) "f") |
188 |
(mapcar |
(mapcar |
189 |
#'notnot |
#'notnot |
190 |
(list |
(list |
191 |
(not (not (packagep p))) |
(packagep p) |
192 |
(equal (package-name p) "H") |
(equal (package-name p) "H") |
193 |
(equal (package-use-list p) nil) |
(equal (package-use-list p) nil) |
194 |
(equal (package-used-by-list p) nil) |
(equal (package-used-by-list p) nil) |
195 |
(equal (package-nicknames p) nil) |
(equal (package-nicknames p) nil) |
196 |
(eql (num-symbols-in-package p) 1) |
(eql (num-symbols-in-package p) 1) |
197 |
(multiple-value-bind (sym access) |
(multiple-value-bind* (sym access) |
198 |
(find-symbol "A" p) |
(find-symbol "A" p) |
199 |
(and (eqt access :internal) |
(and (eqt access :internal) |
200 |
(equal (symbol-name sym) "A") |
(equal (symbol-name sym) "A") |
231 |
(mapcar |
(mapcar |
232 |
#'notnot |
#'notnot |
233 |
(list |
(list |
234 |
(not (not (packagep p))) |
(packagep p) |
235 |
(equal (package-name p) "H") |
(equal (package-name p) "H") |
236 |
(equal (package-use-list p) nil) |
(equal (package-use-list p) nil) |
237 |
(equal (package-used-by-list p) nil) |
(equal (package-used-by-list p) nil) |
238 |
(equal (package-nicknames p) nil) |
(equal (package-nicknames p) nil) |
239 |
(equal (package-shadowing-symbols p) nil) |
(equal (package-shadowing-symbols p) nil) |
240 |
(eql (num-symbols-in-package p) 2) |
(eql (num-symbols-in-package p) 2) |
241 |
(multiple-value-bind (sym access) |
(multiple-value-bind* (sym access) |
242 |
(find-symbol "A" p) |
(find-symbol "A" p) |
243 |
(and (eqt access :internal) |
(and (eqt access :internal) |
244 |
(equal (symbol-name sym) "A") |
(equal (symbol-name sym) "A") |
245 |
(equal (symbol-package sym) pg))) |
(equal (symbol-package sym) pg))) |
246 |
(multiple-value-bind (sym access) |
(multiple-value-bind* (sym access) |
247 |
(find-symbol "B" p) |
(find-symbol "B" p) |
248 |
(and (eqt access :internal) |
(and (eqt access :internal) |
249 |
(equal (symbol-name sym) "B") |
(equal (symbol-name sym) "B") |
270 |
(mapcar |
(mapcar |
271 |
#'notnot |
#'notnot |
272 |
(list |
(list |
273 |
(not (not (packagep p))) |
(packagep p) |
274 |
(equal (package-name p) "H") |
(equal (package-name p) "H") |
275 |
(equal (package-use-list p) nil) |
(equal (package-use-list p) nil) |
276 |
(equal (package-used-by-list p) nil) |
(equal (package-used-by-list p) nil) |
280 |
(loop |
(loop |
281 |
for s in '("Q" "Z" "R") do |
for s in '("Q" "Z" "R") do |
282 |
(unless |
(unless |
283 |
(multiple-value-bind (sym access) |
(multiple-value-bind* (sym access) |
284 |
(find-symbol s p) |
(find-symbol s p) |
285 |
(and (eqt access :external) |
(and (eqt access :external) |
286 |
(equal (symbol-name sym) s) |
(equal (symbol-name sym) s) |
306 |
(mapcar |
(mapcar |
307 |
#'notnot |
#'notnot |
308 |
(list |
(list |
309 |
(not (not (packagep p))) |
(packagep p) |
310 |
(equal (package-name p) "H") |
(equal (package-name p) "H") |
311 |
(equal (package-use-list p) nil) |
(equal (package-use-list p) nil) |
312 |
(equal (package-used-by-list p) nil) |
(equal (package-used-by-list p) nil) |
316 |
(loop |
(loop |
317 |
for s in '("Q" "Z" "R") do |
for s in '("Q" "Z" "R") do |
318 |
(unless |
(unless |
319 |
(multiple-value-bind (sym access) |
(multiple-value-bind* (sym access) |
320 |
(find-symbol s p) |
(find-symbol s p) |
321 |
(and (eqt access :internal) |
(and (eqt access :internal) |
322 |
(equal (symbol-name sym) s) |
(equal (symbol-name sym) s) |
572 |
(unless |
(unless |
573 |
(every |
(every |
574 |
#'(lambda (str acc pkg) |
#'(lambda (str acc pkg) |
575 |
(multiple-value-bind |
(multiple-value-bind* |
576 |
(sym access) |
(sym access) |
577 |
(find-symbol str p) |
(find-symbol str p) |
578 |
(or |
(or |