02/02: gnu: sbcl-burgled-batteries3: Fix build with Python 3.8.

[guix-commits]

mbakke pushed a commit to branch core-updates
in repository guix.

commit 8c83069b99b55527eed78f7581d97ca0173373bc
Author: Marius Bakke <address@hidden>
AuthorDate: Sat Apr 11 17:03:58 2020 +0200

    gnu: sbcl-burgled-batteries3: Fix build with Python 3.8.
    
    * gnu/packages/lisp-xyz.scm (sbcl-burgled-batteries3)[arguments]: Remove "m"
    suffix from Python include directory.  Add phase to remove deprecated Python
    API binding.
---
 gnu/packages/lisp-xyz.scm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 751da1b..4308add 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -5105,11 +5105,17 @@ high-level way.  This library provides such operators.")
                (let ((python (assoc-ref inputs "python")))
                  (setenv "BB_PYTHON3_INCLUDE_DIR"
                          (string-append python "/include/python"
-                                        (python-version python)
-                                        "m"))
+                                        (python-version python)))
                  (setenv "BB_PYTHON3_DYLIB"
                          (string-append python "/lib/libpython3.so"))
-                 #t))))))
+                 #t)))
+           (add-after 'unpack 'adjust-for-python-3.8
+             (lambda _
+               ;; This method is no longer part of the public API.
+               (substitute* "ffi-interface.lisp"
+                 ((".*PyEval_ReInitThreads.*")
+                  ""))
+               #t)))))
       (native-inputs
        `(("sbcl-cl-fad" ,sbcl-cl-fad)
          ("sbcl-lift" ,sbcl-lift)