[Sbcl-commits] CVS: sbcl/src/code run-program.lisp,1.38,1.39

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5024/src/code

Modified Files:
	run-program.lisp 
Log Message:
0.8.17.18:
	Fix for a couple of Unicode-related bugs.
	... KLUDGE around the non-existence of proper external-format 
		support in GET-DESCRIPTOR-FOR / RUN-PROGRAM;
	... hideous hack in asdf-install to allow downloads of binary data
		through character streams.


Index: run-program.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/run-program.lisp,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -d -r1.38 -r1.39
--- run-program.lisp	1 Nov 2004 18:20:53 -0000	1.38
+++ run-program.lisp	3 Dec 2004 12:49:47 -0000	1.39
@@ -753,7 +753,16 @@
 			    (read-line object nil nil)
 			  (unless line
 			    (return))
-			  (sb-unix:unix-write fd line 0 (length line))
+			  (sb-unix:unix-write
+                           fd
+                           ;; FIXME: this really should be
+                           ;; (STRING-TO-OCTETS :EXTERNAL-FORMAT ...).
+                           ;; RUN-PROGRAM should take an
+                           ;; external-format argument, which should
+                           ;; be passed down to here.  Something
+                           ;; similar should happen on :OUTPUT, too.
+                           (map '(vector (unsigned-byte 8)) #'char-code line)
+                           0 (length line))
 			  (if no-cr
 			      (return)
 			      (sb-unix:unix-write fd newline 0 1)))))