updates to build system

Makefile

@@ -1,7 +1,7 @@
 all: build-server
 
 build-server:
-	sbcl --eval '(ql:quickload "deploy")' --eval '(asdf:load-asd "/home/chris/dev/tfcconnection/tfcserver.asd")' --eval '(ql:quickload :tfcserver)' --eval '(push :deploy-console *features*)' --eval "(asdf:make :tfcserver)" --eval '(quit)'
+	sbcl --eval '(asdf:load-asd "/home/chris/dev/tfcconnection/tfcserver.asd")' --eval '(ql:quickload :tfcserver)' --eval '(push :deploy-console *features*)' --eval "(asdf:make :tfcserver)" --eval '(quit)'
 
 serve:
 	hugo server --noHTTPCache

build.lisp

@@ -1,3 +1,4 @@
-(asdf:load-asd "/home/chris/dev/tfcconnection/tfcserver.asd")
-(ql:quickload :tfcserver)
+(load (sb-ext:posix-getenv "ASDF"))
+(asdf:load-asd (pathname (truename "tfcserver.asd")))
+;; (ql:quickload :tfcserver)
 (asdf:make :tfcserver)

default.nix

@@ -11,6 +11,7 @@
 
 let
   sbcl' = sbcl.withPackages (ps: with ps; [
+    deploy
     hunchentoot
     dexador
     clack
@@ -39,7 +40,8 @@ stdenv.mkDerivation rec {
   ];
 
   buildPhase = ''
-  make
+  export HOME=$(pwd)
+  ${sbcl'}/bin/sbcl --load build.lisp
   '';
 
   installPhase = ''

src/main.lisp

@@ -1,4 +1,6 @@
-(ql:quickload '(hunchentoot clack dexador com.inuoe.jzon serapeum bordeaux-threads))
+;; (ql:quickload '(hunchentoot clack dexador com.inuoe.jzon serapeum bordeaux-threads))
+(asdf:load-systems '(hunchentoot clack dexador com.inuoe.jzon serapeum bordeaux-threads))
+;; (require '(hunchentoot clack dexador com.inuoe.jzon serapeum bordeaux-threads))
 
 (defpackage tfc-server
   (:use :cl :uiop :com.inuoe.jzon :clack))
@@ -114,7 +116,7 @@
                              (if (listp content)
                                  (setq content (serapeum:mapconcat
                                                 (lambda (x) (if (string= x "")
-                                                                (coerce #\Newline 'string)
+                                                                (coerce #\linefeed 'string)
                                                                 x))
                                                 content ""))))
                          (if name (if (string/= name "image") (progn

tfcserver.asd

@@ -1,4 +1,5 @@
 #-asdf3.1 (error "requires asdf 3.1")
+;; #+linux (deploy:define-library deploy::compression-lib :dont-deploy T)
 
 (defsystem "tfcserver"
   :version "0.1.0"
@@ -11,8 +12,7 @@
   :description "Restful server to handle website pieces"
   :long-description "Restful server to handle website pieces"
   ;; :in-order-to ((test-op (test-op "tfcserver-test")))
-  :defsystem-depends-on (:deploy)  ;; (ql:quickload "deploy") before
-  :build-operation "deploy-op" ;; leave as is
+  ;; :defsystem-depends-on (:deploy)  ;; (ql:quickload "deploy") before
+  :build-operation "program-op" ;; leave as is
   :build-pathname "tfcapi"
-  :entry-point "tfc-server::main"
-  )
+  :entry-point "tfc-server::main")