02/03: gnu: cl-random: Use cl-numerical-utils instead of cl-num-utils.

[guix-commits]

glv pushed a commit to branch master
in repository guix.

commit ced3ead079707bd89c613217b483ca57e54a6d96
Author: Guillaume Le Vaillant <glv@posteo.net>
AuthorDate: Fri Nov 22 14:01:05 2024 +0100

    gnu: cl-random: Use cl-numerical-utils instead of cl-num-utils.
    
    * gnu/packages/lisp-xyz.scm (sbcl-cl-random)[inputs]: Remove
      sbcl-cl-num-utils. Add sbcl-numerical-utilities.
      [arguments]: Add 'fix-build' phase.
    
    Change-Id: Ied310b6246480725e29764164f8d4c21169feb07
---
 gnu/packages/lisp-xyz.scm | 21 +++++++++++++++++++--
 1 file changed, 19 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index e8cff851a8..3bf1e20c5b 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -8987,14 +8987,31 @@ generation functions from the GSL library.")
        (list sbcl-alexandria
              sbcl-anaphora
              sbcl-array-operations
-             sbcl-cl-num-utils
              sbcl-cl-rmath
              sbcl-cl-slice
              sbcl-gsll
              sbcl-let-plus
-             sbcl-lla))
+             sbcl-lla
+             sbcl-numerical-utilities))
       (native-inputs
        (list sbcl-clunit))
+      (arguments
+       (list #:phases
+             #~(modify-phases %standard-phases
+                 (add-after 'unpack 'fix-build
+                   ;; Fixes to use numerical-utils instead of the deprecated
+                   ;; cl-num-utils.
+                   (lambda _
+                     (substitute* (list "cl-random.asd"
+                                        "src/package.lisp")
+                       (("cl-num-utils")
+                        "num-utils"))
+                     (substitute* (list "src/continuous-time.lisp"
+                                        "src/internals.lisp"
+                                        "src/random.lisp"
+                                        "src/univariate.lisp")
+                       (("clnu:")
+                        "nu:")))))))
       (home-page "https://github.com/tpapp/cl-random";)
       (synopsis "Random variates for Common Lisp")
       (description