TFC/tfcconnection
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

updates to build system

Browse source
This commit is contained in:
Chris Cochrun 2023-06-13 14:07:39 -05:00
parent 88729c36df
commit 3620ead09b
5 changed files with 15 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/main.lisp
View file

@ -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