Commit 6c564cd1 authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

*** empty log message ***

parent cfd1e996
......@@ -726,7 +726,7 @@ cf. command: cancel log $ID")
(sorted-serie (gethash (name owner) (owner-index (request-index (server owner))) (list t)))))
(defun active-channel-p (channel &optional (date (get-universal-time)))
(defun channel-active-p (channel &optional (date (get-universal-time)))
(check-type channel channel)
(loop :for r :in (requests channel)
:while (and (end-date r) (< (end-date r) date))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment