errors with checks: bessel.lisp



With the newest version of bessel.lisp I get the following errors
with the testsuite and clisp:

Running tests in rtest14: 
********************** Problem 187 ***************
Input:
test_bessel(bessel_j(- 1, %i + 1.0), - .3650280288270878 %i
                                                       - .6141603349229036, 14)


Result:
error-catch

This differed from the expected result:
true

********************** Problem 189 ***************
Input:
test_bessel(bessel_j(- 2, %i + 1.0), .2473976415133063 %i
                                                      + 0.0415798869439621, 15)


Result:
error-catch

This differed from the expected result:
true

********************** Problem 191 ***************
Input:
test_bessel(bessel_j(- 2.3, %i + 1.0), 
                                  .1920598664138632 - .5158676904105332 %i, 14)


Result:
error-catch

This differed from the expected result:
true

********************** Problem 216 ***************
Input:
test_bessel(bessel_y(- 1, %i + 1.0), .6576945355913452 - .6298010039928844 %i, 
                                                                            15)


Result:
error-catch

This differed from the expected result:
true

********************** Problem 218 ***************
Input:
test_bessel(bessel_y(- 2, %i + 1.0), .5773369575804951 %i - .4733680205344934, 
                                                                            14)


Result:
error-catch

This differed from the expected result:
true

********************** Problem 220 ***************
Input:
test_bessel(bessel_y(- 2.3, %i + 1.0), 
                                  .5821870838327466 %i - .1570442638685963, 14)


Result:
error-catch

This differed from the expected result:
true

********************** Problem 221 ***************
Input:
test_bessel(bessel_i(- 1, - 2.0), - 1.590636854637329, 15)


Result:
error-catch

This differed from the expected result:
true

********************** Problem 222 ***************
Input:
test_bessel(bessel_i(- 1, 2.0), 1.590636854637329, 15)


Result:
error-catch

This differed from the expected result:
true

********************** Problem 223 ***************
Input:
test_bessel(bessel_i(- 1, - 1.5), - .9816664285779076, 15)


Result:
error-catch

This differed from the expected result:
true

********************** Problem 224 ***************
Input:
test_bessel(bessel_i(- 1, 1.5), .9816664285779076, 15)


Result:
error-catch

This differed from the expected result:
true

********************** Problem 225 ***************
Input:
test_bessel(bessel_i(- 1.5, - 2.0), .9849410530002364 %i, 14)


Result:
error-catch

This differed from the expected result:
true

********************** Problem 226 ***************
Input:
test_bessel(bessel_i(- 1.5, 2.0), .9849410530002364, 14)


Result:
error-catch

This differed from the expected result:
true

********************** Problem 227 ***************
Input:
test_bessel(bessel_i(- 1.8, - 1.5), .1472631941876387 %i + .2026903980307014, 
                                                                            15)


Result:
error-catch

This differed from the expected result:
true

********************** Problem 228 ***************
Input:
test_bessel(bessel_i(- 1.8, 1.5), .2505391103524365, 15)


Result:
error-catch

This differed from the expected result:
true

********************** Problem 229 ***************
Input:
test_bessel(bessel_i(- 2, - 1.5), .3378346183356807, 15)


Result:
error-catch

This differed from the expected result:
true

********************** Problem 230 ***************
Input:
test_bessel(bessel_i(- 2, 1.5), .3378346183356807, 15)


Result:
error-catch

This differed from the expected result:
true

********************** Problem 231 ***************
Input:
test_bessel(bessel_i(- 2.5, - 1.5), - .8015666610717216 %i, 14)


Result:
error-catch

This differed from the expected result:
true

********************** Problem 232 ***************
Input:
test_bessel(bessel_i(- 2.5, 1.5), .8015666610717216, 14)


Result:
error-catch

This differed from the expected result:
true

********************** Problem 233 ***************
Input:
test_bessel(bessel_i(- 2.3, - 1.5), 0.373394526583023 - .5139334755917659 %i, 
                                                                            15)


Result:
error-catch

This differed from the expected result:
true

********************** Problem 234 ***************
Input:
test_bessel(bessel_i(- 2.3, 1.5), .6352567117441515, 15)


Result:
error-catch

This differed from the expected result:
true
257/277 tests passed (not counting 2 expected errors).

The following 20 problems failed: (187 189 191 216 218 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234)


The tests are OK in sbcl.

I haven't test with other lisps yet, that I have on a different
computer.

Andreas

--  
Wherever I lay my .emacs, there's my $HOME.