Commit 891a28c0 authored by Attila Lendvai's avatar Attila Lendvai
Browse files

bah, fix my previous initial-buffer-size patch for streams

darcs-hash:d68c6b685f23c698bb9a35d110dbba82d52a2386
parent e041737e
Loading
Loading
Loading
Loading
+2 −2
Original line number Diff line number Diff line
@@ -309,8 +309,8 @@ manually."))
(defun make-vector-stream-buffer (&key (element-type '(unsigned-byte 8)) initial-size)
  "Creates and returns an array which can be used as the underlying vector for a VECTOR-OUTPUT-STREAM."
  (declare (optimize speed)
           (type array-index initial-size))
  (make-array (or initial-size 32)
           (type (or null array-index) initial-size))
  (make-array (the array-index (or initial-size 32))
              :adjustable t
              :fill-pointer 0
              :element-type element-type))