diff options
| author | colin <colin@cicadas.surf> | 2024-05-18 07:50:27 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-05-18 07:50:27 -0700 |
| commit | e12561b1f2c541b579065c5b40c74957fdab866c (patch) | |
| tree | 1083eeab62d9ec35e1234e882288319251c2cbd1 /model.lisp | |
| parent | 23873b455554ba40f79be561b5150b4526a19d3f (diff) | |
Fix: track-file overwrite should not have change generic to defun
Diffstat (limited to 'model.lisp')
| -rw-r--r-- | model.lisp | 9 |
1 files changed, 4 insertions, 5 deletions
@@ -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 |