[prev in list] [next in list] [prev in thread] [next in thread] 

List:       sbcl-commits
Subject:    [Sbcl-commits] CVS: sbcl/contrib/asdf-install installer.lisp, 1.21,
From:       Andreas Fuchs <antifuchs () users ! sourceforge ! net>
Date:       2008-02-27 16:56:32
Message-ID: E1JUPa4-0004aR-JM () sc8-pr-cvs8 ! sourceforge ! net
[Download RAW message or body]

Update of /cvsroot/sbcl/sbcl/contrib/asdf-install
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv16854/contrib/asdf-install

Modified Files:
	installer.lisp 
Log Message:
1.0.15.1: Fix asdf-install for HTTP servers that omit the Length: header.

Make copy-stream use the output stream's element type, as the input stream
is very likely to be a bivalent stream, which will report CHARACTER, leading
to incompatible element-types.


Index: installer.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/asdf-install/installer.lisp,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- installer.lisp	26 Oct 2007 04:33:34 -0000	1.21
+++ installer.lisp	27 Feb 2008 16:56:30 -0000	1.22
@@ -138,7 +138,7 @@
 
 
 (defun copy-stream (in out)
-  (let ((buf (make-array 8192 :element-type (stream-element-type in))))
+  (let ((buf (make-array 8192 :element-type (stream-element-type out))))
     (loop for pos = (read-sequence buf in)
           until (zerop pos)
           do (write-sequence buf out :end pos))))


-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Sbcl-commits mailing list
Sbcl-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/sbcl-commits
[prev in list] [next in list] [prev in thread] [next in thread]