diff options
| -rw-r--r-- | clpmfile.lock | 15 | ||||
| -rw-r--r-- | src/main.lisp | 3 |
2 files changed, 5 insertions, 13 deletions
diff --git a/clpmfile.lock b/clpmfile.lock index 304d952..4c43c1c 100644 --- a/clpmfile.lock +++ b/clpmfile.lock @@ -83,7 +83,6 @@ ("oneliners.api")) ("proc-parse" :version "2019-08-13" :source "quicklisp" :systems ("proc-parse")) ("rfc2388" :version "2018-08-31" :source "quicklisp" :systems ("rfc2388")) -("slime" :version "2022-02-20" :source "quicklisp" :systems ("swank")) ("split-sequence" :version "2021-05-31" :source "quicklisp" :systems ("split-sequence")) ("static-vectors" :version "2021-06-30" :source "quicklisp" :systems @@ -215,23 +214,17 @@ ("lambda-riffs" ((:system :name "oneliners.api") (:system :name "lambda-riffs")) - (t - (:project :name "lambda-riffs" :commit - "83b4f38ffb34dc39164024592e6a6a9743ae53f1" :source :implicit-vcs))) + (t (:project :name "lambda-riffs" :branch "master" :source :implicit-vcs))) ("lazybones" ((:system :name "oneliners.api") (:system :name "lazybones-hunchentoot")) ((:system :name "lazybones-hunchentoot") (:system :name "lazybones")) ((:system :name "lazybones-client") (:system :name "lazybones")) - (t - (:project :name "lazybones" :commit - "02874f575215f9665d99943a79541d4f849d50c3" :source :implicit-vcs))) + (t (:project :name "lazybones" :branch "master" :source :implicit-vcs))) ("lazybones-client" ((:system :name "oneliners.api") (:system :name "lazybones-client")) - (t - (:project :name "lazybones-client" :commit - "d87613168212893714e17b4ab5feb3d9e9e16e0c" :source :implicit-vcs))) + (t (:project :name "lazybones-client" :branch "main" :source :implicit-vcs))) ("lisp-namespace" ((:system :name "lazybones") (:system :name "lisp-namespace"))) @@ -249,8 +242,6 @@ ("rfc2388" ((:system :name "hunchentoot") (:system :name "rfc2388"))) -("slime" ((:system :name "oneliners.api") (:system :name "swank"))) - ("split-sequence" ((:system :name "usocket") (:system :name "split-sequence"))) ("static-vectors" ((:system :name "fast-io") (:system :name "static-vectors"))) diff --git a/src/main.lisp b/src/main.lisp index 573f622..5e8bb5d 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -176,10 +176,11 @@ (with-slots (db::id oneliner tags brief explanation created-at edited-at last-edited-by created-by - flagged-by audited-by lockedp runstyle) + flagged-by audited-by lockedp runstyle name) instance (json:with-object (json:write-key-value :id db::id) + (json:write-key-value :name (if name name :false)) (json:write-key-value :oneliner oneliner) (json:write-key-value :tags tags) (json:write-key-value :brief brief) |