X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fsave.c;h=4ace124a4b8b5ec377c9e39f54f25d25883a77c6;hb=d970a7aa8be2cfdc15c340382b99ef9db4428df3;hp=450d3a4ce000dc72e16ad0ed459fc05a7018ff2a;hpb=79cc569a97e444389350ea3f5b1017374fe16bec;p=sbcl.git

diff --git a/src/runtime/save.c b/src/runtime/save.c
index 450d3a4..4ace124 100644
--- a/src/runtime/save.c
+++ b/src/runtime/save.c
@@ -131,10 +131,10 @@ save(char *filename, lispobj init_function)
     write_lispobj(/* (We're writing the word count of the entry here, and the 2
           * term is one word for the leading BUILD_ID_CORE_ENTRY_TYPE_CODE
           * word and one word where we store the count itself.) */
-         2 + strlen(build_id),
+         2 + strlen((const char *)build_id),
          file);
     {
-        char *p;
+        unsigned char *p;
         for (p = build_id; *p; ++p)
             write_lispobj(*p, file);
     }