X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fcoreparse.c;h=3ccdc23b6d28d4b52ebe0667d38592cbd1a0c27e;hb=7be799a096f8be64365dfd5b566f667f9ea0314a;hp=e8a513bbe0caecf04e53de3a83f1e0a0dc2406db;hpb=afcfb8b5da57ffc36f9029e0962cc64ba2318484;p=sbcl.git

diff --git a/src/runtime/coreparse.c b/src/runtime/coreparse.c
index e8a513b..3ccdc23 100644
--- a/src/runtime/coreparse.c
+++ b/src/runtime/coreparse.c
@@ -83,12 +83,16 @@ read_runtime_options(int fd)
 void
 maybe_initialize_runtime_options(int fd)
 {
+    struct runtime_options *new_runtime_options;
     off_t end_offset = sizeof(lispobj) +
         sizeof(os_vm_offset_t) +
         (RUNTIME_OPTIONS_WORDS * sizeof(size_t));
 
     lseek(fd, -end_offset, SEEK_END);
-    runtime_options = read_runtime_options(fd);
+
+    if (new_runtime_options = read_runtime_options(fd)) {
+        runtime_options = new_runtime_options;
+    }
 }
 
 /* Search 'filename' for an embedded core.  An SBCL core has, at the