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