diff options
-rw-r--r-- | playlist.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/playlist.lisp b/playlist.lisp index c5d778f..ad111bf 100644 --- a/playlist.lisp +++ b/playlist.lisp @@ -85,7 +85,7 @@ (defun controller-alive-p (ctl) "A controller is a live if the CLOG elements it manages are associated with a live connection." - (connection-data (pl-title ctl))) + (when (pl-title ctl) (connection-data (pl-title ctl)))) (defmacro for-playlist-viewers (clog-elem ctlvar &body body) `(dolist (,ctlvar (playlist-viewers (cur-playlist-ctl ,clog-elem))) |