From ef0af64156ca03675652333b51882f7ed429adce Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Simen=20Endsj=C3=B8?= <contact@simendsjo.me>
Date: Thu, 11 Sep 2025 21:30:47 +0200
Subject: [PATCH] gnu: Add sbcl-trivial-documentation.

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

Change-Id: I4fc82fddf66e288fe26e7ea342dc4de74c48185b
Signed-off-by: jgart <jgart@dismail.de>
---
 gnu/packages/lisp-xyz.scm | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index dd005f8d5754a0b107d9034599a72b021e276eb9..4ae5e43b27cd10f97d6e65c055c819f19d2ec0e4 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -31466,6 +31466,39 @@ and @code{doseq*}.")
 (define-public clasp-trivial-do
   (sbcl-package->clasp-package sbcl-trivial-do))
 
+(define-public sbcl-trivial-documentation
+  (let ((commit "e71e7cf611ecd4a27bf5dba3add8698acda762ea")
+        (revision "0"))
+    (package
+      (name "sbcl-trivial-documentation")
+      (version (git-version "0" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/eugeneia/trivial-documentation")
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "0y90zi6kaw7226xc089dl47677fz594a5ck1ld8yggk9ww7cdaav"))))
+      (build-system asdf-build-system/sbcl)
+      (arguments
+       (list
+        ;; Unable to build the test project. Haven't digged into why.
+        #:tests? #f))
+      (inputs
+       (list sbcl-closer-mop))
+      (home-page "https://github.com/eugeneia/trivial-documentation")
+      (synopsis "Scrape on-line documentation out of a running Lisp image")
+      (description "Scrape on-line documentation out of a running Lisp image.")
+      (license license:agpl1))))
+
+(define-public ecl-trivial-documentation
+  (sbcl-package->ecl-package sbcl-trivial-documentation))
+
+(define-public cl-trivial-documentation
+  (sbcl-package->cl-source-package sbcl-trivial-documentation))
+
 (define-public sbcl-trivial-download
   (let ((commit "d2472061d86b1cf3d32f388daacd4e32a13af699"))
     (package