+
+(defun default-c-string-external-format ()
+ #!+sb-xc
+ :latin-1
+ #!-sb-xc
+ (or *default-c-string-external-format*
+ (setf *default-c-string-external-format*
+ (sb!impl::default-external-format))))
+
+;;; FIXME: %NATURALIZE-C-STRING (and the UTF8 siblings below) would
+;;; appear to be vulnerable to the lisp string moving from underneath
+;;; them if the world undergoes a GC, possibly triggered by another
+;;; thread. Ugh.
+;;;
+;;; Actually the above shouldn't happen; x86 and x86-64 use GENCGC,
+;;; so the string can't move by virtue of pointers to it from
+;;; outside the heap. Other platforms will access the lisp string
+;;; through the GC-safe interior pointer. -- JES, 2006-01-13