eriedaberrie/lisp-scripts
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

fix: sync-music: with-cue with :string type

Browse source
This commit is contained in:
eriedaberrie 2024-12-19 15:51:00 -08:00
parent f9b32f8fc7
commit fb8d4127e4
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
sync-music/libcue/libcue.lisp
View file

@ -33,14 +33,14 @@ Only works on Unix systems with a /dev/fd/ filesystem."
If TYPE is :FILE, use cue_parse_file with fopen on DATA. If TYPE is :STRING, If TYPE is :FILE, use cue_parse_file with fopen on DATA. If TYPE is :STRING,
use cue_parse_string directly." use cue_parse_string directly."
(once-only (data) (once-only (data)
`(let ((,var ,(ecase type `(let ((,var (with-ignore-stderr
,(ecase type
(:file (:file
(with-gensyms (file) (with-gensyms (file)
`(with-read-file (,file ,data) `(with-read-file (,file ,data)
(with-ignore-stderr (cue-parse-file ,file))))
(cue-parse-file ,file)))))
(:string (:string
data)))) `(cue-parse-string ,data))))))
(declare (dynamic-extent ,var)) (declare (dynamic-extent ,var))
(unless (cffi:null-pointer-p ,var) (unless (cffi:null-pointer-p ,var)
(unwind-protect (unwind-protect