From d6d809d5d4ce2ad828bd55248a172cd5021acb2e Mon Sep 17 00:00:00 2001 From: Chris Cochrun Date: Tue, 30 May 2023 16:02:22 -0500 Subject: [PATCH] now list is saved --- src/server/main.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/server/main.lisp b/src/server/main.lisp index a115efd..a227c07 100644 --- a/src/server/main.lisp +++ b/src/server/main.lisp @@ -66,7 +66,7 @@ ;; This gets rid of beginning and ending NIL values (if name (if (string/= name "image") (progn (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= "image" name)