summaryrefslogtreecommitdiff
path: root/src/tg/reply-parameters.lisp
diff options
context:
space:
mode:
authorGravatar Uko Kokņevičs2025-10-19 11:12:24 +0300
committerGravatar Uko Kokņevičs2025-10-19 11:37:39 +0300
commit6b544b58dba095cafd6906d78b70bfd237397439 (patch)
treec7c4c6b061909a11c3d93cc53c3a141d9e6cae16 /src/tg/reply-parameters.lisp
parentAdd an alpine build script for srht (diff)
downloadukkoclot-6b544b58dba095cafd6906d78b70bfd237397439.tar.gz
ukkoclot-6b544b58dba095cafd6906d78b70bfd237397439.tar.xz
ukkoclot-6b544b58dba095cafd6906d78b70bfd237397439.zip
Fix lint issues
Diffstat (limited to 'src/tg/reply-parameters.lisp')
-rw-r--r--src/tg/reply-parameters.lisp3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/tg/reply-parameters.lisp b/src/tg/reply-parameters.lisp
index d9c7b3b..152b57b 100644
--- a/src/tg/reply-parameters.lisp
+++ b/src/tg/reply-parameters.lisp
@@ -1,6 +1,7 @@
1;; SPDX-License-Identifier: EUPL-1.2 1;; SPDX-License-Identifier: EUPL-1.2
2;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> 2;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
3(defpackage :ukkoclot/src/tg/reply-parameters 3(defpackage :ukkoclot/src/tg/reply-parameters
4 (:documentation "ReplyParameters Telegram type")
4 (:use :c2cl :ukkoclot/src/tg/type-macros :ukkoclot/src/tg/message-entity) 5 (:use :c2cl :ukkoclot/src/tg/type-macros :ukkoclot/src/tg/message-entity)
5 (:export 6 (:export
6 #:reply-parameters 7 #:reply-parameters
@@ -21,7 +22,7 @@
21 (message-id integer) 22 (message-id integer)
22 (chat-id (or integer string null) nil) 23 (chat-id (or integer string null) nil)
23 ;; TODO: This should be a ternary true, false, default 24 ;; TODO: This should be a ternary true, false, default
24 (allow-sending-without-reply boolean nil) 25 (allow-sending-without-reply boolean nil :skip-if-default nil)
25 (quote (or string null) nil) 26 (quote (or string null) nil)
26 (quote-parse-mode (or string null) nil) 27 (quote-parse-mode (or string null) nil)
27 (quote-entities (or (array message-entity) null) nil) 28 (quote-entities (or (array message-entity) null) nil)