diff options
| author | Grant Shoshin Shangreaux <shoshin@cicadas.surf> | 2023-01-20 17:23:56 -0600 |
|---|---|---|
| committer | Grant Shoshin Shangreaux <shoshin@cicadas.surf> | 2023-01-20 17:23:56 -0600 |
| commit | 5f4ab44a66d6bd4c0403a2c864a1a38e570ee55e (patch) | |
| tree | c4792dbb680138203befae275e5a8f4b1922ee7a | |
| parent | 42e6d7888e2331a84df9e4392229e420ad3280f2 (diff) | |
Fix: redundant & unprotected destroy of playlist-ctl clog object
| -rw-r--r-- | playlist.lisp | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/playlist.lisp b/playlist.lisp index e8f9c57..3fad639 100644 --- a/playlist.lisp +++ b/playlist.lisp @@ -191,7 +191,6 @@ (when (delete-track-at (playlist curctl) pos) (delete-zipped-playlist curctl) (for-playlist-viewers container ctl - (destroy (pl-zip ctl)) (let ((track-ctl (nth pos (tracks ctl)))) (destroy (container track-ctl)) (setf (tracks ctl) (delete track-ctl (tracks ctl)) @@ -203,7 +202,6 @@ (when (swap-tracks (playlist curctl) pos (1+ pos)) (delete-zipped-playlist curctl) (for-playlist-viewers (container track-ctl) ctl - (destroy (pl-zip ctl)) (let* ((cur (nth pos (tracks ctl))) (next @@ -220,7 +218,6 @@ (when (swap-tracks (playlist curctl) pos (1- pos)) (delete-zipped-playlist curctl) (for-playlist-viewers (container track-ctl) ctl - (destroy (pl-zip ctl)) (let* ((cur (nth pos (tracks ctl))) (next |