peparing initial build

3 files changed, 26 insertions, 25 deletions

diff --git a/clpmfile.lock b/clpmfile.lock
index 72ea919..304d952 100644
--- a/clpmfile.lock
+++ b/clpmfile.lock
@@ -60,7 +60,6 @@
  ("cl-syntax" "cl-syntax-annot"))
 ("cl-unicode" :version "2021-02-28" :source "quicklisp" :systems ("cl-unicode"))
 ("closer-mop" :version "2022-02-20" :source "quicklisp" :systems ("closer-mop"))
-("dissect" :version "2021-05-31" :source "quicklisp" :systems ("dissect"))
 ("fast-io" :version "2020-09-25" :source "quicklisp" :systems ("fast-io"))
 ("flexi-streams" :version "2022-02-20" :source "quicklisp" :systems
  ("flexi-streams"))
@@ -81,10 +80,10 @@
 ("named-readtables" :version "2022-02-20" :source "quicklisp" :systems
  ("named-readtables"))
 ("oneliners.api.asd" :version :newest :source :implicit-file :systems
- ("oneliners.api" "oneliners.api/tests"))
+ ("oneliners.api"))
 ("proc-parse" :version "2019-08-13" :source "quicklisp" :systems ("proc-parse"))
 ("rfc2388" :version "2018-08-31" :source "quicklisp" :systems ("rfc2388"))
-("rove" :version "2022-02-20" :source "quicklisp" :systems ("rove"))
+("slime" :version "2022-02-20" :source "quicklisp" :systems ("swank"))
 ("split-sequence" :version "2021-05-31" :source "quicklisp" :systems
  ("split-sequence"))
 ("static-vectors" :version "2021-06-30" :source "quicklisp" :systems
@@ -142,7 +141,7 @@
  ((:system :name "bknr.datastore") (:system :name "bknr.indices"))
  ((:system :name "bknr.datastore") (:system :name "bknr.utils")))
 
-("bordeaux-threads" ((:system :name "rove") (:system :name "bordeaux-threads"))
+("bordeaux-threads"
  ((:system :name "ironclad") (:system :name "bordeaux-threads"))
  ((:system :name "hunchentoot") (:system :name "bordeaux-threads"))
  ((:system :name "cl-fad") (:system :name "bordeaux-threads"))
@@ -198,8 +197,6 @@
  ((:system :name "bknr.indices") (:system :name "closer-mop"))
  ((:system :name "bknr.datastore") (:system :name "closer-mop")))
 
-("dissect" ((:system :name "rove") (:system :name "dissect")))
-
 ("fast-io" ((:system :name "jonathan") (:system :name "fast-io")))
 
 ("flexi-streams"
@@ -218,17 +215,23 @@
 
 ("lambda-riffs"
  ((:system :name "oneliners.api") (:system :name "lambda-riffs"))
- (t (:project :name "lambda-riffs" :branch "master" :source :implicit-vcs)))
+ (t
+  (:project :name "lambda-riffs" :commit
+   "83b4f38ffb34dc39164024592e6a6a9743ae53f1" :source :implicit-vcs)))
 
 ("lazybones"
  ((:system :name "oneliners.api") (:system :name "lazybones-hunchentoot"))
  ((:system :name "lazybones-hunchentoot") (:system :name "lazybones"))
  ((:system :name "lazybones-client") (:system :name "lazybones"))
- (t (:project :name "lazybones" :branch "master" :source :implicit-vcs)))
+ (t
+  (:project :name "lazybones" :commit
+   "02874f575215f9665d99943a79541d4f849d50c3" :source :implicit-vcs)))
 
 ("lazybones-client"
  ((:system :name "oneliners.api") (:system :name "lazybones-client"))
- (t (:project :name "lazybones-client" :branch "main" :source :implicit-vcs)))
+ (t
+  (:project :name "lazybones-client" :commit
+   "d87613168212893714e17b4ab5feb3d9e9e16e0c" :source :implicit-vcs)))
 
 ("lisp-namespace"
  ((:system :name "lazybones") (:system :name "lisp-namespace")))
@@ -240,15 +243,13 @@
  ((:system :name "cl-syntax") (:system :name "named-readtables"))
  ((:system :name "cl-interpol") (:system :name "named-readtables")))
 
-("oneliners.api.asd"
- ((:system :name "oneliners.api/tests") (:system :name "oneliners.api"))
- (t (:asd-file :name "oneliners.api.asd")))
+("oneliners.api.asd" (t (:asd-file :name "oneliners.api.asd")))
 
 ("proc-parse" ((:system :name "jonathan") (:system :name "proc-parse")))
 
 ("rfc2388" ((:system :name "hunchentoot") (:system :name "rfc2388")))
 
-("rove" ((:system :name "oneliners.api/tests") (:system :name "rove")))
+("slime" ((:system :name "oneliners.api") (:system :name "swank")))
 
 ("split-sequence" ((:system :name "usocket") (:system :name "split-sequence")))
 
@@ -269,7 +270,6 @@
 
 ("trivial-gray-streams"
  ((:system :name "yason") (:system :name "trivial-gray-streams"))
- ((:system :name "rove") (:system :name "trivial-gray-streams"))
  ((:system :name "flexi-streams") (:system :name "trivial-gray-streams"))
  ((:system :name "fast-io") (:system :name "trivial-gray-streams"))
  ((:system :name "cl+ssl") (:system :name "trivial-gray-streams"))
diff --git a/oneliners.api.asd b/oneliners.api.asd
index 4bf1fa7..c23d5e7 100644
--- a/oneliners.api.asd
+++ b/oneliners.api.asd
@@ -8,7 +8,8 @@
                "jonathan"
                "ironclad"
                "uuid"
-               "lambda-riffs")
+               "lambda-riffs"
+               "swank")
   :components ((:module "src"
                 :components
                 ((:file "package")
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)))