mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 14:56:54 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: sbcl-cl-gamepad: Remove asdf:compile-system workaround.

Browse source 
* gnu/packages/lisp-xyz.scm (sbcl-cl-gamepad)[arguments]: Remove 'build phase
  patch now that asdf-build-system/sbcl builds using asdf:load-system which
  fixes the bug.

Signed-off-by: Guillaume Le Vaillant <glv@posteo.net>
This commit is contained in:
Pierre Neidhardt 2022-07-01 18:20:18 +02:00 committed by Guillaume Le Vaillant
parent 6181f1f263
commit 4b7cca1b45
No known key found for this signature in database
GPG key ID: 6BE8208ADF21FE3F
1 changed files with 2 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -10,7 +10,7 @@
;;; Copyright © 2017, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Benjamin Slade <slade@jnanam.net>
;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2018, 2020, 2021 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2018, 2020, 2021, 2022 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2019, 2020 Katherine Cox-Buday <cox.katherine.e@gmail.com>
;;; Copyright © 2019 Jesse Gildersleve <jessejohngildersleve@protonmail.com>
@ -18072,35 +18072,7 @@ (define-public sbcl-cl-gamepad
(substitute* "evdev-cffi.lisp"
(("libevdev.so" all)
(string-append (assoc-ref inputs "libevdev")
"/lib/" all)))))
;; Here we use a custom build phase to work around a compilation bug.
;; Using 'asdf:compile-system' fails, but using 'asdf:load-system'
;; succeeds (and also compiles the system).
;; See https://github.com/Shirakumo/cl-gamepad/issues/8
(replace 'build
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(source-path (string-append out
"/share/common-lisp/"
(%lisp-type)))
(translations `((,source-path
:**/ :*.*.*)
(,(string-append out
"/lib/common-lisp/"
(%lisp-type))
:**/ :*.*.*))))
(setenv "ASDF_OUTPUT_TRANSLATIONS"
(format #f "~S" `(:output-translations
,translations
:inherit-configuration)))
(setenv "HOME" (assoc-ref outputs "out"))
(with-directory-excursion (string-append source-path
"/cl-gamepad")
(invoke (%lisp-type)
"--eval" "(require :asdf)"
"--eval" "(asdf:load-asd (truename \"cl-gamepad.asd\"))"
"--eval" "(asdf:load-system :cl-gamepad)"
"--eval" "(quit)"))))))))
"/lib/" all))))))))
(inputs
`(("cffi" ,sbcl-cffi)
("documentation-utils" ,sbcl-documentation-utils)