X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fcold-init.lisp;h=3ab05a949723027e2fb4d5c8ad067e5bd2b0843e;hb=54b330585ed41edeb93a289f0e59aec67fa9ded9;hp=034e5bfb53f0454361cc835899de58dc2d889961;hpb=68ea71d0f020f2726e3c56c1ec491d0af734b3a4;p=sbcl.git

diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp
index 034e5bf..3ab05a9 100644
--- a/src/code/cold-init.lisp
+++ b/src/code/cold-init.lisp
@@ -287,6 +287,7 @@ UNIX-like systems, UNIX-STATUS is used as the status code."
 
 (defun reinit ()
   (setf *default-external-format* nil)
+  (setf sb!alien::*default-c-string-external-format* nil)
   (without-interrupts
     (without-gcing
         (os-cold-init-or-reinit)