From 0eae764528fcc0a05f22f0ce73092b6cffb68ebf Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Thu, 8 Jan 2004 11:23:50 +0000
Subject: [PATCH] Do not set *DEFAULT-PATHNAME-DEFAULTS* because some people
 expect it to be empty.

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

diff --git a/src/c/main.d b/src/c/main.d
index 58ed18089..f6f3414b7 100644
--- a/src/c/main.d
+++ b/src/c/main.d
@@ -250,7 +250,13 @@ cl_boot(int argc, char **argv)
 	ECL_SET(@'*print-case*', @':upcase');
 
 	cl_core.pathname_translations = Cnil;
+#if 0
 	ECL_SET(@'*default-pathname-defaults*', si_getcwd());
+#else
+	ECL_SET(@'*default-pathname-defaults*',
+		make_pathname(Cnil, Cnil, Cnil, Cnil, Cnil, Cnil));
+#endif
+
 	@si::pathname-translations(2,make_simple_string("SYS"),
 				   cl_list(1,cl_list(2,make_simple_string("*.*"),
 						     make_simple_string("./*.*"))));