playvid: correctly convert pathname to native namestring

This commit is contained in:
LordMZTE 2023-07-28 21:02:22 +02:00
parent f5f7404e59
commit 9a1510a643
Signed by: LordMZTE
GPG key ID: B64802DC33A64FF6

View file

@ -17,7 +17,7 @@ exec ros -Q -- $0 "$@"
(nth (random (length dir) (make-random-state t)) dir))))
(basename (pathname-name vidfile)))
(format t "playing video: ~a~%" basename)
(uiop:run-program (list "mpv" (file-namestring vidfile))
(uiop:run-program (list "mpv" (uiop:native-namestring vidfile))
:input :interactive
:error-output :interactive
:output :interactive)