Fix lint issues

1 files changed, 5 insertions, 0 deletions

diff --git a/src/tg/user.lisp b/src/tg/user.lisp
index 2549d66..0768d12 100644
--- a/src/tg/user.lisp
+++ b/src/tg/user.lisp
@@ -1,6 +1,7 @@
 ;; SPDX-License-Identifier: EUPL-1.2
 ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
 (defpackage :ukkoclot/src/tg/user
+  (:documentation "User Telegram type")
   (:use :c2cl :ukkoclot/src/tg/type-macros)
   (:import-from :ukkoclot/src/strings :escape-xml)
   (:export
@@ -39,6 +40,7 @@
   (can-connect-to-business boolean nil))
 
 (defun user-format-name% (user out)
+  "Format the USER's name in a nice way to stream OUT."
   (format out "<a href=\"tg://user?id=~A\"><i>" (user-id user))
   (escape-xml (user-first-name user) out)
   (when (user-last-name user)
@@ -53,6 +55,9 @@
   (format out "</a> [<code>~A</code>]" (user-id user)))
 
 (defun user-format-name (user &optional out)
+  "Format the USER's name in a nice way to stream OUT.
+
+If OUT is `nil', return the formatted name as a string instead."
   (if out
       (user-format-name% user out)
       (with-output-to-string (stream)