Fix: playlist duration trying to add nil track-duration to integer

This is a hotfix. A TRACK's DURATION slot should never be nil.

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))