From f3982e7652d5a6e79d3fe68c4f16943bdb0e5abc Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Mon, 28 Feb 2022 10:20:43 -0600
Subject: peparing initial build

---
 src/main.lisp | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'src')

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)))
-- 
cgit v1.2.3