gnu: cl-out123: Update to 1.0.0-2.41771bf.

* gnu/packages/lisp-xyz.scm (sbcl-cl-out123): Update to 1.0.0-2.41771bf.
  [arguments]<tests>: Explicitly disable them as not provided upstream.
  <phases>: Simplify fix-paths phase. Remove redundant phase
  fix-ecl-package-name after issue was resolved upstream.
  [inputs]: Remove labels.

Signed-off-by: Guillaume Le Vaillant <glv@posteo.net>
This commit is contained in:
Sharlatan Hellseher 2023-04-02 23:35:18 +01:00 committed by Guillaume Le Vaillant
parent 3905bd7299
commit e11f28d90c
No known key found for this signature in database
GPG key ID: 6BE8208ADF21FE3F

View file

@ -14062,8 +14062,8 @@ (define-public cl-mpg123
(sbcl-package->cl-source-package sbcl-cl-mpg123)) (sbcl-package->cl-source-package sbcl-cl-mpg123))
(define-public sbcl-cl-out123 (define-public sbcl-cl-out123
(let ((commit "6b58d3f8c2a28ad09059ac4c60fb3c781b9b421b") (let ((commit "41771bfd419e7349ad569f8e6fcd8a26d6f9e5b7")
(revision "1")) (revision "2"))
(package (package
(name "sbcl-cl-out123") (name "sbcl-cl-out123")
(version (git-version "1.0.0" revision commit)) (version (git-version "1.0.0" revision commit))
@ -14075,39 +14075,29 @@ (define-public sbcl-cl-out123
(commit commit))) (commit commit)))
(file-name (git-file-name "cl-out123" version)) (file-name (git-file-name "cl-out123" version))
(sha256 (sha256
(base32 "0mdwgfax6sq68wvdgjjp78i40ah7wqkpqnvaq8a1c509k7ghdgv1")) (base32 "0ahgc5l5lbpl3ini4pn5crh8b7dlr386pxczl0d4h6djhccxzs4w"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
'(begin '(begin
;; Remove bundled pre-compiled libraries. ;; Remove bundled pre-compiled libraries.
(delete-file-recursively "static") (delete-file-recursively "static")))))
#t))))
(build-system asdf-build-system/sbcl) (build-system asdf-build-system/sbcl)
(arguments (arguments
`(#:phases `(#:tests? #f ; No tests
#:phases
(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)
(substitute* "low-level.lisp" (substitute* "low-level.lisp"
(("libout123.so" all) (("libout123.so")
(string-append (assoc-ref inputs "libout123") (search-input-file inputs "/lib/libout123.so"))))))))
"/lib/" all)))))
;; NOTE: (Sharlatan-20210129T134529+0000): ECL package `ext' has no
;; exported macro `without-interrupts' it's moved to `mp' package
;; https://github.com/Shirakumo/cl-out123/issues/2
;; https://gitlab.com/embeddable-common-lisp/ecl/-/blob/develop/src/lsp/mp.lsp
(add-after 'unpack 'fix-ecl-package-name
(lambda _
(substitute* "wrapper.lisp"
(("ext:without-interrupts.*") "mp:without-interrupts\n"))
#t)))))
(inputs (inputs
`(("bordeaux-threads" ,sbcl-bordeaux-threads) (list mpg123
("cffi" ,sbcl-cffi) sbcl-bordeaux-threads
("documentation-utils" ,sbcl-documentation-utils) sbcl-cffi
("libout123" ,mpg123) sbcl-documentation-utils
("trivial-features" ,sbcl-trivial-features) sbcl-trivial-features
("trivial-garbage" ,sbcl-trivial-garbage))) sbcl-trivial-garbage))
(home-page "https://shirakumo.github.io/cl-out123/") (home-page "https://shirakumo.github.io/cl-out123/")
(synopsis "Common Lisp bindings to libout123") (synopsis "Common Lisp bindings to libout123")
(description (description