blob: d4af5a152d37e236edc1cc234070de5b6d3eca25 (
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
|
;; SPDX-License-Identifier: EUPL-1.2
;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
(defpackage :ukkoclot/tg-types/chat
(:use :c2cl :ukkoclot/tg-types/chat-type :ukkoclot/tg-types/macros)
(:export
#:chat
#:make-chat
#:chat-p
#:copy-chat
#:chat-id
#:chat-type
#:chat-title
#:chat-username
#:chat-first-name
#:chat-last-name
#:chat-is-forum
#:chat-is-direct-messages))
(in-package :ukkoclot/tg-types/chat)
(define-tg-type chat
(id integer)
(type chat-type)
(title (or string null) nil)
(username (or string null) nil)
(first-name (or string null) nil)
(last-name (or string null) nil)
(is-forum boolean nil)
(is-direct-messages boolean nil))
|
