From 5f4ab44a66d6bd4c0403a2c864a1a38e570ee55e Mon Sep 17 00:00:00 2001 From: Grant Shoshin Shangreaux Date: Fri, 20 Jan 2023 17:23:56 -0600 Subject: Fix: redundant & unprotected destroy of playlist-ctl clog object --- playlist.lisp | 3 --- 1 file changed, 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 -- cgit v1.2.3