Some new dependencies

start up a slynk server in the binary entry point so we can attach Sly
to it and work live without pfaffing about in the threading library,
hiding radiance from Sly/Slynk running inside emacs.

asteroid.asd

@@ -9,7 +9,9 @@
   :version "0.0.0"
   :defsystem-depends-on (:radiance)
   :class "radiance:virtual-module"
-  :depends-on (:radiance
+  :depends-on (:slynk
+               :radiance
+               :i-log4cl
                :r-clip
                :cl-json
                :dexador
@@ -17,7 +19,11 @@
                :r-data-model
                :cl-fad
                :local-time
-               :taglib)
+               :taglib
+               (:interface :database)
+               :r-data-model
+               (:interface :user))
+
   :pathname "./"
   :components ((:file "app-utils")
                (:file "module")

asteroid.lisp

@@ -310,9 +310,12 @@
       (format t "~%Received interrupt, stopping server...~%")
       (stop-server))))
 
-(defun -main (&optional args)
+(defun -main (&optional args (debug t))
   (declare (ignorable args))
+  (format t "~&args of asteroid: ~A~%" args)
   (format t "~%🎵 ASTEROID RADIO - Music for Hackers 🎵~%")
   (format t "Starting RADIANCE web server...~%")
+  (when debug
+    (slynk:create-server :port 4009 :dont-close t))
   (run-server))
 

database.lisp

@@ -23,3 +23,4 @@
                              (track-ids :text))))
   
   (format t "Database collections initialized~%"))
+