0.9.8.7:

[sbcl.git] / src / runtime / coreparse.c

diff --git a/src/runtime/coreparse.c b/src/runtime/coreparse.c
index c935607..07d1525 100644 (file)
--- a/src/runtime/coreparse.c
+++ b/src/runtime/coreparse.c
@@ -128,7 +128,11 @@ lispobj
 load_core_file(char *file)
 {
     lispobj *header, val, len, *ptr, remaining_len;
+#ifndef LISP_FEATURE_WIN32
     int fd = open(file, O_RDONLY), count;
+#else
+    int fd = open(file, O_RDONLY | O_BINARY), count;
+#endif
 
     lispobj initial_function = NIL;
     FSHOW((stderr, "/entering load_core_file(%s)\n", file));