From 5b95c9f8eddb1054926f8feddbd9b2e4d4e32dbb Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sat, 27 Feb 2021 16:15:41 +0100
Subject: call-id: Add documentation

---
 l/src/call-id.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/l/src/call-id.lisp b/l/src/call-id.lisp
index 40bcadc..a21e6ab 100644
--- a/l/src/call-id.lisp
+++ b/l/src/call-id.lisp
@@ -4,7 +4,9 @@
   ((id
      :initform 0
      :reader id
-     :documentation "Current call ID.")))
+     :documentation "Current call ID."))
+
+  (:documentation "An incrementing identifier."))
 
 (defgeneric next-call-id (call-id)
   (:documentation "Increment the call ID and return the result."))
-- 
cgit v1.2.3