diff options
| -rw-r--r-- | clpmfile.lock | 28 | ||||
| -rw-r--r-- | oneliners.api.asd | 3 | ||||
| -rw-r--r-- | src/main.lisp | 20 |
3 files changed, 26 insertions, 25 deletions
diff --git a/clpmfile.lock b/clpmfile.lock index 72ea919..304d952 100644 --- a/clpmfile.lock +++ b/clpmfile.lock @@ -60,7 +60,6 @@ ("cl-syntax" "cl-syntax-annot")) ("cl-unicode" :version "2021-02-28" :source "quicklisp" :systems ("cl-unicode")) ("closer-mop" :version "2022-02-20" :source "quicklisp" :systems ("closer-mop")) -("dissect" :version "2021-05-31" :source "quicklisp" :systems ("dissect")) ("fast-io" :version "2020-09-25" :source "quicklisp" :systems ("fast-io")) ("flexi-streams" :version "2022-02-20" :source "quicklisp" :systems ("flexi-streams")) @@ -81,10 +80,10 @@ ("named-readtables" :version "2022-02-20" :source "quicklisp" :systems ("named-readtables")) ("oneliners.api.asd" :version :newest :source :implicit-file :systems - ("oneliners.api" "oneliners.api/tests")) + ("oneliners.api")) ("proc-parse" :version "2019-08-13" :source "quicklisp" :systems ("proc-parse")) ("rfc2388" :version "2018-08-31" :source "quicklisp" :systems ("rfc2388")) -("rove" :version "2022-02-20" :source "quicklisp" :systems ("rove")) +("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 @@ -142,7 +141,7 @@ ((:system :name "bknr.datastore") (:system :name "bknr.indices")) ((:system :name "bknr.datastore") (:system :name "bknr.utils"))) -("bordeaux-threads" ((:system :name "rove") (:system :name "bordeaux-threads")) +("bordeaux-threads" ((:system :name "ironclad") (:system :name "bordeaux-threads")) ((:system :name "hunchentoot") (:system :name "bordeaux-threads")) ((:system :name "cl-fad") (:system :name "bordeaux-threads")) @@ -198,8 +197,6 @@ ((:system :name "bknr.indices") (:system :name "closer-mop")) ((:system :name "bknr.datastore") (:system :name "closer-mop"))) -("dissect" ((:system :name "rove") (:system :name "dissect"))) - ("fast-io" ((:system :name "jonathan") (:system :name "fast-io"))) ("flexi-streams" @@ -218,17 +215,23 @@ ("lambda-riffs" ((:system :name "oneliners.api") (:system :name "lambda-riffs")) - (t (:project :name "lambda-riffs" :branch "master" :source :implicit-vcs))) + (t + (:project :name "lambda-riffs" :commit + "83b4f38ffb34dc39164024592e6a6a9743ae53f1" :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" :branch "master" :source :implicit-vcs))) + (t + (:project :name "lazybones" :commit + "02874f575215f9665d99943a79541d4f849d50c3" :source :implicit-vcs))) ("lazybones-client" ((:system :name "oneliners.api") (:system :name "lazybones-client")) - (t (:project :name "lazybones-client" :branch "main" :source :implicit-vcs))) + (t + (:project :name "lazybones-client" :commit + "d87613168212893714e17b4ab5feb3d9e9e16e0c" :source :implicit-vcs))) ("lisp-namespace" ((:system :name "lazybones") (:system :name "lisp-namespace"))) @@ -240,15 +243,13 @@ ((:system :name "cl-syntax") (:system :name "named-readtables")) ((:system :name "cl-interpol") (:system :name "named-readtables"))) -("oneliners.api.asd" - ((:system :name "oneliners.api/tests") (:system :name "oneliners.api")) - (t (:asd-file :name "oneliners.api.asd"))) +("oneliners.api.asd" (t (:asd-file :name "oneliners.api.asd"))) ("proc-parse" ((:system :name "jonathan") (:system :name "proc-parse"))) ("rfc2388" ((:system :name "hunchentoot") (:system :name "rfc2388"))) -("rove" ((:system :name "oneliners.api/tests") (:system :name "rove"))) +("slime" ((:system :name "oneliners.api") (:system :name "swank"))) ("split-sequence" ((:system :name "usocket") (:system :name "split-sequence"))) @@ -269,7 +270,6 @@ ("trivial-gray-streams" ((:system :name "yason") (:system :name "trivial-gray-streams")) - ((:system :name "rove") (:system :name "trivial-gray-streams")) ((:system :name "flexi-streams") (:system :name "trivial-gray-streams")) ((:system :name "fast-io") (:system :name "trivial-gray-streams")) ((:system :name "cl+ssl") (:system :name "trivial-gray-streams")) diff --git a/oneliners.api.asd b/oneliners.api.asd index 4bf1fa7..c23d5e7 100644 --- a/oneliners.api.asd +++ b/oneliners.api.asd @@ -8,7 +8,8 @@ "jonathan" "ironclad" "uuid" - "lambda-riffs") + "lambda-riffs" + "swank") :components ((:module "src" :components ((:file "package") diff --git a/src/main.lisp b/src/main.lisp index 76d0df9..2fe9f9a 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -455,19 +455,19 @@ started, this will allow remote live debugging of the system. (revoke-access access)))) (defun make-new-oneliner (contributor &key oneliner tags brief explanation runstyle) - (let ((ol - (db:with-transaction () - (make-instance 'oneliner - :created-by contributor - :explanation (or explanation "") - :tags tags - :oneliner oneliner - :brief brief - :runstyle (if runstyle (a:make-keyword runstyle) :auto))))) + (a:when-let + ((ol + (db:with-transaction () + (make-instance 'oneliner + :created-by contributor + :explanation (or explanation "") + :tags tags + :oneliner oneliner + :brief brief + :runstyle (if runstyle (a:make-keyword runstyle) :auto))))) (bt:with-lock-held (*newest-queue-lock*) (enqueue-qb *newest-queue* ol)))) - (defun unflag-oneliner (oneliner) (db:with-transaction () (setf (flagged-by oneliner) nil))) |