diff --git a/ansi-tests/acosh.lsp b/ansi-tests/acosh.lsp index 4173b926c3e542ba56a6a179fae7514e7c2decb4..4c59d3eda3a9f7ddcd1cf77fa113a062dd20d593 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 8749f8849b1a50982b33657a3507911f885172c4..f5f77c8aa70c07a92aac663802cf42d7b3835af0 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 c0f3e95d05634a26b999f970f68de06260671928..08686c158bd65397ae3cf4fddecfe70866cf0c86 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 4a67c95fc71412acc5528d722175bb89f4522e13..10fb651302ee0a153b69dfbd5c2e5c59aa1890e7 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 8e2ec8507c26087051b7d53a4d1156bf361fd25d..243014576e6ff8b2c702e130b005d0bc1eda342f 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 28d89dadbb82cb1ee73c79e70643c491b6d557b8..5efa0f85beabe3b868ff29c998ac22d00b435779 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 b9fa3e7eb23d7a2496f3d8e5d4d90739f6f6f201..5b1479276500895bbdb0318eca7c4cb926783a5f 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