tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-28 03:51:53 +02:00
Code Activity

gnu: sbcl-burgled-batteries3: Improve style.

Browse Source 
* gnu/packages/lisp-xyz.scm (sbcl-burgled-batteries3)[arguments]: Use
modern style.

Change-Id: I9399703d9a207526a2f4f07fbfd65dff92881053
Signed-off-by: Sharlatan Hellseher <sharlatanus@gmail.com>
This commit is contained in:
Nicolas Graves
2026-01-29 18:42:05 +01:00
committed by Sharlatan Hellseher
parent 8fd4138658
commit f227bf1e39
1 changed files with 30 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gnu/packages/lisp-xyz.scm
+30 -30
View File
@@ -2894,37 +2894,37 @@ cartesian product.")
(search-patches "sbcl-burgled-batteries3-fix-signals.patch")))) (search-patches "sbcl-burgled-batteries3-fix-signals.patch"))))
(build-system asdf-build-system/sbcl) (build-system asdf-build-system/sbcl)
(arguments (arguments
`(#:tests? #f (list
#:modules (((guix build python-build-system) #:select (python-version)) #:tests? #f
,@%asdf-build-system-modules) #:imported-modules `((guix build python-build-system)
#:imported-modules ((guix build python-build-system)
,@%asdf-build-system-modules) ,@%asdf-build-system-modules)
#:phases #:modules `(((guix build python-build-system) #:select (python-version))
(modify-phases (@ (guix build asdf-build-system) %standard-phases) ,@%asdf-build-system-modules)
(add-after 'unpack 'set-*cpython-include-dir*-var #:phases
(lambda* (#:key inputs #:allow-other-keys) #~(modify-phases (@ (guix build asdf-build-system) %standard-phases)
(let ((python (assoc-ref inputs "python"))) (add-after 'unpack 'set-*cpython-include-dir*-var
(setenv "BB_PYTHON3_INCLUDE_DIR" (lambda* (#:key inputs #:allow-other-keys)
(string-append python "/include/python" (let ((python (assoc-ref inputs "python")))
(python-version python))) (setenv "BB_PYTHON3_INCLUDE_DIR"
(setenv "BB_PYTHON3_DYLIB" (string-append python "/include/python"
(string-append python "/lib/libpython3.so")) (python-version python)))
#t))) (setenv "BB_PYTHON3_DYLIB"
(add-after 'unpack 'adjust-for-python-3.10 (string-append python "/lib/libpython3.so")))))
(lambda _ (add-after 'unpack 'adjust-for-python-3.10
;; These methods are no longer part of the public API. (lambda _
(substitute* "ffi-interface.lisp" ;; These methods are no longer part of the public API.
((".*PyEval_ReInitThreads.*") "") (substitute* "ffi-interface.lisp"
((".*\"PyErr_Warn\".*") "") ((".*PyEval_ReInitThreads.*") "")
((".*\"PyFloat_ClearFreeList\".*") "") ((".*\"PyErr_Warn\".*") "")
((".*\"PyParser_SimpleParseString\".*") "") ((".*\"PyFloat_ClearFreeList\".*") "")
((".*\"PyParser_SimpleParseStringFlags\".*") "") ((".*\"PyParser_SimpleParseString\".*") "")
((".*\"PyParser_SimpleParseStringFlagsFilename\".*") "") ((".*\"PyParser_SimpleParseStringFlags\".*") "")
((".*\"PyParser_SimpleParseFile\".*") "") ((".*\"PyParser_SimpleParseStringFlagsFilename\".*") "")
((".*\"PyParser_SimpleParseFileFlags\".*") "") ((".*\"PyParser_SimpleParseFile\".*") "")
((".*\"PyLong_FromUnicode\".*") "") ((".*\"PyParser_SimpleParseFileFlags\".*") "")
((".*\"PyUnicodeEncodeError_Create\".*") "") ((".*\"PyLong_FromUnicode\".*") "")
((".*\"PyUnicodeTranslateError_Create\".*") ""))))))) ((".*\"PyUnicodeEncodeError_Create\".*") "")
((".*\"PyUnicodeTranslateError_Create\".*") "")))))))
(native-inputs (native-inputs
(list sbcl-cl-fad sbcl-lift sbcl-cl-quickcheck)) (list sbcl-cl-fad sbcl-lift sbcl-cl-quickcheck))
(inputs (inputs