[Gd-chatter] r11170 - in trunk/fundev/sources: dfmc/namespace harp/core-harp

[hannes at gwydiondylan.org]

Author: hannes
Date: Sun Feb 11 19:28:07 2007
New Revision: 11170

Modified:
   trunk/fundev/sources/dfmc/namespace/library-description.dylan
   trunk/fundev/sources/harp/core-harp/harp-outputter.dylan
Log:
Job: fd
don't lock compiler-internal streams to get more performance.


Modified: trunk/fundev/sources/dfmc/namespace/library-description.dylan
==============================================================================
--- trunk/fundev/sources/dfmc/namespace/library-description.dylan	(original)
+++ trunk/fundev/sources/dfmc/namespace/library-description.dylan	Sun Feb 11 19:28:07 2007
@@ -970,7 +970,7 @@
 					     #key base, name, type)
   let locator = apply(build-area-output-locator, ld, keys);
   if (locator)
-    with-open-file (stream = locator, direction: #"output")
+    with-open-file (stream = locator, direction: #"output", stream-lock: #f)
       fn(stream)
     end;
   else
@@ -1029,7 +1029,7 @@
 					       #key base, name, type)
   let locator = apply(profile-area-output-locator, ld, keys);
   if (locator)
-    with-open-file (stream = locator, direction: #"output")
+    with-open-file (stream = locator, direction: #"output", stream-lock: #f)
       fn(stream)
     end;
   else
@@ -1106,7 +1106,7 @@
     let srv-location = merge-locators(as(<file-locator>, "_SRV"),
 				      as(<directory-locator>, location));
     if (file-exists?(srv-location))
-      with-open-file (stream = srv-location)
+      with-open-file (stream = srv-location, stream-lock: #f)
 	let os = as(<symbol>, read-line(stream));
 	let processor = as(<symbol>, read-line(stream));
 	let version = read-int-line(stream);

Modified: trunk/fundev/sources/harp/core-harp/harp-outputter.dylan
==============================================================================
--- trunk/fundev/sources/harp/core-harp/harp-outputter.dylan	(original)
+++ trunk/fundev/sources/harp/core-harp/harp-outputter.dylan	Sun Feb 11 19:28:07 2007
@@ -544,7 +544,10 @@
        file-name :: <byte-string>, extension :: <byte-string>) 
       => (s :: <stream>)
   let full-name = concatenate(file-name, ".", extension);
-  make(<file-stream>, locator: as(<file-locator>, full-name), direction: #"output");
+  make(<file-stream>,
+       locator: as(<file-locator>, full-name),
+       direction: #"output",
+       stream-lock: #f);
 end method;
 
 define method open-output-stream
@@ -554,7 +557,10 @@
   let extension = file-extension-for-outputter-type(back-end, type);
   let stream-type = stream-type-for-outputter-type(back-end, type);
   let full-name = concatenate(file-name, ".", extension);
-  make(stream-type, locator: as(<file-locator>, full-name), direction: #"output");
+  make(stream-type,
+       locator: as(<file-locator>, full-name),
+       direction: #"output",
+       stream-lock: #f);
 end method;
 
 define method open-output-stream