(defparameter *stream*
              (flex:make-in-memory-input-stream
               #(72 101 108 108 111)))

(defparameter *circular-stream*
              (make-circular-stream *stream*))

(read-char *circular-stream*)          ;=> #\H
(read-char *circular-stream*)          ;=> #\e
(read-char *circular-stream*)          ;=> #\l
(read-char *circular-stream*)          ;=> #\l
(read-char *circular-stream*)          ;=> #\o
(read-char *circular-stream* nil :eof) ;=> :eof

(let ((buf (make-array 5 :adjustable t :fill-pointer 5)))
  (read-sequence buf *circular-stream*)
  (flex:octets-to-string buf))
;=> "Hello"

Circular-Streams allows you to read streams circularly by wrapping real streams. Once you reach end-of-file of a stream, it's file position will be reset to 0 and you're able to read it again.

Note this library can treat only octet streams which has a method read-byte. This might be expanded in the future.

This library was originally written by Tomohiro Matsuyama as a part of Clack, Eitaro Fukamachi ported it with some improvements.

Class for circular input streams. make-circular-input-stream is available to create an instance.

Creates circular-input-stream and returns it.

• Tomohiro Matsuyama ([email protected])
• Eitaro Fukamachi ([email protected])

Copyright (c) 2011-2012 Tomohiro Matsuyama ([email protected])
Copyright (c) 2012-2016 Eitaro Fukamachi ([email protected])

Licensed under the LLGPL License.

• Gray streams
• trivial-gray-streams