tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +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

60
gnu/packages/lisp-xyz.scm
View File

@@ -2894,37 +2894,37 @@ cartesian product.")
(search-patches "sbcl-burgled-batteries3-fix-signals.patch"))))
(build-system asdf-build-system/sbcl)
(arguments
`(#:tests? #f
#:modules (((guix build python-build-system) #:select (python-version))
,@%asdf-build-system-modules)
#:imported-modules ((guix build python-build-system)
(list
#:tests? #f
#:imported-modules `((guix build python-build-system)
,@%asdf-build-system-modules)
#:phases
(modify-phases (@ (guix build asdf-build-system) %standard-phases)
(add-after 'unpack 'set-*cpython-include-dir*-var
(lambda* (#:key inputs #:allow-other-keys)
(let ((python (assoc-ref inputs "python")))
(setenv "BB_PYTHON3_INCLUDE_DIR"
(string-append python "/include/python"
(python-version python)))
(setenv "BB_PYTHON3_DYLIB"
(string-append python "/lib/libpython3.so"))
#t)))
(add-after 'unpack 'adjust-for-python-3.10
(lambda _
;; These methods are no longer part of the public API.
(substitute* "ffi-interface.lisp"
((".*PyEval_ReInitThreads.*") "")
((".*\"PyErr_Warn\".*") "")
((".*\"PyFloat_ClearFreeList\".*") "")
((".*\"PyParser_SimpleParseString\".*") "")
((".*\"PyParser_SimpleParseStringFlags\".*") "")
((".*\"PyParser_SimpleParseStringFlagsFilename\".*") "")
((".*\"PyParser_SimpleParseFile\".*") "")
((".*\"PyParser_SimpleParseFileFlags\".*") "")
((".*\"PyLong_FromUnicode\".*") "")
((".*\"PyUnicodeEncodeError_Create\".*") "")
((".*\"PyUnicodeTranslateError_Create\".*") "")))))))
#:modules `(((guix build python-build-system) #:select (python-version))
,@%asdf-build-system-modules)
#:phases
#~(modify-phases (@ (guix build asdf-build-system) %standard-phases)
(add-after 'unpack 'set-*cpython-include-dir*-var
(lambda* (#:key inputs #:allow-other-keys)
(let ((python (assoc-ref inputs "python")))
(setenv "BB_PYTHON3_INCLUDE_DIR"
(string-append python "/include/python"
(python-version python)))
(setenv "BB_PYTHON3_DYLIB"
(string-append python "/lib/libpython3.so")))))
(add-after 'unpack 'adjust-for-python-3.10
(lambda _
;; These methods are no longer part of the public API.
(substitute* "ffi-interface.lisp"
((".*PyEval_ReInitThreads.*") "")
((".*\"PyErr_Warn\".*") "")
((".*\"PyFloat_ClearFreeList\".*") "")
((".*\"PyParser_SimpleParseString\".*") "")
((".*\"PyParser_SimpleParseStringFlags\".*") "")
((".*\"PyParser_SimpleParseStringFlagsFilename\".*") "")
((".*\"PyParser_SimpleParseFile\".*") "")
((".*\"PyParser_SimpleParseFileFlags\".*") "")
((".*\"PyLong_FromUnicode\".*") "")
((".*\"PyUnicodeEncodeError_Create\".*") "")
((".*\"PyUnicodeTranslateError_Create\".*") "")))))))
(native-inputs
(list sbcl-cl-fad sbcl-lift sbcl-cl-quickcheck))
(inputs