201 |
0) |
0) |
202 |
|
|
203 |
(deftest loop.16.70 |
(deftest loop.16.70 |
204 |
(progn |
(let () |
205 |
(ignore-errors (delete-package "LOOP.16.PACKAGE")) |
(ignore-errors (delete-package "LOOP.16.PACKAGE")) |
206 |
(let ((p (make-package "LOOP.16.PACKAGE" :use nil))) |
(let ((p (make-package "LOOP.16.PACKAGE" :use nil))) |
207 |
(loop #:for x #:being #:the #:symbols #:of p #:count t))) |
(loop #:for x #:being #:the #:symbols #:of p #:count t))) |
208 |
0) |
0) |
209 |
|
|
210 |
(deftest loop.16.71 |
(deftest loop.16.71 |
211 |
(progn |
(let () |
212 |
(ignore-errors (delete-package "LOOP.16.PACKAGE")) |
(ignore-errors (delete-package "LOOP.16.PACKAGE")) |
213 |
(let ((p (make-package "LOOP.16.PACKAGE" :use nil))) |
(let ((p (make-package "LOOP.16.PACKAGE" :use nil))) |
214 |
(loop #:for x #:being #:each #:symbol #:of p #:count t))) |
(loop #:for x #:being #:each #:symbol #:of p #:count t))) |
215 |
0) |
0) |
216 |
|
|
217 |
(deftest loop.16.72 |
(deftest loop.16.72 |
218 |
(progn |
(let () |
219 |
(ignore-errors (delete-package "LOOP.16.PACKAGE")) |
(ignore-errors (delete-package "LOOP.16.PACKAGE")) |
220 |
(let ((p (make-package "LOOP.16.PACKAGE" :use nil))) |
(let ((p (make-package "LOOP.16.PACKAGE" :use nil))) |
221 |
(loop #:for x #:being #:the #:external-symbols #:of p #:count t))) |
(loop #:for x #:being #:the #:external-symbols #:of p #:count t))) |
222 |
0) |
0) |
223 |
|
|
224 |
(deftest loop.16.73 |
(deftest loop.16.73 |
225 |
(progn |
(let () |
226 |
(ignore-errors (delete-package "LOOP.16.PACKAGE")) |
(ignore-errors (delete-package "LOOP.16.PACKAGE")) |
227 |
(let ((p (make-package "LOOP.16.PACKAGE" :use nil))) |
(let ((p (make-package "LOOP.16.PACKAGE" :use nil))) |
228 |
(loop #:for x #:being #:each #:external-symbol #:of p #:count t))) |
(loop #:for x #:being #:each #:external-symbol #:of p #:count t))) |
229 |
0) |
0) |
230 |
|
|
231 |
(deftest loop.16.74 |
(deftest loop.16.74 |
232 |
(progn |
(let () |
233 |
(ignore-errors (delete-package "LOOP.16.PACKAGE")) |
(ignore-errors (delete-package "LOOP.16.PACKAGE")) |
234 |
(let ((p (make-package "LOOP.16.PACKAGE" :use nil))) |
(let ((p (make-package "LOOP.16.PACKAGE" :use nil))) |
235 |
(loop #:for x #:being #:the #:present-symbols #:of p #:count t))) |
(loop #:for x #:being #:the #:present-symbols #:of p #:count t))) |
236 |
0) |
0) |
237 |
|
|
238 |
(deftest loop.16.75 |
(deftest loop.16.75 |
239 |
(progn |
(let () |
240 |
(ignore-errors (delete-package "LOOP.16.PACKAGE")) |
(ignore-errors (delete-package "LOOP.16.PACKAGE")) |
241 |
(let ((p (make-package "LOOP.16.PACKAGE" :use nil))) |
(let ((p (make-package "LOOP.16.PACKAGE" :use nil))) |
242 |
(loop #:for x #:being #:each #:present-symbol #:of p #:count t))) |
(loop #:for x #:being #:each #:present-symbol #:of p #:count t))) |