diff --git a/asteroid.asd b/asteroid.asd index f28bb0c..2dfd507 100644 --- a/asteroid.asd +++ b/asteroid.asd @@ -11,24 +11,27 @@ :class "radiance:virtual-module" :depends-on (:slynk :lparallel - :radiance - :i-log4cl - :r-clip - :r-simple-rate - :r-simple-profile - :lass - :cl-json :alexandria + :cl-json + :radiance + :lass :local-time :taglib - :r-data-model :ironclad :babel :cl-fad :bordeaux-threads :drakma + ;; radiance interfaces + :i-log4cl + :i-postmodern + :r-clip + :r-data-model + :r-simple-profile + :r-simple-rate (:interface :auth) (:interface :database) + (:interface :relational-database) (:interface :user)) :pathname "./" :components ((:file "app-utils") diff --git a/build-asteroid.lisp b/build-asteroid.lisp index 13b794f..7b01a1d 100755 --- a/build-asteroid.lisp +++ b/build-asteroid.lisp @@ -22,20 +22,20 @@ ;; Load RADIANCE first, then handle environment (ql:quickload :radiance) -(defmethod radiance:environment-directory (environment (kind (eql :configuration))) - (ab:path (make-pathname :directory `(:relative "config" ,environment)))) +;; (defmethod radiance:environment-directory (environment (kind (eql :configuration))) +;; (ab:path (make-pathname :directory `(:relative "config" ,environment)))) -(defmethod radiance:environment-directory (environment (kind (eql :cache))) - (ab:path (make-pathname :directory `(:relative "cache" ,environment)))) +;; (defmethod radiance:environment-directory (environment (kind (eql :cache))) +;; (ab:path (make-pathname :directory `(:relative "cache" ,environment)))) -(defmethod radiance:environment-directory (environment (kind (eql :data))) - (ab:path (make-pathname :directory `(:relative "data" ,environment)))) +;; (defmethod radiance:environment-directory (environment (kind (eql :data))) +;; (ab:path (make-pathname :directory `(:relative "data" ,environment)))) -(defmethod radiance:environment-directory (environment (kind (eql :template))) - (ab:path (make-pathname :directory `(:relative "override" ,environment "template")))) +;; (defmethod radiance:environment-directory (environment (kind (eql :template))) +;; (ab:path (make-pathname :directory `(:relative "override" ,environment "template")))) -(defmethod radiance:environment-directory (environment (kind (eql :static))) - (ab:path (make-pathname :directory `(:relative "override" ,environment "static")))) +;; (defmethod radiance:environment-directory (environment (kind (eql :static))) +;; (ab:path (make-pathname :directory `(:relative "override" ,environment "static")))) ;; Ensure RADIANCE environment is set before loading (unless (radiance:environment) @@ -63,4 +63,5 @@ (sb-ext:save-lisp-and-die "asteroid" :toplevel #'main :executable t - :compression 22) + :compression 12) +