Fix lint issues

1 files changed, 7 insertions, 0 deletions

diff --git a/src/tg/message.lisp b/src/tg/message.lisp
index 6739189..13162a5 100644
--- a/src/tg/message.lisp
+++ b/src/tg/message.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/message
+  (:documentation "Message Telegram type")
   (:use
    :c2cl
    :ukkoclot/src/tg/animation
@@ -162,11 +163,17 @@
   ;; (reply-markup (or inline-keyboard-markup null) nil)
   ) ; lint:suppress closing-parens-same-line whitespace-before-close-paren
 
+(declaim (inline message-id))
 (defun message-id (msg)
+  "Better named version of `message-message-id'."
   (message-message-id msg))
 
+(declaim (inline message-chat-id))
 (defun message-chat-id (msg)
+  "Shortcut for (CHAT-ID (MESSAGE-CHAT MSG))."
   (chat-id (message-chat msg)))
 
+(declaim (inline message-thread-id))
 (defun message-thread-id (msg)
+  "Better named version of `message-message-thread-id'."
   (message-message-thread-id msg))