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

now list is saved

Browse source
This commit is contained in:
Chris Cochrun 2023-05-30 16:02:22 -05:00
parent d857692815
commit d6d809d5d4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/server/main.lisp
View file

@ -66,7 +66,7 @@
;; This gets rid of beginning and ending NIL values ;; This gets rid of beginning and ending NIL values
(if name (if (string/= name "image") (progn (if name (if (string/= name "image") (progn
(format t "~&~A: ~A" name content) (format t "~&~A: ~A" name content)
(setq form-list (destructuring-bind (name) (list content) (list :name content))))) nil) (setq form-list (list (cons name content))))) nil)
(if (string= name "image") (setq content (butlast content))) (if (string= name "image") (setq content (butlast content)))
(if (string= "image" name) (if (string= "image" name)