|
@@ -25,7 +25,8 @@
|
|
|
(defmacro with-parsed-message (message &body body)
|
|
(defmacro with-parsed-message (message &body body)
|
|
|
`(let* ((*message* ,message)
|
|
`(let* ((*message* ,message)
|
|
|
(*message-id* (agets *message* "message_id"))
|
|
(*message-id* (agets *message* "message_id"))
|
|
|
- (*from-id* (agets *message* "from" "id"))
|
|
|
|
|
|
|
+ (*from* (agets *message* "from"))
|
|
|
|
|
+ (*from-id* (agets *from* "id"))
|
|
|
(*chat-id* (agets *message* "chat" "id"))
|
|
(*chat-id* (agets *message* "chat" "id"))
|
|
|
(*text* (agets *message* "text")))
|
|
(*text* (agets *message* "text")))
|
|
|
,@body))
|
|
,@body))
|