blob: 3a1c63513ae01510d8095d756bac6b27ccf05d3c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
;; SPDX-License-Identifier: EUPL-1.2
;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
(defpackage :ukkoclot/src/tg/business-connection
(:documentation "BusinessConnection Telegram type")
(:use
:c2cl
:ukkoclot/src/tg/type-macros
:ukkoclot/src/tg/business-bot-rights
:ukkoclot/src/tg/user)
(:export
#:business-connection
#:make-business-connection
#:business-connection-p
#:copy-business-connection
#:business-connection-id
#:business-connection-user
#:business-connection-user-chat-id
#:business-connection-date
#:business-connection-rights
#:business-connection-is-enabled))
(in-package :ukkoclot/src/tg/business-connection)
(define-tg-type business-connection
(id string)
(user user)
(user-chat-id integer)
(date integer)
(rights (or business-bot-rights null) nil)
(is-enabled boolean))
|
