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