From 91d59549a7c9bfe3c458b68f9cd072c5e7853c0e Mon Sep 17 00:00:00 2001
From: Pierre Neidhardt <mail@ambrevar.xyz>
Date: Tue, 1 Dec 2020 12:36:11 +0100
Subject: gnu: Add trivial-shell.

* gnu/packages/lisp-xyz.scm (cl-trivial-shell, ecl-trivial-shell,
sbcl-trivial-shell): New variables.
---
 gnu/packages/lisp-xyz.scm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 511ef8b395..3b85054d0e 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -12011,3 +12011,33 @@ not so easy to copy (ssyntax, argument destructuring, etc.).")
 
 (define-public ecl-clamp
   (sbcl-package->ecl-package sbcl-clamp))
+
+(define-public sbcl-trivial-shell
+  (let ((commit "e02ec191b34b52deca5d1c4ee99d4fa13b8772e0"))
+    (package
+      (name "sbcl-trivial-shell")
+      (version (git-version "0.2.0" "1" commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/gwkkwg/trivial-shell")
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "08mpkl5ij5sjfsyn8pq2kvsvpvyvr7ha1r8g1224fa667b8k2q85"))))
+      (build-system asdf-build-system/sbcl)
+      (native-inputs
+       `(("lift" ,sbcl-lift)))
+      (home-page "http://common-lisp.net/project/trivial-shell/")
+      (synopsis "Common Lisp access to the shell")
+      (description
+       "A simple Common-Lisp interface to the underlying operating system.
+It's independent of the implementation and operating system.")
+      (license license:expat))))
+
+(define-public cl-trivial-shell
+  (sbcl-package->cl-source-package sbcl-trivial-shell))
+
+(define-public ecl-trivial-shell
+  (sbcl-package->ecl-package sbcl-trivial-shell))
-- 
cgit v1.2.3

'grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=de5fe1fb24d00318b3dc4ce096787a053961e0d6'>root</a>/<a href='/guix/log/gnu?id=de5fe1fb24d00318b3dc4ce096787a053961e0d6'>gnu</a>/<a href='/guix/log/gnu/system?id=de5fe1fb24d00318b3dc4ce096787a053961e0d6'>system</a>/<a href='/guix/log/gnu/system/setuid.scm?id=de5fe1fb24d00318b3dc4ce096787a053961e0d6'>setuid.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/system/setuid.scm?id=de5fe1fb24d00318b3dc4ce096787a053961e0d6&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-09-08 02:00:00 +0200'>2024-09-08</span></td><td><a href='/guix/commit/gnu/system/setuid.scm?id=0dd8e4c35109ed8bc2406a0bc13e18823a334937'>privilege: Add file-like-&gt;setuid-program helper.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/privilege.scm (file-like-&gt;setuid-program): New public
procedure.
* gnu/system/setuid.scm: Re-export it for compatibility.
(file-like-&gt;setuid-program): Remove this old version.
* gnu/services/docker.scm (singularity-setuid-programs): Use it (again).
* gnu/services/desktop.scm (enlightenment-privileged-programs): Likewise.

Change-Id: I8e41144438677a15cdadb3063651dbc780715497
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2024-08-11 02:00:00 +0200'>2024-08-11</span></td><td><a href='/guix/commit/gnu/system/setuid.scm?id=9099f8bdcc35025a00aaa9ab4169b7e5bbe7f00d'>system: (gnu system setuid) wraps (gnu system privilege).</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/setuid.scm (setuid-program): Rewrite as syntax to create a
&lt;privileged-program&gt; record that is setuid by default.
(setuid-program?, setuid-program-program, setuid-program-setuid?)
(setuid-program-setgid?, setuid-program-user, setuid-program-group):
Alias their privileged-program equivalent.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2021-07-29 13:09:48 -0400'>2021-07-29</span></td><td><a href='/guix/commit/gnu/system/setuid.scm?id=45235e67e4aeac96ad8d60265bef054990aeb425'>system: Add (gnu system setuid).</a><span class='msg-avail'>...<span class='msg-tooltip'>I flubbed and somehow when including the patch series, this got dropped.
Oops... should fix things again.

* gnu/system/setuid.scm: New file.
</span></span></td><td>Christopher Lemmer Webber</td></tr>