hiro/lack
1
0
Fork 0
mirror of https://github.com/vale981/lack synced 2025-03-04 17:01:41 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add stream-element-type for writer-stream.

Browse source
This commit is contained in:
Eitaro Fukamachi 2016-09-28 16:45:30 +09:00
parent c8b6b003d4
commit 4e3dd0b4a8
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/util/writer-stream.lisp
View file

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