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

Diff of /gcl/ansi-tests/loop16.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 201  Line 201 
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)))

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