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

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

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

revision 1.1 by pfdietz, Fri Nov 15 12:34:41 2002 UTC revision 1.2 by pfdietz, Mon Nov 18 13:35:17 2002 UTC
# Line 98  Line 98 
98          #'string<)          #'string<)
99    ("X" "Y" "Z"))    ("X" "Y" "Z"))
100    
101  ;;; According to the ANSI CL spec, " If the package for the iteration is not supplied,  ;;; According to the ANSI CL spec, "If the package for the iteration is not supplied,
102  ;;; the current package is used."  Thse next tests are of the cases that the package  ;;; the current package is used."  Thse next tests are of the cases that the package
103  ;;; is not supplied in the loop form.  ;;; is not supplied in the loop form.
104    
# Line 125  Line 125 
125    
126  (deftest loop.7.18  (deftest loop.7.18
127    (progn    (progn
128      (ignore-errors (delete-package "LOOP.MISSING,PACKAGE"))      (ignore-errors (delete-package "LOOP.MISSING.PACKAGE"))
129      (classify-error      (classify-error
130       (loop for x being each symbol of "LOOP.MISSING.PACKAGE" collect x)))       (loop for x being each symbol of "LOOP.MISSING.PACKAGE" collect x)))
131    package-error)    package-error)
132    
133  (deftest loop.7.19  (deftest loop.7.19
134    (progn    (progn
135      (ignore-errors (delete-package "LOOP.MISSING,PACKAGE"))      (ignore-errors (delete-package "LOOP.MISSING.PACKAGE"))
136      (classify-error      (classify-error
137       (loop for x being each present-symbol of "LOOP.MISSING.PACKAGE" collect x)))       (loop for x being each present-symbol of "LOOP.MISSING.PACKAGE" collect x)))
138    package-error)    package-error)
139    
140  (deftest loop.7.20  (deftest loop.7.20
141    (progn    (progn
142      (ignore-errors (delete-package "LOOP.MISSING,PACKAGE"))      (ignore-errors (delete-package "LOOP.MISSING.PACKAGE"))
143      (classify-error      (classify-error
144       (loop for x being each external-symbol of "LOOP.MISSING.PACKAGE" collect x)))       (loop for x being each external-symbol of "LOOP.MISSING.PACKAGE" collect x)))
145    package-error)    package-error)

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