From: Andreas Fuchs <asf@boinkor.net>
Date: Wed, 27 Feb 2008 16:56:27 +0000 (+0000)
Subject: 1.0.15.1: Fix asdf-install for HTTP servers that omit the Length: header.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=8fdbd788bf02c20794a90b508afe22d075f45a54;p=sbcl.git

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.
---

diff --git a/contrib/asdf-install/installer.lisp b/contrib/asdf-install/installer.lisp
index b43f15a..b55532a 100644
--- a/contrib/asdf-install/installer.lisp
+++ b/contrib/asdf-install/installer.lisp
@@ -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))))
diff --git a/version.lisp-expr b/version.lisp-expr
index 3f7a36a..35162a0 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.15"
+"1.0.15.1"