peparing initial build

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)))