From f227bf1e39d844fe86d43879abe360f7aa7c2658 Mon Sep 17 00:00:00 2001 From: Nicolas Graves Date: Thu, 29 Jan 2026 18:42:05 +0100 Subject: [PATCH] gnu: sbcl-burgled-batteries3: Improve style. * gnu/packages/lisp-xyz.scm (sbcl-burgled-batteries3)[arguments]: Use modern style. Change-Id: I9399703d9a207526a2f4f07fbfd65dff92881053 Signed-off-by: Sharlatan Hellseher --- gnu/packages/lisp-xyz.scm | 60 +++++++++++++++++++-------------------- 1 file changed, 30 insertions(+), 30 deletions(-) diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm index 895f402547..a078604022 100644 --- a/gnu/packages/lisp-xyz.scm +++ b/gnu/packages/lisp-xyz.scm @@ -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