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