[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2011-12-4-g2326ebc

[Raymond Toy]

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 at 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
-- 
CMU Common Lisp