From 5efaca483832d967dab3f0a26961404cbe4c1fa2 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sun, 27 Nov 2022 07:54:32 -0800 Subject: Fix: playlist duration trying to add nil track-duration to integer This is a hotfix. A TRACK's DURATION slot should never be nil. --- model.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- cgit v1.2.3