diff options
| -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 |