From fea321f623be2a34aedc7b46ea57a7a77d8af1c8 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Sun, 3 Jun 2007 14:15:06 +0000
Subject: [PATCH] Better placement of the macro

---
 src/cmp/cmpmain.lsp | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp
index 8642e41b7..d4a28a299 100644
--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@@ -56,6 +56,15 @@
 (push #'(lambda () (mapc #'delete-file *files-to-be-deleted*))
       si::*exit-hooks*)
 
+#-mingw32
+(defmacro fix-for-mingw (directory-namestring)
+  directory-namestring)
+
+#+minwg32
+(defun fix-for-mingw (directory-namestring)
+  (let ((x (string-right-trim '(#\\ #\/) directory-namestring)))
+    (if (zerop (length x)) "/" x)))
+
 (defun linker-cc (o-pathname &rest options)
   (safe-system
    (format nil
@@ -66,15 +75,6 @@
 	   options
 	   *ld-flags* (fix-for-mingw (ecl-library-directory)))))
 
-#-mingw32
-(defmacro fix-for-mingw (directory-namestring)
-  directory-namestring)
-
-#+minwg32
-(defun fix-for-mingw (directory-namestring)
-  (let ((x (string-right-trim '(#\\ #\/) directory-namestring)))
-    (if (zerop (length x)) "/" x)))
-
 #+dlopen
 (defun shared-cc (o-pathname &rest options)
   #-(or mingw32)