+ (/show0 "setting *CORE-STRING*")
+ (setf *core-string*
+ (sb!alien:cast *native-core-string* sb!alien:c-string))
+ (/show0 "setting *POSIX-ARGV*")
+ (setf sb!ext:*posix-argv*
+ (loop for i from 0
+ for arg = (sb!alien:deref *native-posix-argv* i)
+ until (sb!alien:null-alien arg)
+ collect (sb!alien:cast arg sb!alien:c-string)))