From 66e059528e969c9d17adc8a0ce76016cfe5387a1 Mon Sep 17 00:00:00 2001 From: Boutade Date: Sat, 28 Sep 2019 19:51:08 -0500 Subject: added utils.lisp --- granolin.asd | 1 + utils.lisp | 4 ++++ 2 files changed, 5 insertions(+) create mode 100644 utils.lisp diff --git a/granolin.asd b/granolin.asd index 1e3c8fd..3b56330 100644 --- a/granolin.asd +++ b/granolin.asd @@ -9,5 +9,6 @@ :depends-on (#:drakma #:jonathan) :components ((:file "package") (:file "macros") + (:file "utils") (:file "granolin") (:file "utility-apps"))) diff --git a/utils.lisp b/utils.lisp new file mode 100644 index 0000000..9dd07b5 --- /dev/null +++ b/utils.lisp @@ -0,0 +1,4 @@ +(in-package :granolin ) + +(defun string->json-key (s) + (format nil ":|~a|" s)) -- cgit v1.2.3