commit 0854f21baa167da1ad19618daa331b1a46cbee07 Author: Satoshi Imai 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* guix/status.scm (<build>)[phase]: New field. (%phase-start-rx): New variable. (update-build): Add clause to match %PHASE-START-RX and adjust the 'phase' field accordingly. * tests/status.scm ("compute-status, build phase"): Add test Ludovic Courtès 2019-01-29status: Keep track of build completion as reported by build tools....* guix/status.scm (<build>)[completion]: New field. (build): Add #:completion parameter. (%percentage-line-rx, %fraction-line-rx): New variables. (update-build): New procedure. (compute-status): Add 'build-log' case. * tests/status.scm ("compute-status, build completion"): New test. Ludovic Courtès 2019-01-29status: Record more information about builds....* guix/status.scm (<build>): New record type. (build, matching-build): New procedures. (compute-status): Adjust to manipulate <build> records instead of derivation file names in 'build-status-builds-completed' and 'build-status-building'. (build-event-output-port)[process-line]: Use 'string-split' to preserve spaces. * tests/status.scm ("compute-status, builds + substitutes") ("compute-status, missing events"): Adjust to expect <build> records. Produce complete "build-started" events. ("compute-status, multiplexed build output"): Likewise, and remove "bar.drv" from 'builds-completed'. Ludovic Courtès 2019-01-09maint: Remove 'cond-expand' forms for Guile 2.0....Note: Leave 'cond-expand' forms used in the build-side modules that can run on %BOOTSTRAP-GUILE, which is currently Guile 2.0. * guix/build/compile.scm: Move 'use-modules' clause from 'cond-expand' to 'define-module' form. (%default-optimizations): Remove 'cond-expand'. * guix/build/download.scm (tls-wrap): Remove 'cond-expand'. * guix/build/syscalls.scm: Remove 'cond-expand' form around '%set-automatic-finalization-enabled?!' and 'without-automatic-finalization'. * guix/inferior.scm (port->inferior): Remove 'cond-expand'. * guix/scripts/pack.scm (wrapped-package)[build]: Remove 'cond-expand'. * guix/status.scm (build-event-output-port): Remove 'cond-expand'. * guix/store.scm (open-inet-socket): Remove 'cond-expand'. * guix/ui.scm (install-locale): Remove 'cond-expand'. * tests/status.scm ("current-build-output-port, UTF-8 + garbage"): Remove 'cond-expand'. * tests/store.scm ("current-build-output-port, UTF-8 + garbage"): Remove 'cond-expand'. Ludovic Courtès