diff options
author | Boutade <thegoofist@protonmail.com> | 2020-04-22 23:13:08 -0500 |
---|---|---|
committer | Boutade <thegoofist@protonmail.com> | 2020-04-22 23:13:08 -0500 |
commit | c98b92c101417bc10736e567048d1ef976615917 (patch) | |
tree | 0c97aee39d367ad2825ad2a231048a416f3ff8fd | |
parent | dd377994bb9700bb0f1672b3b6d9bba2fe09b867 (diff) |
print object
-rw-r--r-- | replay-streams.lisp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/replay-streams.lisp b/replay-streams.lisp index affa9dd..841ecd5 100644 --- a/replay-streams.lisp +++ b/replay-streams.lisp @@ -29,6 +29,12 @@ (log :initform nil) (log-start :initform nil))) +(defmethod print-object ((object character-input-replay-stream) stream) + (print-unreadable-object (object stream :type t) + (with-slots (source-head head) object + (format stream "source-head: ~a, head: ~a" + source-head head)))) + ;;;; TRIVAL-GRAY-STREAMS SUPPORT (defmethod stream-read-char ((stream static-text-replay-stream)) |