[bug#47728] [PATCH] gnu: Add sbcl-bodge-queue.

[Adam Kandur via Guix-patches via <guix-patches@gnu.org>]

From 5ad8fb5f87ab91feaf99a30f8a823857feabfb63 Mon Sep 17 00:00:00 2001
From: Adam Kandur <rndd@tuta.io>
Date: Mon, 12 Apr 2021 17:35:19 +0300
Subject: [PATCH] gnu: Add sbcl-bodge-queue.

* gnu/packages/lisp-xyz.scm (sbcl-bodge-queue): New variable.
---
 gnu/packages/lisp-xyz.scm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 1d8e0b4..8fdea54 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -161,6 +161,34 @@ collection.")
 (define-public cl-bodge-utilities
   (sbcl-package->cl-source-package sbcl-bodge-utilities))
 
+(define-public sbcl-bodge-queue
+  (package
+    (name "sbcl-bodge-queue")
+    (version "stable")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/borodust/bodge-queue")
+             (commit version)))
+       (file-name (git-file-name "bodge-queue" version))
+       (sha256
+        (base32 "0f4252i8pfy5s4v7w1bpjawysn4cw7di405mqsx2h7skv27hvpz6"))))
+    (build-system asdf-build-system/sbcl)
+    (arguments
+     `(#:asd-files '("bodge-queue.asd")
+       #:asd-systems '("bodge-queue")))
+    (home-page "https://github.com/borodust/bodge-queue")
+    (synopsis "FIFO, not FIFA")
+    (description "Simple FIFO implementation with no external dependencies")
+    (license license:expat)))
+
+(define-public cl-bodge-queue
+  (sbcl-package->cl-source-package sbcl-bodge-queue))
+
+(define-public ecl-bodge-queue
+  (sbcl-package->ecl-package sbcl-bodge-queue))
+
 (define-public sbcl-golden-utils
   (let ((commit "62a5cb948a011eb26e7a89f56d5839a3334b4100")
         (revision "2"))
-- 
2.31.1