From a1606229e94a7286d494bf8eebbc53ad989fa42e Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 2 Nov 2002 00:13:12 +0000
Subject: [PATCH] Fixed type in program-error symbol in some loops tests.

---
 ansi-tests/loop2.lsp | 4 ++--
 ansi-tests/loop3.lsp | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/ansi-tests/loop2.lsp b/ansi-tests/loop2.lsp
index 336679fe..f93c566a 100644
--- a/ansi-tests/loop2.lsp
+++ b/ansi-tests/loop2.lsp
@@ -76,12 +76,12 @@
   (classify-error
    (loop for x in '(a b c)
 	 for x in '(d e f) collect x))
-  programm-error)
+  program-error)
 
 (deftest loop.2.15
   (classify-error
    (loop for (x . x) in '((a b) (c d)) collect x))
-  programm-error)
+  program-error)
 
 (deftest loop.2.16
   (loop for nil in nil do (return t))
diff --git a/ansi-tests/loop3.lsp b/ansi-tests/loop3.lsp
index 9fe3051a..44ccd030 100644
--- a/ansi-tests/loop3.lsp
+++ b/ansi-tests/loop3.lsp
@@ -75,12 +75,12 @@
   (classify-error
    (loop for x on '(a b c)
 	 for x on '(d e f) collect x))
-  programm-error)
+  program-error)
 
 (deftest loop.3.15
   (classify-error
    (loop for (x . x) on '((a b) (c d)) collect x))
-  programm-error)
+  program-error)
 
 (deftest loop.3.16
   (loop for nil on nil do (return t))
-- 
GitLab