1490 |
make_constant("LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT", |
make_constant("LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT", |
1491 |
make_longfloat(-smallest_norm_double)); |
make_longfloat(-smallest_norm_double)); |
1492 |
|
|
1493 |
plus_half = make_ratio(small_fixnum(1), small_fixnum(2)); |
plus_half = make_ratio(small_fixnum(1), small_fixnum(2),1); |
1494 |
enter_mark_origin(&plus_half); |
enter_mark_origin(&plus_half); |
1495 |
|
|
1496 |
minus_half = make_ratio(small_fixnum(-1), small_fixnum(2)); |
minus_half = make_ratio(small_fixnum(-1), small_fixnum(2),1); |
1497 |
enter_mark_origin(&minus_half); |
enter_mark_origin(&minus_half); |
1498 |
|
|
1499 |
make_function("FLOAT", Lfloat); |
make_function("FLOAT", Lfloat); |