From bc6b0c4ea11152ffb3b4bbc5a70ada54e7d48f62 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 2 Aug 2004 08:21:54 +0000
Subject: [PATCH] By default, use / as directory separator under windows

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

diff --git a/src/c/pathname.d b/src/c/pathname.d
index 09994be4d..512f71753 100644
--- a/src/c/pathname.d
+++ b/src/c/pathname.d
@@ -838,10 +838,10 @@ ecl_namestring(cl_object x, int truncate_if_unreadable)
 	y = CAR(l);
 	if (y == @':relative') {
 		if (logical)
-			writestr_stream(";", buffer);
+			writec_stream(';', buffer);
 	} else {
 		if (!logical)
-			writestr_stream("/", buffer);
+			writec_stream(DIR_SEPARATOR, buffer);
 	}
 	for (l = CDR(l); !endp(l); l = CDR(l)) {
 		y = CAR(l);
@@ -856,7 +856,7 @@ ecl_namestring(cl_object x, int truncate_if_unreadable)
 		} else {
 			FEerror("Directory :back has no namestring representation",0);
 		}
-		writestr_stream(logical? ";" : "/", buffer);
+		writec_stream(logical? ';' : DIR_SEPARATOR, buffer);
 	}
 NO_DIRECTORY:
 	y = x->pathname.name;