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

Fix another alexandria reference

Browse source
This commit is contained in:
sudodoki 2017-11-20 17:54:46 +02:00
parent 778a3de4d0
commit 168c5edd15
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
cl-telegram-bot.lisp
View file

@ -131,7 +131,7 @@
(with-package :cl-telegram-bot (with-package :cl-telegram-bot
(let* ((file-spec (decode (get-file b file-id)))) (let* ((file-spec (decode (get-file b file-id))))
(with-ok-results (file-spec results) (with-ok-results (file-spec results)
(when-let* ((path (access results 'file--path)) (alexandria:when-let* ((path (access results 'file--path))
(uri (concatenate 'string (file-endpoint b) path)) (uri (concatenate 'string (file-endpoint b) path))
(extension (cl-ppcre:scan-to-strings "\\..*$" path))) (extension (cl-ppcre:scan-to-strings "\\..*$" path)))
(multiple-value-bind (body code headers) (multiple-value-bind (body code headers)