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

7
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 (freopen "/dev/null" "w" +stderr+)
(progn (unwind-protect
(freopen "/dev/null" "w" +stderr+) (progn ,@body)
,@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))