(defun play-music (music &optional (loops -1))
(cond ((not (playing-music?))
(let ((id-music (getf (get-resource music) :id-music)))
(/= (Mix_PlayMusic id-music loops) -1)))))
(defun play-music (music &optional (loops -1))
(cond ((not (playing-music?))
(let ((id-music (getf (get-resource music) :id-music)))
(/= (Mix_PlayMusic id-music loops) -1)))))