[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2012-02-10-g2997c7c

[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  2997c7c834786873ea24e70ce9e45dc80f0ae8f8 (commit)
      from  3c01fb6b269b50be99225257db1244346334b938 (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 2997c7c834786873ea24e70ce9e45dc80f0ae8f8
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Fri Feb 10 22:45:33 2012 -0800

    Use fwrite to dump the string instead of putw.

diff --git a/src/lisp/interr.c b/src/lisp/interr.c
index 9b1f2e7..ecdcbc0 100644
--- a/src/lisp/interr.c
+++ b/src/lisp/interr.c
@@ -178,16 +178,14 @@ debug_print(lispobj object)
 
             len = lisp_string->length >> 2;
             lisp_chars = (unsigned short int*) lisp_string->data;
-    
-            for (k = 0; k < len; ++k) {
-		/*
-		 * Do we really want to dump out 4 bytes?  Should we
-		 * just print out the low 8 bits of each Lisp
-		 * character? 
-		 */
-                putw(*lisp_chars, stdout);
-                ++lisp_chars;
-            }
+
+            /*
+             * Do we really want to dump out the entire contents of
+             * the utf-16 string?  Should we just print out the low 8
+             * bits of each Lisp character?  Or maybe convert the
+             * utf-16 string to some more suitable encoding?
+             */
+            fwrite(lisp_chars, sizeof(*lisp_chars), len, stdout);
             putchar('\n');
     
             fflush(stdout);

-----------------------------------------------------------------------

Summary of changes:
 src/lisp/interr.c |   18 ++++++++----------
 1 files changed, 8 insertions(+), 10 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp