diff options
-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)) |