commit 0854f21baa167da1ad19618daa331b1a46cbee07
Author: Satoshi Imai <satoshi.imai@gmail.com>
Date:   Tue Jun 15 03:46:57 2021 +0900

    Fix to make it works with the current SBCL

diff --git a/api.lisp b/api.lisp
index 2d8c29b..aed38be 100644
--- a/api.lisp
+++ b/api.lisp
@@ -8,8 +8,8 @@
 (defun startup-python ()
   (.initialize)
   (initialize-modules)
-  #+(and sbcl unix); python will fail sbcl's sigpipe-handler.
-  (sb-unix::enable-interrupt sb-unix::sigpipe #'sb-unix::sigpipe-handler)
+  ;; #+(and sbcl unix); python will fail sbcl's sigpipe-handler.
+  ;; (sb-unix::enable-interrupt sb-unix::sigpipe #'sb-unix::sigpipe-handler)
   )
 
 (defun shutdown-python ()
@@ -35,8 +35,9 @@
   (let ((cpython-initialized? (.is-initialized)))
     (unless cpython-initialized?
       (.initialize)
-      #+(and sbcl unix); python will fail sbcl's sigpipe-handler.
-      (sb-unix::enable-interrupt sb-unix::sigpipe #'sb-unix::sigpipe-handler))
+      ;; #+(and sbcl unix); python will fail sbcl's sigpipe-handler.
+      ;; (sb-unix::enable-interrupt sb-unix::sigpipe #'sb-unix::sigpipe-handler)
+      )
     (unwind-protect
          (funcall thunk)
       (unless cpython-initialized?
diff --git a/ffi-conditions.lisp b/ffi-conditions.lisp
index ac03e80..ba1da33 100644
--- a/ffi-conditions.lisp
+++ b/ffi-conditions.lisp
@@ -3,8 +3,9 @@
 ;; Python must have been initialized for our macroexpansions to work.
 (eval-when (:compile-toplevel :load-toplevel)
   (.initialize)
-  #+(and sbcl unix); python will fail sbcl's sigpipe-handler.
-  (sb-unix::enable-interrupt sb-unix::sigpipe #'sb-unix::sigpipe-handler))
+  ;; #+(and sbcl unix); python will fail sbcl's sigpipe-handler.
+  ;; (sb-unix::enable-interrupt sb-unix::sigpipe #'sb-unix::sigpipe-handler)
+  )
 
 (defpyexception "BaseException" (python-condition)
     (("args" :initarg :args)))
diff --git a/grovel-include-dir.lisp b/grovel-include-dir.lisp
index 6583084..62e07f3 100644
--- a/grovel-include-dir.lisp
+++ b/grovel-include-dir.lisp
@@ -23,13 +23,15 @@
       (or (and (uiop:file-exists-p env-value) (cl:list env-value))
           (error "DLL for PYTHON3 not correctly pointed to by BB_PYTHON3_DYLIB: ~A" env-value)))))
 
+(defvar *detected-library* nil)
+
 (defun detect-python ()
   (setf *detected-library* nil)
   (or
    (let ((env-value (uiop:getenv "BB_PYTHON3_INCLUDE_DIR")))
      (when env-value
        (or (uiop:directory-exists-p env-value)
-           (error "BB_PYTHON3_INCLUDE_DIR is set, but does not point to an actual directory: %a" env-value))))
+           (error "BB_PYTHON3_INCLUDE_DIR is set, but does not point to an actual directory: ~A" env-value))))
    (when *miniconda3*
      (let ((path (if (pathnamep *miniconda3*)
                      *miniconda3*
kages/clojure.scm?id=639e641cdf5e86cd49362f7bafd931633339b21f'>gnu: Add clojure-tools-cli.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/clojure.scm (clojure-tools-cli): New variable.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-02-10 17:45:38 +0100'>2019-02-10</span></td><td><a href='/guix/commit/gnu/packages/clojure.scm?id=99631313e2487c1ea853ee2e2e74a848113ed490'>gnu: clojure-tools-macro: Don't use unstable tarball.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/clojure.scm (clojure-tools-macro)[source]: Use GIT-FETCH and
GIT-FILE-NAME.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2019-02-10 17:45:38 +0100'>2019-02-10</span></td><td><a href='/guix/commit/gnu/packages/clojure.scm?id=62dbf78b65424bf8c03a47338bcfba1fa5786246'>gnu: clojure-algo-monads: Don't use unstable tarball.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/clojure.scm (clojure-algo-monads)[source]: Use GIT-FETCH and
GIT-FILE-NAME.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2019-02-10 17:45:38 +0100'>2019-02-10</span></td><td><a href='/guix/commit/gnu/packages/clojure.scm?id=85e0827d909ff352ee8f56ccb740a7d5913e560e'>gnu: clojure-algo-generic: Don't use unstable tarball.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/clojure.scm (clojure-algo-generic)[source]: Use GIT-FETCH and
GIT-FILE-NAME.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2019-01-29 10:59:06 +0100'>2019-01-29</span></td><td><a href='/guix/commit/gnu/packages/clojure.scm?id=9e532ae22a2064298dbfbd45c0fa07e290520818'>gnu: clojure: Update to 1.10.0.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/clojure.scm (clojure): Update to 1.10.0.
[source]: Use 'git-fetch'.
</span></span></td><td>Mathieu Lirzin</td></tr>
<tr><td><span title='2018-11-24 15:20:51 +0100'>2018-11-24</span></td><td><a href='/guix/commit/gnu/packages/clojure.scm?id=96cfa168e50c3e61ba83899ef25808f0066fff72'>gnu: clojure: Move to new clojure.scm.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/local.mk (clojure): Include new clojure.scm.
* gnu/packages/clojure.scm: Add clojure, clojure-algo-generic,
  clojure-algo-monads, clojure-core-match, clojure-instaparse,
  clojure-tools-macro.
* gnu/packages/lisp.scm: Remove clojure, clojure-algo-generic,
  clojure-algo-monads, clojure-core-match, clojure-instaparse,
  clojure-tools-macro.
</span></span></td><td>Pierre Neidhardt</td></tr>