|
|
@@ -5,10 +5,11 @@
|
|
|
(defvar *telegram-timeout* 30 "Default Telegram timeout")
|
|
|
|
|
|
(defun %telegram-api-call (method &optional args)
|
|
|
- (let* ((params (loop for (k . v) in args collect (cons
|
|
|
- (princ-to-string k)
|
|
|
- (if (pathnamep v) v
|
|
|
- (princ-to-string v)))))
|
|
|
+ (let* ((params (loop for (k . v) in args when v
|
|
|
+ collect (cons
|
|
|
+ (princ-to-string k)
|
|
|
+ (if (pathnamep v) v
|
|
|
+ (princ-to-string v)))))
|
|
|
(timeout (+ 5 (or (aget "timeout" args)
|
|
|
*telegram-timeout*)))
|
|
|
(response
|
