system building shenanigans, round one.

asteroid.asd

@@ -9,14 +9,11 @@
   :version "0.0.0"
   :defsystem-depends-on (:radiance)
   :class "radiance:virtual-module"
-  
   :depends-on (:radiance
                :r-clip
                :spinneret
                :cl-json
-               ;; :com.inuoe.jzon
-               :dexador
-               )
+               :dexador)
   :pathname "./"
   :components ((:file "app-utils")
                (:file "module")

asteroid.lisp

@@ -172,7 +172,7 @@
       (stop-server))))
 
 (defun -main (&optional args)
-  (declare (ignore args))
+  (declare (ignorable args))
   (format t "~%🎵 ASTEROID RADIO - Music for Hackers 🎵~%")
   (format t "Starting RADIANCE web server...~%")
   (run-server))

build-executable.lisp

@@ -0,0 +1,23 @@
+#!/usr/local/bin/sbcl --script 
+;; -*-lisp-*-
+
+(load "~/quicklisp/setup.lisp")
+
+;; Build script for creating asteroid executable using save-lisp-and-die
+(require :asdf)
+;; Add project directory to ASDF
+;; (push #P"/home/fade/SourceCode/lisp/asteroid/" asdf:*central-registry*)
+
+;; Load the system
+(ql:quickload "asteroid")
+;; (asdf:load-system :asteroid)
+
+;; Define the main function for the executable
+(defun main ()
+  (asteroid:-main))
+
+;; Save the executable
+(sb-ext:save-lisp-and-die "asteroid" 
+                          :toplevel #'main
+                          :executable t
+                          :compression 22)

module.lisp

@@ -1,3 +1,4 @@
 (in-package #:rad-user)
 (define-module #:asteroid
-  (:use #:cl #:radiance #:asteroid.app-utils))
+  (:use #:cl #:radiance #:asteroid.app-utils)
+  (:export #:-main))