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@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