Subject: [PATCH] gnu: Add cl-trivial-sockets.

From: cage <[email-masked]>
Date: Wed, 19 Oct 2022 16:44:04 +0200

---
 gnu/packages/lisp-xyz.scm | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index f23b4a70bb..50f2f91a77 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -4057,6 +4057,37 @@ (define-public cl-usocket
 (define-public ecl-usocket
   (sbcl-package->ecl-package sbcl-usocket))

+(define-public sbcl-trivial-sockets
+  (package
+    (name "sbcl-trivial-sockets")
+    (version "0.4")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/usocket/trivial-sockets.git")
+             (commit (string-append "v" version))))
+       (file-name (git-file-name "cl-usocket" version))
+       (sha256
+        (base32
+         "0xj9x5z3psxqap9c29qz1xswx5fiqxyzd35kmbw2g6z08cgb7nd0"))))
+    (build-system asdf-build-system/sbcl)
+    (arguments
+     `(#:tests? #f
+       #:asd-systems '("trivial-sockets")))
+    (home-page "https://github.com/usocket/trivial-sockets")
+    (synopsis "Simple socket library for Common Lisp")
+    (description
+     "This library is a portable socket interface that allows CL programs to
+open connected (client) stream sockets to network service.")
+    (license license:x11)))
+
+(define-public cl-trivial-sockets
+  (sbcl-package->cl-source-package sbcl-trivial-sockets))
+
+(define-public ecl-trivial-sockets
+  (sbcl-package->ecl-package sbcl-trivial-sockets))
+
 (define-public sbcl-s-xml
   (package
     (name "sbcl-s-xml")
--
2.34.0