diff options
Diffstat (limited to 'src/main.lisp')
| -rw-r--r-- | src/main.lisp | 20 |
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))) |