From e12561b1f2c541b579065c5b40c74957fdab866c Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sat, 18 May 2024 07:50:27 -0700
Subject: Fix: track-file overwrite should not have change generic to defun

---
 model.lisp | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/model.lisp b/model.lisp
index dcaf780..c3032fa 100644
--- a/model.lisp
+++ b/model.lisp
@@ -38,11 +38,10 @@
   ((source file title artist album thumb-url duration codec :with)
    (playlists :with :std (list) :doc "A list of playlists in which this track appears")))
 
-(defun track-file (track)
-  (with-slots (file) track
-    (merge-pathnames
-     (path:basename file)
-     (merge-pathnames "media/" (static-directory *config*)))))
+(defmethod track-file :around ((track track))
+  (merge-pathnames
+   (path:basename (call-next-method))
+   (merge-pathnames "media/" (static-directory *config*))))
 
 ;;; MODEL OPERATIONS
 
-- 
cgit v1.2.3