gnu: cl-prevalence: Fix build with cl-usocket-0.8.8.

* gnu/packages/lisp-xyz.scm (sbcl-cl-prevalence)[arguments]: Add
  'fix-build-with-usocket-bt2' phase.

Change-Id: I7becd7ee92795f2aebc7d9caaf603ccb7f5f9dff
This commit is contained in:
Guillaume Le Vaillant 2024-08-26 10:42:51 +02:00
parent c0a223c7c2
commit 38094ff166
No known key found for this signature in database
GPG key ID: 6BE8208ADF21FE3F

View file

@ -8223,6 +8223,15 @@ (define-public sbcl-cl-prevalence
(list sbcl-moptilities sbcl-s-sysdeps sbcl-s-xml)) (list sbcl-moptilities sbcl-s-sysdeps sbcl-s-xml))
(native-inputs (native-inputs
(list sbcl-fiveam sbcl-find-port)) (list sbcl-fiveam sbcl-find-port))
(arguments
(list #:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'fix-build-with-usocket-bt2
(lambda _
;; See https://github.com/40ants/cl-prevalence/pull/27
(substitute* "src/master-slave.lisp"
(("stop-process \\(bt:thread-name server-thread\\)")
"stop-process (bt2:thread-name server-thread)")))))))
(synopsis "Implementation of object prevalence for Common Lisp") (synopsis "Implementation of object prevalence for Common Lisp")
(description "This Common Lisp library implements object prevalence (see (description "This Common Lisp library implements object prevalence (see
@url{https://en.wikipedia.org/wiki/System_prevalence}). It allows @url{https://en.wikipedia.org/wiki/System_prevalence}). It allows