aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--model.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/model.lisp b/model.lisp
index 432eec7..ca78698 100644
--- a/model.lisp
+++ b/model.lisp
@@ -76,7 +76,7 @@
(defun playlist-duration (pl)
(reduce #'+
(playlist-tracks pl)
- :key 'track-duration
+ :key (lambda (tr) (or (track-duration tr) 0))
:initial-value 0))
(defun add-track (tr pl &optional (n -1))