guix_mirror_bot pushed a commit to branch python-team
in repository guix.
commit e4f2be73343b5f3d36ac81911978c59102490d27
Author: Nicolas Graves <[email protected]>
AuthorDate: Thu Jan 29 18:42:05 2026 +0100
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 <[email protected]>
---
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 622d76f04a..c6895f9511 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -2897,37 +2897,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
