hiro/cl-telegram-bot
1
0
Fork 0
mirror of https://github.com/vale981/cl-telegram-bot synced 2025-03-05 09:41:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixed make-request

Browse source
This commit is contained in:
unwind-protect 2016-08-17 19:57:24 +02:00
parent 3418a333f9
commit 4a4b96ee4c
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
cl-telegram-bot.lisp
View file

@ -34,6 +34,7 @@
(token (token
:initarg :token :initarg :token
:documentation "Bot token given by BotFather" :documentation "Bot token given by BotFather"
:accessor token
:initform nil) :initform nil)
(endpoint (endpoint
:initarg :endpoint :initarg :endpoint
@ -43,7 +44,7 @@
(defmethod initialize-instance :after ((b bot) &key) (defmethod initialize-instance :after ((b bot) &key)
(setf (endpoint b) (setf (endpoint b)
(concatenate 'string +telegram-api-uri+ (endpoint b) "/"))) (concatenate 'string +telegram-api-uri+ (token b) "/")))
(defun make-bot (token) (defun make-bot (token)
"Create a new bot instance. Takes a token string." "Create a new bot instance. Takes a token string."