diff options
| -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 |