1387 |
exception:numerical-overflow |
exception:numerical-overflow |
1388 |
(/ 0)) |
(/ 0)) |
1389 |
|
|
1390 |
(pass-if-exception "(/ 0.0)" |
(pass-if "(/ 0.0)" |
1391 |
exception:numerical-overflow |
(= +inf.0 (/ 0.0))) |
|
(/ 0.0)) |
|
1392 |
|
|
1393 |
(pass-if-exception "(/ 1 0)" |
(pass-if-exception "(/ 1 0)" |
1394 |
exception:numerical-overflow |
exception:numerical-overflow |
1395 |
(/ 1 0)) |
(/ 1 0)) |
1396 |
|
|
1397 |
(pass-if-exception "(/ 1 0.0)" |
(pass-if "(/ 1 0.0)" |
1398 |
exception:numerical-overflow |
(= +inf.0 (/ 1 0.0))) |
|
(/ 1 0.0)) |
|
1399 |
|
|
1400 |
(pass-if-exception "(/ bignum 0)" |
(pass-if-exception "(/ bignum 0)" |
1401 |
exception:numerical-overflow |
exception:numerical-overflow |
1402 |
(/ (+ fixnum-max 1) 0)) |
(/ (+ fixnum-max 1) 0)) |
1403 |
|
|
1404 |
(pass-if-exception "(/ bignum 0.0)" |
(pass-if "(/ bignum 0.0)" |
1405 |
exception:numerical-overflow |
(= +inf.0 (/ (+ fixnum-max 1) 0.0))) |
|
(/ (+ fixnum-max 1) 0.0)) |
|
1406 |
|
|
1407 |
(pass-if-exception "(/ 1.0 0)" |
(pass-if-exception "(/ 1.0 0)" |
1408 |
exception:numerical-overflow |
exception:numerical-overflow |
1409 |
(/ 1.0 0)) |
(/ 1.0 0)) |
1410 |
|
|
1411 |
(pass-if-exception "(/ 1.0 0.0)" |
(pass-if "(/ 1.0 0.0)" |
1412 |
exception:numerical-overflow |
(= +inf.0 (/ 1.0 0.0))) |
|
(/ 1.0 0.0)) |
|
1413 |
|
|
1414 |
(pass-if-exception "(/ +i 0)" |
(pass-if-exception "(/ +i 0)" |
1415 |
exception:numerical-overflow |
exception:numerical-overflow |
1416 |
(/ +i 0)) |
(/ +i 0)) |
1417 |
|
|
1418 |
(pass-if-exception "(/ +i 0.0)" |
(pass-if "(/ +i 0.0)" |
1419 |
exception:numerical-overflow |
(= +inf.0 (imag-part (/ +i 0.0))))) |
|
(/ +i 0.0))) |
|
1420 |
|
|
1421 |
(with-test-prefix "complex division" |
(with-test-prefix "complex division" |
1422 |
|
|