||tag string-stream||[Generic Function]|
Reads a queued-streaming block.
Arguments and values
|string-stream||An input string stream|
read-queued-streaming-block is called when a queued-streaming block is read; it should not be called directly.
Write a method that prints the time a queued-streaming block was started (recorded as the block's tag) when the block is read from a journal file or network-streamer connection:
(defmethod read-queued-streaming-block :around ((tag integer) string-stream) (declare (ignorable string-stream)) (format t "~&;; Reading ~a queued-streaming block...~%" (full-date-and-time tag)) (call-next-method) (format t "~&;; Reading queued-streaming block completed.~%"))
Write a method that prints a notice when an empty queued-streaming block
(tagged with the tag
:empty) has been read:
(defmethod read-queued-streaming-block :after ((tag (eql ':empty)) string-stream) (declare (ignorable string-stream)) (format t "~&;; An empty queued-streaming block was read.~%"))
The GBBopen Project