minor fixes

cl-telegram-bot.asd

@@ -4,4 +4,5 @@
   :license "MIT"
   :depends-on (#:cl-json #:drakma)
   :serial t
-  :components ((:file "cl-telegram-bot.lisp")(:file "package.lisp")))
+  :components ((:file "cl-telegram-bot.lisp")
+               (:file "package.lisp")))

cl-telegram-bot.lisp

@@ -22,7 +22,7 @@
 ; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
 ; SOFTWARE.
 
-(in-package :tl-bot)
+(in-package :cl-telegram-bot)
 
 (defconstant +telegram-api-uri+ "https://api.telegram.org/bot")
 
@@ -81,7 +81,7 @@
     nil))
 
 (defun decode (obj)
-  (let ((cl-json:*json-symbols-package* :tl-bot)
+  (let ((cl-json:*json-symbols-package* :cl-telegram-bot)
         (decoded-object
           (json:with-decoder-simple-clos-semantics
             (let ((decoded-json (json:decode-json obj)))
@@ -98,7 +98,7 @@
 (defun get-updates (b &key limit timeout)
   "https://core.telegram.org/bots/api#getupdates"
   (let* ((current-id (id b))
-         (cl-json:*json-symbols-package* :tl-bot)
+         (cl-json:*json-symbols-package* :cl-telegram-bot)
          (request
           (decode (make-request b "getUpdates"
                         (list (cons :offset current-id)

example.lisp

@@ -2,7 +2,8 @@
 (require 'cl-telegram-bot)
 
 (defpackage :example-bot
- (:use #:cl-telegram-bot))
+ (:use #:cl-telegram-bot)
+ (:use #:cl))
 
 (in-package :example-bot)
 

package.lisp

@@ -1,6 +1,6 @@
-(defpackage :tl-bot
+(defpackage :cl-telegram-bot
   (:use #:cl)
-  (:nicknames :telegram-bot :tg-bot :cl-telegram-bot)
+  (:nicknames :telegram-bot :tg-bot)
   (:size 32)
   (:export
    #:bot