From e1eb4c78cdcc138b0a6ca4903ec2b8ab7072de32 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Thu, 23 Apr 2009 22:16:51 +0200
Subject: [PATCH] Instead of pushing into features, use the appropriate table
 in main.d

---
 src/c/main.d          | 1 +
 src/lsp/config.lsp.in | 3 ---
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/c/main.d b/src/c/main.d
index 0b1331c57..a1322dbab 100644
--- a/src/c/main.d
+++ b/src/c/main.d
@@ -124,6 +124,7 @@ static const char *feature_names[] = {
 #endif
 #ifdef mingw32
 	"MINGW32",
+        "WIN32",
 #endif
 #ifdef _MSC_VER
 	"MSVC",
diff --git a/src/lsp/config.lsp.in b/src/lsp/config.lsp.in
index 2f8ac68b1..117cd3410 100644
--- a/src/lsp/config.lsp.in
+++ b/src/lsp/config.lsp.in
@@ -75,10 +75,7 @@ uname(2) where available."
   (or #+(or :mingw32 :msvc :cygwin)
       (ext:getenv "PROCESSOR_LEVEL")))
 
-#-:mingw32
 (pushnew :@thehost@ *features*)
-#+(or :mingw32 :msvc)
-(pushnew :win32 *features*)
 
 (defun software-type ()
   "Args: ()