aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--playlist.lisp2
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)))