From 604cd06e357ee31d7c7be922d9f615b60fe99db9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Simen=20Endsj=C3=B8?= <contact@simendsjo.me>
Date: Tue, 15 Apr 2025 22:13:36 +0200
Subject: [PATCH] gnu: Add cl-trivial-adjust-simple-array.

* gnu/packages/lisp-xyz.scm (cl-trivial-adjust-simple-array,
  ecl-trivial-adjust-simple-array, sbcl-trivial-adjust-simple-array): New
  variables.

Signed-off-by: Guillaume Le Vaillant <glv@posteo.net>
---
 gnu/packages/lisp-xyz.scm | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 58e7f948ad66227340807c99b5ae3eb4d82817ea..72d7546f664dff5b39fc714864078ba15890cd49 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -46,6 +46,7 @@
 ;;; Copyright © 2024 Nik Gaffney <nik@fo.am>
 ;;; Copyright © 2024 Grigory Shepelev <shegeley@gmail.com>
 ;;; Copyright © 2025 Junker <dk@junkeria.club>
+;;; Copyright © 2025 Simen Endsjø <contact@simendsjo.me>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -30116,6 +30117,39 @@ be faster and more extensible than Optima.")
 (define-public ecl-trivia
   (sbcl-package->ecl-package sbcl-trivia))
 
+(define-public sbcl-trivial-adjust-simple-array
+  (let ((commit "393d4041410db584d49c17d9d959fca7aeb76dfc")
+        (revision "0"))
+    (package
+      (name "sbcl-trivial-adjust-simple-array")
+      ;; It's currently at 0.0.1, but so is the other commits
+      (version (git-version "0.0.1" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://gitlab.com/lockie/trivial-adjust-simple-array")
+               (commit commit)))
+         (file-name (git-file-name "cl-trivial-adjust-simple-array" commit))
+         (sha256
+          (base32 "1mxsng80x3m4cf65vfd1q5fx9nlzqckfc7axwvf9fh156rdhhr3p"))))
+      (build-system asdf-build-system/sbcl)
+      (native-inputs
+       (list sbcl-alexandria
+             sbcl-parachute))
+      (home-page "https://gitlab.com/lockie/trivial-adjust-simple-array")
+      (synopsis "Tiny utility to change the size of a simple array")
+      (description
+       "This Common Lisp library provides a tiny utility to change the size of
+a simple-array ensuring that the resulting array is still a simple-array.")
+      (license license:expat))))
+
+(define-public cl-trivial-adjust-simple-array
+  (sbcl-package->cl-source-package sbcl-trivial-adjust-simple-array))
+
+(define-public ecl-trivial-adjust-simple-array
+  (sbcl-package->ecl-package sbcl-trivial-adjust-simple-array))
+
 (define-public sbcl-trivial-arguments
   (let ((commit "ecd84ed9cf9ef8f1e873d7409e6bd04979372aa7")
         (revision "1"))