TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: sbcl-cmd: Update to 20210206.

Browse source 
* gnu/packages/lisp-xyz.scm (sbcl-cmd): Update to 20210206.
[inputs]: Add procps.
[arguments]: Patch the paths of all external executables.
This commit is contained in:
Pierre Neidhardt 2021-02-10 10:05:47 +01:00
parent 091ce05e4f
commit af55e2aad6
No known key found for this signature in database
GPG key ID: 9BDCF497A4BBCC7F
1 changed files with 19 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
gnu/packages/lisp-xyz.scm
View file

@ -67,6 +67,7 @@ (define-module (gnu packages lisp-xyz)
#:use-module (gnu packages imagemagick) #:use-module (gnu packages imagemagick)
#:use-module (gnu packages libevent) #:use-module (gnu packages libevent)
#:use-module (gnu packages libffi) #:use-module (gnu packages libffi)
#:use-module (gnu packages linux)
#:use-module (gnu packages lisp) #:use-module (gnu packages lisp)
#:use-module (gnu packages maths) #:use-module (gnu packages maths)
#:use-module (gnu packages mp3) #:use-module (gnu packages mp3)
@ -13898,10 +13899,10 @@ (define-public cl-shlex
(sbcl-package->cl-source-package sbcl-shlex)) (sbcl-package->cl-source-package sbcl-shlex))
(define-public sbcl-cmd (define-public sbcl-cmd
(let ((commit "e6a54dbf660bf229c80abc124fa47e7bb6d20c93")) (let ((commit "bc5a3bee8f22917126e4c3d05b33f766e562dbd8"))
(package (package
(name "sbcl-cmd") (name "sbcl-cmd")
(version (git-version "0.0.1" "2" commit)) (version (git-version "0.0.1" "3" commit))
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -13910,11 +13911,12 @@ (define-public sbcl-cmd
(commit commit))) (commit commit)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "1i0l8ci4cnkx84q4afmpkq51nxah24fqpi6k9kgjbxz6li3zp8hy")))) (base32 "1sjlabrknw1kjb2y89vssjhcqh3slgly8wnr3152zgis8lsj2yc7"))))
(build-system asdf-build-system/sbcl) (build-system asdf-build-system/sbcl)
(inputs (inputs
`(("alexandria" ,sbcl-alexandria) `(("alexandria" ,sbcl-alexandria)
("coreutils" ,coreutils) ("coreutils" ,coreutils)
("procps" ,procps)
("serapeum" ,sbcl-serapeum) ("serapeum" ,sbcl-serapeum)
("shlex" ,sbcl-shlex) ("shlex" ,sbcl-shlex)
("trivia" ,sbcl-trivia))) ("trivia" ,sbcl-trivia)))
@ -13923,10 +13925,21 @@ (define-public sbcl-cmd
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'fix-paths (add-after 'unpack 'fix-paths
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((bin (string-append (assoc-ref inputs "coreutils") "/bin"))) (let ((bin (string-append (assoc-ref inputs "coreutils") "/bin"))
(ps-bin (string-append (assoc-ref inputs "procps") "/bin")))
(substitute* "cmd.lisp" (substitute* "cmd.lisp"
(("\"env\"") (format #f "\"~a/env\"" bin)) (("\\(def \\+env\\+ \"env\"\\)")
(("\"pwd\"") (format #f "\"~a/pwd\"" bin))))))))) (format #f "(def +env+ \"~a/env\")" bin))
(("\\(def \\+kill\\+ \"kill\"\\)")
(format #f "(def +kill+ \"~a/kill\")" bin))
(("\\(def \\+ps\\+ \"ps\"\\)")
(format #f "(def +ps+ \"~a/ps\")" ps-bin))
(("\\(def \\+pwd\\+ \"pwd\"\\)")
(format #f "(def +pwd+ \"~a/pwd\")" bin))
(("\\(def \\+sh\\+ \"/bin/sh\"\\)")
(format #f "(def +sh+ \"~a\")" (which "sh")))
(("\\(def \\+tr\\+ \"tr\"\\)")
(format #f "(def +tr+ \"~a/tr\")" bin)))))))))
(home-page "https://github.com/ruricolist/cmd") (home-page "https://github.com/ruricolist/cmd")
(synopsis "Conveniently run external programs from Common Lisp") (synopsis "Conveniently run external programs from Common Lisp")
(description (description