aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--src/wait-group.lisp5
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))