From f650f5b9bf78270c8ab7ebb26ae411ba6c8d7589 Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sat, 6 Feb 2021 19:13:32 +0100
Subject: Add `print-object` on `wait-group`

Print the object including the `counter` slot.
---
 src/wait-group.lisp | 5 +++++
 1 file changed, 5 insertions(+)

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))
-- 
cgit v1.2.3