/[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.2 by pfdietz, Mon Nov 18 13:35:17 2002 UTC revision 1.3 by pfdietz, Sat Jul 12 13:46:01 2003 UTC
# Line 124  Line 124 
124  ;;; (section 6.1.2.1.7), this should cause a pacakge-error.  ;;; (section 6.1.2.1.7), this should cause a pacakge-error.
125    
126  (deftest loop.7.18  (deftest loop.7.18
127    (progn    (let ()
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    (let ()
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    (let ()
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)))

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

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