This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp".
The branch, master has been updated via 2326ebcf3d776a14a7e3ad61edfaf5bca40ebbbc (commit) from d56fecd7db290133ca12fa1a12843327af191ed7 (commit)
Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below.
- Log ----------------------------------------------------------------- commit 2326ebcf3d776a14a7e3ad61edfaf5bca40ebbbc Author: Raymond Toy toy.raymond@gmail.com Date: Tue Dec 20 22:13:36 2011 -0800
Print out more digits for double-floats in ldb printer.
diff --git a/src/lisp/print.c b/src/lisp/print.c index f1e84d4..cdf4b56 100644 --- a/src/lisp/print.c +++ b/src/lisp/print.c @@ -552,7 +552,7 @@ print_otherptr(lispobj obj)
case type_DoubleFloat: NEWLINE; - printf("%g", ((struct double_float *) PTR(obj))->value); + printf("%.15lg", ((struct double_float *) PTR(obj))->value); break;
#ifdef type_LongFloat @@ -565,7 +565,7 @@ print_otherptr(lispobj obj) #ifdef type_DoubleDoubleFloat case type_DoubleDoubleFloat: NEWLINE; - printf("%g %g", ((struct double_double_float *) PTR(obj))->hi, + printf("%.15lg %.15lg", ((struct double_double_float *) PTR(obj))->hi, ((struct double_double_float *) PTR(obj))->lo); break; #endif @@ -582,9 +582,9 @@ print_otherptr(lispobj obj) #ifdef type_ComplexDoubleFloat case type_ComplexDoubleFloat: NEWLINE; - printf("%g", ((struct complex_double_float *) PTR(obj))->real); + printf("%.15lg", ((struct complex_double_float *) PTR(obj))->real); NEWLINE; - printf("%g", ((struct complex_double_float *) PTR(obj))->imag); + printf("%.15lg", ((struct complex_double_float *) PTR(obj))->imag); break; #endif
@@ -600,10 +600,10 @@ print_otherptr(lispobj obj) #ifdef type_ComplexDoubleDoubleFloat case type_ComplexDoubleDoubleFloat: NEWLINE; - printf("%g %g", ((struct complex_double_double_float *) PTR(obj))->real_hi, + printf("%.15lg %.15lg", ((struct complex_double_double_float *) PTR(obj))->real_hi, ((struct complex_double_double_float *) PTR(obj))->real_lo); NEWLINE; - printf("%g %g", ((struct complex_double_double_float *) PTR(obj))->imag_hi, + printf("%.15lg %.15lg", ((struct complex_double_double_float *) PTR(obj))->imag_hi, ((struct complex_double_double_float *) PTR(obj))->imag_lo); break; #endif
-----------------------------------------------------------------------
Summary of changes: src/lisp/print.c | 12 ++++++------ 1 files changed, 6 insertions(+), 6 deletions(-)
hooks/post-receive