diff options
| author | Teddy Wing | 2021-02-06 19:13:32 +0100 |
|---|---|---|
| committer | Teddy Wing | 2021-02-06 19:13:32 +0100 |
| commit | f650f5b9bf78270c8ab7ebb26ae411ba6c8d7589 (patch) | |
| tree | 5d406801201257951eb50947e19a514517bc1773 | |
| parent | dc5f0fd9a8501b5c3a611f84c452aa858c2ad29a (diff) | |
| download | cl-wait-group-f650f5b9bf78270c8ab7ebb26ae411ba6c8d7589.tar.bz2 | |
Add `print-object` on `wait-group`
Print the object including the `counter` slot.
| -rw-r--r-- | src/wait-group.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/wait-group.lisp b/src/wait-group.lisp index f7e5259..b47f07b 100644 --- a/src/wait-group.lisp +++ b/src/wait-group.lisp @@ -12,6 +12,11 @@ (:documentation "TODO")) +(defmethod print-object ((object wait-group) stream) + (print-unreadable-object (object stream :type t) + (with-slots (counter) object + (format stream ":counter ~s" counter)))) + (defun make-wait-group () "TODO" (make-instance 'wait-group)) |