diff --git a/frontend-partials.lisp b/frontend-partials.lisp index 19001cf..1e89d03 100644 --- a/frontend-partials.lisp +++ b/frontend-partials.lisp @@ -37,7 +37,7 @@ (format t "DEBUG: Parsed title=~a, total-listeners=~a~%" title total-listeners) `((:listenurl . ,(format nil "~a/asteroid.mp3" *stream-base-url*)) (:title . ,title) - (:listeners . ,total-listeners)))))) + (:listeners . ,total-listeners))))))) (define-api asteroid/partial/now-playing () () "Get Partial HTML with live status from Icecast server" diff --git a/parenscript/player.lisp b/parenscript/player.lisp index 93b9955..48d2a0f 100644 --- a/parenscript/player.lisp +++ b/parenscript/player.lisp @@ -439,7 +439,7 @@ (when (== (ps:@ add-result data status) "success") (setf added-count (+ added-count 1))))) (catch (lambda (err) - (ps:chain console (log "Error adding track:" err)))))))))) + (ps:chain console (log "Error adding track:" err))))))))))) (alert (+ "Playlist \"" name "\" created with " added-count " tracks!")) (load-playlists)))) @@ -608,8 +608,7 @@ (setf (ps:@ window library-next-page) library-next-page) (setf (ps:@ window library-go-to-last-page) library-go-to-last-page) (setf (ps:@ window change-library-tracks-per-page) change-library-tracks-per-page) - (setf (ps:@ window load-playlist) load-playlist) - )) + (setf (ps:@ window load-playlist) load-playlist))) "Compiled JavaScript for web player - generated at load time") (defun generate-player-js ()