From 4a4b96ee4c22c7ee9a031d3fcd69dd3af030bcfe Mon Sep 17 00:00:00 2001
From: unwind-protect <unwind.protect.commonlisp@yandex.com>
Date: Wed, 17 Aug 2016 19:57:24 +0200
Subject: [PATCH] fixed make-request

---
 cl-telegram-bot.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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