Add :application-type parameter for save-lisp-and-die on Windows.

[sbcl.git] / src / runtime / os-common.c

diff --git a/src/runtime/os-common.c b/src/runtime/os-common.c
index c5e082f..d5c2d14 100644 (file)
--- a/src/runtime/os-common.c
+++ b/src/runtime/os-common.c
@@ -8,7 +8,7 @@
  * provided with absolutely no warranty. See the COPYING and CREDITS
  * files for more information.
  */
-
+# define _GNU_SOURCE /* needed for RTLD_DEFAULT from dlfcn.h */
 #include <stdio.h>
 #include <errno.h>
 #include <string.h>
@@ -27,7 +27,6 @@
 #include "os.h"
 #include "interr.h"
 #if defined(LISP_FEATURE_OS_PROVIDES_DLOPEN) && !defined(LISP_FEATURE_WIN32)
-# define __USE_GNU /* needed for RTLD_DEFAULT */
 # include <dlfcn.h>
 #endif
 
@@ -169,8 +168,6 @@ static inline lispobj cdr(lispobj conscell)
     return FOLLOW(conscell,LIST_POINTER,cons).cdr;
 }
 
-extern void undefined_alien_function(); /* see interrupt.c */
-
 #ifndef LISP_FEATURE_WIN32
 void *
 os_dlsym_default(char *name)