Commit f67c83bb8424c17804b9df9902b9b6b74a74e2a5
2018-04-24T13:57:38
rename array-output-stream to vector-output-stream
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
diff --git a/array-output-stream.lisp b/array-output-stream.lisp
deleted file mode 100644
index e69de29..0000000
--- a/array-output-stream.lisp
+++ /dev/null
diff --git a/cl-stream.asd b/cl-stream.asd
index c6dab90..5660c01 100644
--- a/cl-stream.asd
+++ b/cl-stream.asd
@@ -30,15 +30,14 @@
:depends-on ("closer-mop")
:description "Stream classes for Common Lisp"
:components
- ((:file "array-output-stream" :depends-on ("buffered-output-stream"))
- (:file "buffered-input-stream" :depends-on ("input-stream"))
+ ((:file "buffered-input-stream" :depends-on ("input-stream"))
(:file "buffered-io-stream" :depends-on ("buffered-input-stream"
"buffered-output-stream"
"io-stream"))
(:file "buffered-output-stream" :depends-on ("output-stream"))
(:file "cl-stream" :depends-on ("buffered-io-stream"))
(:file "input-stream" :depends-on ("stream"))
- (:file "input-stream-1" :depends-on ("sequence-output-stream"))
+ (:file "input-stream-1" :depends-on ("vector-output-stream"))
(:file "io-stream" :depends-on ("input-stream" "output-stream"))
(:file "misc" :depends-on ("package"))
(:file "multi-buffered-output-stream"
@@ -52,4 +51,5 @@
(:file "stdio" :depends-on ("input-stream" "output-stream"))
(:file "stream" :depends-on ("package" "misc"))
(:file "string-output-stream"
- :depends-on ("sequence-output-stream"))))
+ :depends-on ("sequence-output-stream"))
+ (:file "vector-output-stream" :depends-on ("buffered-output-stream"))))
diff --git a/input-stream-1.lisp b/input-stream-1.lisp
index d9d3858..ac47ef2 100644
--- a/input-stream-1.lisp
+++ b/input-stream-1.lisp
@@ -24,7 +24,7 @@
(block nil
(let ((type (stream-element-type stream)))
(assert (typep end-element type))
- (with-output-to-array (out type)
+ (with-output-to-vector (out type)
(loop
(multiple-value-bind (element state) (stream-read stream)
(case state