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

fix: sync-music: use unwind-protect in with-ignore-stderr

Browse source
This commit is contained in:
eriedaberrie 2024-11-11 19:57:16 -08:00
parent c9779f83cf
commit cea9a46872
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -20,10 +20,9 @@ Only works on Unix systems with a /dev/fd/ filesystem."
`(progn `(progn
(finish-output *error-output*) (finish-output *error-output*)
(let ((,old-stderr (dup +stderr-fileno+))) (let ((,old-stderr (dup +stderr-fileno+)))
(prog1
(progn
(freopen "/dev/null" "w" +stderr+) (freopen "/dev/null" "w" +stderr+)
,@body) (unwind-protect
(progn ,@body)
(freopen (format nil "/dev/fd/~D" ,old-stderr) "a" +stderr+))))) (freopen (format nil "/dev/fd/~D" ,old-stderr) "a" +stderr+)))))
#-unix #-unix
`(progn ,@body)) `(progn ,@body))