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 |
|
|
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) |