aboutsummaryrefslogtreecommitdiff
path: root/src/main.lisp
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-02-28 10:20:43 -0600
committerColin Okay <okay@toyful.space>2022-02-28 10:20:43 -0600
commitf3982e7652d5a6e79d3fe68c4f16943bdb0e5abc (patch)
treebf471c6fe5e5294b66ee1b4ba799b472a44070a1 /src/main.lisp
parent3d6974fb3fb3fdf49ce9e97eef71f23615306d49 (diff)
peparing initial build
Diffstat (limited to 'src/main.lisp')
-rw-r--r--src/main.lisp20
1 files changed, 10 insertions, 10 deletions
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)))