summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-11-16 12:43:43 -0600
committerColin Okay <colin@cicadas.surf>2022-11-16 12:43:43 -0600
commit464d127112b7e5c38db5c75b2c8f8fdea41f3f77 (patch)
tree0267a4f907ad4be045e84eb16c190d3b794fec86
parent3a9c7b6cb57fdf0b197dedae39275de5ada598da (diff)
Fix: ensure that the element exists before finding connection data
-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)))