[ledger] path fix

plugins/ledger.lisp

@@ -28,8 +28,8 @@
 
 (defsetting *git-repos-root* "/tmp/ledger-repos/")
 (defun git-get-chat-location (chat-id remote)
-  (merge-pathnames (format nil "~A-~A" chat-id (token-hmac remote))
-                   *git-repos-root*))
+  (namestring (merge-pathnames (format nil "~A-~A" chat-id (token-hmac remote))
+                               *git-repos-root*)))
 
 (defun git-read-latest-file (repo path)
   (bt:with-recursive-lock-held ((git-get-repo-lock repo))
@@ -58,7 +58,7 @@
                                            :if-exists :supersede
                                            :if-does-not-exist :create)
             (format s "~A~A" current text)))
-        (legit:add repo repo-path)
+        (legit:add repo (namestring repo-path))
         (legit:commit repo message)
         (handler-case
             (progn