diff options
| -rw-r--r-- | playlist.lisp | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/playlist.lisp b/playlist.lisp index 281b9bf..b5c2c87 100644 --- a/playlist.lisp +++ b/playlist.lisp @@ -133,14 +133,13 @@ (advance-now-playing e)))) (defun advance-now-playing (e) - (when-let* ((ctl - (cur-playlist-ctl e)) - (next - (find-next-track ctl (now-playing-track ctl)))) + (when-let ((ctl + (cur-playlist-ctl e))) (stop-playback ctl) - (setf (now-playing-track ctl) next) - (load-now-playing-display ctl next) - (start-playback ctl))) + (when-let (next (find-next-track ctl (now-playing-track ctl))) + (setf (now-playing-track ctl) next) + (load-now-playing-display ctl next) + (start-playback ctl)))) (defun previous-now-playing (e) (when-let* ((ctl |