From 28bf73a53ed740b4e4ba6d4de999fff29bd92550 Mon Sep 17 00:00:00 2001 From: Grant Shangreaux Date: Fri, 24 Feb 2023 22:54:10 -0600 Subject: Fix: do placeholder/value stuff correctly and don't write "" Empty string values were getting set on the track object when the inputs were empty. this won't do that now --- model.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'model.lisp') diff --git a/model.lisp b/model.lisp index 65968cb..dcaf780 100644 --- a/model.lisp +++ b/model.lisp @@ -182,6 +182,6 @@ (defun update-track-info (track new-artist new-album new-title) (with-transaction () (with-slots (artist album title) track - (setf artist new-artist - album new-album - title new-title)))) + (setf artist (if (equal "" new-artist) nil new-artist) + album (if (equal "" new-album) nil new-album) + title (if (equal "" new-title) nil new-title))))) -- cgit v1.2.3