From 8219dde99187ff68160bf8a32fa38b9c496668b8 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Tue, 22 May 2007 15:51:35 +0000
Subject: [PATCH] Fixed copying of FASL files in Windows

---
 src/c/load.d | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/c/load.d b/src/c/load.d
index 6e72da5ed..0943d6a9c 100644
--- a/src/c/load.d
+++ b/src/c/load.d
@@ -64,16 +64,16 @@ copy_object_file(cl_object original)
 	err = unlink(copy->base_string.self) ||
 	      symlink(original->base_string.self, copy->base_string.self);
 #else
-	s = cl_concatenate(make_simple_base_string("copy ") +
-			   original +
-			   make_simple_base_string(" ") +
-			   copy);
-	s = si_system(s);
-	err = code != MAKE_FIXNUM(0);
+#if defined(mingw32) || defined(_MSC_VER)
+	err = !CopyFile(original->base_string.self, copy->base_string.self, 0);
+#else
+	err = 1;
+#endif
 #endif
 	if (err) {
 		FEerror("Unable to copy file ~A to ~A", 2, original, copy);
 	}
+	return copy;
 }
 
 #ifdef ENABLE_DLOPEN