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

last bits to making compilation work

Browse source
This commit is contained in:
Chris Cochrun 2023-06-14 07:10:00 -05:00
parent 207f1d0234
commit 4af927f7e9
5 changed files with 50 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/main.lisp
View file

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