From 9bb31ec88ca004e235726b7cae25a6c1113d80b8 Mon Sep 17 00:00:00 2001
From: Brian O'Reilly <fade@deepsky.com>
Date: Sun, 23 Nov 2025 19:59:33 -0500
Subject: [PATCH] many things, almost working, but not quite.

---
 app-utils.lisp | 14 +++++++++-----
 asteroid.lisp  | 14 +++++++++++---
 2 files changed, 20 insertions(+), 8 deletions(-)

diff --git a/app-utils.lisp b/app-utils.lisp
index 267957f..1466f23 100644
--- a/app-utils.lisp
+++ b/app-utils.lisp
@@ -3,16 +3,20 @@
 (defpackage :asteroid.app-utils
   (:use :cl)
   (:export :internal-disable-debugger)
-  (:export :internal-quit))
+  (:export :internal-quit
+   :pht))
 
 (in-package :asteroid.app-utils)
-  
+
+(defun pht (ht)
+  (alexandria:hash-table-alist ht))
+
 (defun internal-disable-debugger ()
   (labels
       ((internal-exit (c h)
-             (declare (ignore h))
-             (format t "~a~%" c)
-             (internal-quit)))
+         (declare (ignore h))
+         (format t "~a~%" c)
+         (internal-quit)))
     (setf *debugger-hook* #'internal-exit)))
 
 (defun internal-quit (&optional code)
diff --git a/asteroid.lisp b/asteroid.lisp
index ac8fbe2..fb38c0d 100644
--- a/asteroid.lisp
+++ b/asteroid.lisp
@@ -1013,7 +1013,7 @@
 (defun ensure-radiance-environment ()
   "Ensure RADIANCE environment is properly configured for persistence"
   (if (radiance:environment)
-      (format t "~2&Looks like default environment: ~A~2%" (radiance:environment))
+      (format t "~2&Startup default environment: ~A~2%" (radiance:environment))
       (progn
         (setf (radiance:environment) "asteroid")
         (format t "~2&Set environment to: ~A~2%" (radiance:environment))))
@@ -1030,6 +1030,13 @@
             ":static"
             (radiance:environment-directory (radiance-core:environment) :static)))
 
+(defun start-slynk-server-in-new-thread (&optional (port 4009))
+  "Starts a Slynk server in a new thread on the specified port."
+  (bt:make-thread (lambda ()
+                    (format t "~&Starting Slynk server on port ~a in a new thread.~%" port)
+                    (slynk:create-server :port port :dont-close t))
+                  :name (format nil "Slynk Server Thread on Port ~a" port)))
+
 (defun -main (&optional args (debug t))
   (declare (ignorable args))
   (when (uiop:getenvp "ASTEROID_STREAM_URL")
@@ -1038,9 +1045,10 @@
   (format t "~%🎵 ASTEROID RADIO - Music for Hackers 🎵~%")
   (format t "Using stream server at ~a~%" *stream-base-url*)
 
-  (format t "Starting RADIANCE web server...~%")
   (when debug
-    (slynk:create-server :port 4009 :dont-close t))
+    (start-slynk-server-in-new-thread 4009))  
+
+  (format t "Starting RADIANCE web server...~%")
   
   ;; Ensure proper environment setup before starting
   (ensure-radiance-environment)