/[gcl]/gcl/ansi-tests/loop15.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/loop15.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pfdietz, Thu Nov 21 15:53:49 2002 UTC revision 1.2 by pfdietz, Sat Jul 12 13:46:01 2003 UTC
# Line 202  Line 202 
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)))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26