From 538ec2f37604762e3205173409509cffa743bb4d Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Wed, 14 Apr 2004 18:17:11 +0000
Subject: [PATCH] Fixed typos spotted by CR.

---
 ansi-tests/acosh.lsp | 2 +-
 ansi-tests/asinh.lsp | 2 +-
 ansi-tests/atanh.lsp | 4 ++--
 ansi-tests/cosh.lsp  | 2 +-
 ansi-tests/log.lsp   | 4 ++--
 ansi-tests/sinh.lsp  | 2 +-
 ansi-tests/tanh.lsp  | 2 +-
 7 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/ansi-tests/acosh.lsp b/ansi-tests/acosh.lsp
index 4173b926..4c59d3ed 100644
--- a/ansi-tests/acosh.lsp
+++ b/ansi-tests/acosh.lsp
@@ -65,7 +65,7 @@
 	 repeat 1000
 	 unless (and (null (cdr rlist))
 		     (typep y `(complex ,type)))
-	 collect (list x rlist)))
+	 collect (list x1 x2 rlist)))
   nil)
 
 ;;; FIXME
diff --git a/ansi-tests/asinh.lsp b/ansi-tests/asinh.lsp
index 8749f884..f5f77c8a 100644
--- a/ansi-tests/asinh.lsp
+++ b/ansi-tests/asinh.lsp
@@ -63,7 +63,7 @@
 	 repeat 1000
 	 unless (and (null (cdr rlist))
 		     (typep y `(complex ,type)))
-	 collect (list x rlist)))
+	 collect (list x1 x2 rlist)))
   nil)
 
 ;;; FIXME
diff --git a/ansi-tests/atanh.lsp b/ansi-tests/atanh.lsp
index c0f3e95d..08686c15 100644
--- a/ansi-tests/atanh.lsp
+++ b/ansi-tests/atanh.lsp
@@ -77,7 +77,7 @@
 	 repeat 1000
 	 unless (and (null (cdr rlist))
 		     (typep y `(complex ,type)))
-	 collect (list x rlist)))
+	 collect (list x1 rlist)))
   nil)
 
 (deftest atanh.7
@@ -90,7 +90,7 @@
 	 repeat 1000
 	 unless (and (null (cdr rlist))
 		     (typep y `(complex ,type)))
-	 collect (list x rlist)))
+	 collect (list x1 rlist)))
   nil)
 
 
diff --git a/ansi-tests/cosh.lsp b/ansi-tests/cosh.lsp
index 4a67c95f..10fb6513 100644
--- a/ansi-tests/cosh.lsp
+++ b/ansi-tests/cosh.lsp
@@ -65,7 +65,7 @@
 	 repeat 1000
 	 unless (and (null (cdr rlist))
 		     (typep y `(complex ,type)))
-	 collect (list x rlist)))
+	 collect (list x1 x2 rlist)))
   nil)
 
 ;;; FIXME
diff --git a/ansi-tests/log.lsp b/ansi-tests/log.lsp
index 8e2ec850..24301457 100644
--- a/ansi-tests/log.lsp
+++ b/ansi-tests/log.lsp
@@ -78,7 +78,7 @@
 	 repeat 1000
 	 unless (and (null (cdr rlist))
 		     (typep y `(complex ,type)))
-	 collect (list x rlist)))
+	 collect (list x1 x2 rlist)))
   nil)
 
 (deftest log.8
@@ -92,7 +92,7 @@
 	 repeat 1000
 	 unless (and (null (cdr rlist))
 		     (typep y `(complex ,type)))
-	 collect (list x rlist)))
+	 collect (list x1 x2 rlist)))
   nil)
 
 ;;; FIXME
diff --git a/ansi-tests/sinh.lsp b/ansi-tests/sinh.lsp
index 28d89dad..5efa0f85 100644
--- a/ansi-tests/sinh.lsp
+++ b/ansi-tests/sinh.lsp
@@ -63,7 +63,7 @@
 	 repeat 1000
 	 unless (and (null (cdr rlist))
 		     (typep y `(complex ,type)))
-	 collect (list x rlist)))
+	 collect (list x1 x2 rlist)))
   nil)
 
 ;;; FIXME
diff --git a/ansi-tests/tanh.lsp b/ansi-tests/tanh.lsp
index b9fa3e7e..5b147927 100644
--- a/ansi-tests/tanh.lsp
+++ b/ansi-tests/tanh.lsp
@@ -63,7 +63,7 @@
 	 repeat 1000
 	 unless (and (null (cdr rlist))
 		     (typep y `(complex ,type)))
-	 collect (list x rlist)))
+	 collect (list x1 x2 rlist)))
   nil)
 
 ;;; FIXME
-- 
GitLab