[Sbcl-commits] CVS: sbcl/src/code run-program.lisp,1.35.24.2,1.35.24.3 stream.lisp,1.65.2.4,1.65.2.5

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

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

Modified Files:
      Tag: character_branch
	run-program.lisp stream.lisp 
Log Message:
0.8.13.77.character.31:
	"Isn't it time you did something useful?"

	Some more fixes for RUN-PROGRAM and READ-SEQUENCE.
	... now we pass all our self-tests.


Index: run-program.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/run-program.lisp,v
retrieving revision 1.35.24.2
retrieving revision 1.35.24.3
diff -u -d -r1.35.24.2 -r1.35.24.3
--- run-program.lisp	23 Sep 2004 16:25:08 -0000	1.35.24.2
+++ run-program.lisp	24 Sep 2004 12:07:42 -0000	1.35.24.3
@@ -617,7 +617,7 @@
 ;;; stream.
 (defun copy-descriptor-to-stream (descriptor stream cookie)
   (incf (car cookie))
-  (let ((string (make-string 256))
+  (let ((string (make-string 256 :element-type 'base-char))
 	handler)
     (setf handler
 	  (sb-sys:add-fd-handler

Index: stream.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/stream.lisp,v
retrieving revision 1.65.2.4
retrieving revision 1.65.2.5
diff -u -d -r1.65.2.4 -r1.65.2.5
--- stream.lisp	23 Sep 2004 13:57:28 -0000	1.65.2.4
+++ stream.lisp	24 Sep 2004 12:07:42 -0000	1.65.2.5
@@ -1745,7 +1745,7 @@
          (typecase data
 	   ((or (simple-array (unsigned-byte 8) (*))
 		(simple-array (signed-byte 8) (*))
-		simple-string)
+		simple-base-string)
 	    (let* ((numbytes (- end start))
 		   (bytes-read (read-n-bytes stream data offset-start
 					     numbytes nil)))