Skip to content
Snippets Groups Projects
Commit 427111ab authored by pfdietz's avatar pfdietz
Browse files

Minor typo fixes

parent 870ca24b
No related branches found
No related tags found
No related merge requests found
...@@ -98,7 +98,7 @@ ...@@ -98,7 +98,7 @@
#'string<) #'string<)
("X" "Y" "Z")) ("X" "Y" "Z"))
;;; 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,
;;; 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
;;; is not supplied in the loop form. ;;; is not supplied in the loop form.
...@@ -125,21 +125,21 @@ ...@@ -125,21 +125,21 @@
(deftest loop.7.18 (deftest loop.7.18
(progn (progn
(ignore-errors (delete-package "LOOP.MISSING,PACKAGE")) (ignore-errors (delete-package "LOOP.MISSING.PACKAGE"))
(classify-error (classify-error
(loop for x being each symbol of "LOOP.MISSING.PACKAGE" collect x))) (loop for x being each symbol of "LOOP.MISSING.PACKAGE" collect x)))
package-error) package-error)
(deftest loop.7.19 (deftest loop.7.19
(progn (progn
(ignore-errors (delete-package "LOOP.MISSING,PACKAGE")) (ignore-errors (delete-package "LOOP.MISSING.PACKAGE"))
(classify-error (classify-error
(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)))
package-error) package-error)
(deftest loop.7.20 (deftest loop.7.20
(progn (progn
(ignore-errors (delete-package "LOOP.MISSING,PACKAGE")) (ignore-errors (delete-package "LOOP.MISSING.PACKAGE"))
(classify-error (classify-error
(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)))
package-error) package-error)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment