aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-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)))