From 9bd06dbe3a5ee22db339722616d6157c5dd088d9 Mon Sep 17 00:00:00 2001 From: Qiantan Hong Date: Sat, 14 Oct 2023 13:53:40 -0700 Subject: [PATCH] Support FORCE-OUTPUT on PACKET-IO-STREAM --- src/packet-io-stream.lisp | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/packet-io-stream.lisp b/src/packet-io-stream.lisp index 3ff8c86..a79ea58 100644 --- a/src/packet-io-stream.lisp +++ b/src/packet-io-stream.lisp @@ -81,6 +81,11 @@ (with-slots (stream) pio-stream (trivial-gray-streams:stream-finish-output stream))) +(defmethod trivial-gray-streams:stream-force-output + ((pio-stream packet-io-stream)) + (with-slots (stream) pio-stream + (trivial-gray-streams:stream-force-output stream))) + (defmethod trivial-gray-streams:stream-line-column ((pio-stream packet-io-stream)) (with-slots (stream) pio-stream