diff options
| author | Grant Shangreaux <shoshin@cicadas.surf> | 2023-02-24 22:54:10 -0600 |
|---|---|---|
| committer | Grant Shangreaux <shoshin@cicadas.surf> | 2023-02-24 22:54:10 -0600 |
| commit | 28bf73a53ed740b4e4ba6d4de999fff29bd92550 (patch) | |
| tree | 577bf14f40ab7fd02513ede561b77af97fdf3887 /model.lisp | |
| parent | 98a92f5c8fe8d4326226a0af3ee9cd1499676196 (diff) | |
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
Diffstat (limited to 'model.lisp')
| -rw-r--r-- | model.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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))))) |