Sharlatan Hellseher wrote 4 years ago
(address . guix-patches@gnu.org)
--
… наш разум - превосходная объяснительная машина которая способна
найти смысл почти в чем угодно, истолковать любой феномен, но
совершенно не в состоянии принять мысль о непредсказуемости.
From c1e5fdd382cad391883b5702988c978d2cb28f5a Mon Sep 17 00:00:00 2001
From: Sharlatan Hellseher <sharlatanus@gmail.com>
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(+)
Toggle diff (70 lines)
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