Subject: [PATCH 3/3]: gnu: Add woo
From: Sharlatan Hellseher <[email-masked]>
To: [email-masked]
Date: Thu, 20 May 2021 16:37:10 +0000
List-Id: <debbugs-submit.debbugs.gnu.org>

-- 
… наш разум - превосходная объяснительная машина которая способна
найти смысл почти в чем угодно, истолковать любой феномен, но
совершенно не в состоянии принять мысль о непредсказуемости.
From c1e5fdd382cad391883b5702988c978d2cb28f5a Mon Sep 17 00:00:00 2001
From: Sharlatan Hellseher <[email-masked]>
Date: Thu, 20 May 2021 17:35:01 +0100
Subject: [PATCH 3/3] gnu: Add woo

* gnu/packages/lisp-xyz.scm (sbcl-woo, ecl-woo, cl-woo): New variables.
---
 gnu/packages/lisp-xyz.scm | 60 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 60 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 6fb48f404b..6149536047 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -16752,3 +16752,63 @@ format.")
 
 (define-public ecl-lev
   (sbcl-package->ecl-package sbcl-lev))
+
+(define-public sbcl-woo
+  (let ((commit "fba3567be95ed6e782d98a4c1477d3a74b8ad124")
+        (revision "1"))
+    (package
+      (name "sbcl-woo")
+      (version (git-version "0.12.0" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/fukamachi/woo")
+               (commit commit)))
+         (file-name (git-file-name "woo" version))
+         (sha256
+          (base32 "06f95x8s8v523gxmrkn9wwgw2pvc3bc66znbgrzhqb30y4aar5v5"))))
+      (build-system asdf-build-system/sbcl)
+      (arguments
+       ;; NOTE: (Sharlatan-20210520T164142+0100): Test failed, it tries to creat
+       ;; test data in sbcl-clack package
+       ;;
+       ;; Unhandled SB-INT:SIMPLE-FILE-ERROR in thread #<SB-THREAD:THREAD
+       ;; "main thread" RUNNING {100B7D8173}>:
+       ;;
+       ;; Error opening #P"/gnu/store/...-sbcl-clack-2.0.0-1.e3e0328/
+       ;; lib/common-lisp/sbcl/clack/src/test-tmpGHU3ALSV.fasl":
+       ;;
+       ;; Permission denied
+       ;;
+       `(#:tests? #f))
+      (native-inputs
+       `(("dexador" ,sbcl-dexador)))
+      (inputs
+       `(("alexandria" ,sbcl-alexandria)
+         ("bordeaux-threads" ,sbcl-bordeaux-threads)
+         ("cffi" ,sbcl-cffi)
+         ("cl-speedy-queue" ,ecl-cl-speedy-queue) ;; Required for ecl build
+         ("clack-socket" ,sbcl-clack)
+         ("fast-http" ,sbcl-fast-http)
+         ("fast-io" ,sbcl-fast-io)
+         ("lev" ,sbcl-lev)
+         ("quri" ,sbcl-quri)
+         ("rove" ,sbcl-rove)
+         ("smart-buffer" ,sbcl-smart-buffer)
+         ("static-vectors" ,sbcl-static-vectors)
+         ("swap-bytes" ,sbcl-swap-bytes)
+         ("trivial-utf-8" ,sbcl-trivial-utf-8)
+         ("vom" ,sbcl-vom)))
+      (home-page "https://github.com/fukamachi/woo")
+      (synopsis "Non-blocking HTTP server based on libev")
+      (description
+       "This package provides Common Lisp HTTP server @code{WOO}, which utilizes
+@code{libev} event library.")
+      (license license:expat))))
+
+(define-public cl-woo
+  (sbcl-package->cl-source-package sbcl-woo))
+
+(define-public ecl-woo
+  (sbcl-package->ecl-package sbcl-woo))
-- 
2.31.1