diff options
| -rw-r--r-- | playlist.lisp | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/playlist.lisp b/playlist.lisp index c2adf97..1b55561 100644 --- a/playlist.lisp +++ b/playlist.lisp @@ -169,17 +169,17 @@ (defun play-this-audio (audio) (when-let (ctl (cur-playlist-ctl audio)) - (let ((np (now-playing-track ctl))) + (let ((np (now-playing-track ctl)) + (tr (track-ctl-with-audio ctl audio))) (cond - ((not (eq audio (audio np))) ; different track - (let ((tr - (track-ctl-with-audio ctl audio))) - (stop-playback ctl) - (setf (now-playing-track ctl) tr) - (start-playback ctl) - (load-now-playing-display ctl tr))) - ((pausedp audio) - (start-playback ctl)))))) + ((and np (eq audio (audio np)) (pausedp audio)) + (start-playback ctl)) + + (t + (stop-playback ctl) + (setf (now-playing-track ctl) tr) + (start-playback ctl) + (load-now-playing-display ctl tr)))))) ;;; SYNCHRONZIED CLIENT CONTROL |