From 4e3dd0b4a8c6d2b9f0a65fad8ec15b6171da0a01 Mon Sep 17 00:00:00 2001
From: Eitaro Fukamachi <e.arrows@gmail.com>
Date: Wed, 28 Sep 2016 16:45:30 +0900
Subject: [PATCH] Add stream-element-type for writer-stream.

---
 src/util/writer-stream.lisp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/util/writer-stream.lisp b/src/util/writer-stream.lisp
index 3aa24a1..f8fa2a4 100644
--- a/src/util/writer-stream.lisp
+++ b/src/util/writer-stream.lisp
@@ -7,6 +7,7 @@
                 :stream-write-sequence
                 :stream-write-char
                 :stream-write-string
+                :stream-element-type
                 :stream-finish-output
                 :open-stream-p)
   (:import-from :babel
@@ -46,5 +47,8 @@
   (setf (writer-stream-closed-p stream) t)
   nil)
 
+(defmethod stream-element-type ((stream writer-stream))
+  '(unsigned-byte 8))
+
 (defmethod open-stream-p ((stream writer-stream))
   (not (writer-stream-closed-p stream)))