File tree Expand file tree Collapse file tree 2 files changed +7
-3
lines changed Expand file tree Collapse file tree 2 files changed +7
-3
lines changed Original file line number Diff line number Diff line change @@ -563,15 +563,15 @@ cdef class EclObject:
563
563
Floats in Python are IEEE double, which LISP has as well. However,
564
564
the printing of floating point types in LISP depends on settings::
565
565
566
- sage: a = EclObject( float( 10 ^ 40 ))
566
+ sage: a = EclObject( float( 1 . 234e40 ))
567
567
sage: ecl_eval( "( setf * read-default-float-format* 'single-float) ")
568
568
<ECL: SINGLE-FLOAT>
569
569
sage: a
570
- <ECL: 1. d40 >
570
+ <ECL: 1. 234d40 >
571
571
sage: ecl_eval( "( setf * read-default-float-format* 'double-float) ")
572
572
<ECL: DOUBLE-FLOAT>
573
573
sage: a
574
- <ECL: 1. e40 >
574
+ <ECL: 1. 234e40 >
575
575
576
576
Tuples are translated to dotted lists::
577
577
Original file line number Diff line number Diff line change @@ -45,7 +45,11 @@ static inline void ecl_sig_off(void)
45
45
sig_off ();
46
46
}
47
47
48
+ #if ECL_VERSION_NUMBER < 230909
48
49
#define ecl_mpz_from_bignum (obj ) ((obj)->big.big_num)
50
+ #else
51
+ #define ecl_mpz_from_bignum (obj ) ecl_bignum(obj)
52
+ #endif
49
53
50
54
cl_object ecl_bignum_from_mpz (mpz_t num )
51
55
{
You can’t perform that action at this time.
0 commit comments