X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fasdf-install%2Finstaller.lisp;h=b55532a17645882e66e376f36460e85a3c11f970;hb=fd79e33e6b6dacdc52cf6668a5bb7adf75aad6c1;hp=b43f15ada9834099874243623f5cb7897be2a422;hpb=ce2002271034469dc3ccdcaef7d13db76403b90d;p=sbcl.git

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