[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-02-13-g2e958db

[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  2e958dba7d37b76966146b2b279db7f0a248865d (commit)
      from  c623db61db3f9538b79582a1331d86f22d03e7ac (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 2e958dba7d37b76966146b2b279db7f0a248865d
Author: Raymond Toy <rtoy at google.com>
Date:   Thu Feb 16 20:41:32 2012 -0800

    Fix compiler warning and use fwrite instead of putw to print a
    string.

diff --git a/src/lisp/print.c b/src/lisp/print.c
index 9f8fa10..f8a9086 100644
--- a/src/lisp/print.c
+++ b/src/lisp/print.c
@@ -372,11 +372,11 @@ print_string(struct vector* vector)
     int len = fixnum_value(vector->length);
               
     while (len-- > 0) {
-        if ((*charptr == '"')) {
+        if (*charptr == '"') {
             putchar('\\');
         }
         /* Just dump out the UTF-16 data */
-        putw(*charptr, stdout);
+        fwrite(charptr, sizeof(*charptr), 1,  stdout);
         charptr++;
     }
 #endif

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

Summary of changes:
 src/lisp/print.c |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp