03/03: gnu: sbcl-mcclim: Also build clim-debugger.

[guix-commits]

ambrevar pushed a commit to branch master
in repository guix.

commit 0321ceef08e53febe18a218fe355c4757560de0d
Author: Pierre Neidhardt <mail@ambrevar.xyz>
AuthorDate: Tue Sep 6 16:56:24 2022 +0200

    gnu: sbcl-mcclim: Also build clim-debugger.
    
    * gnu/packages/lisp-xyz.scm (sbcl-mcclim)[arguments]: Build clim-debugger.
    (ecl-mcclim)[arguments]: Disable tests since they fail (also without 
clim-debugger).
---
 gnu/packages/lisp-xyz.scm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 8bff0a7d96..888669888d 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -12184,7 +12184,9 @@ functions.")
              sbcl-zpb-ttf))
       (arguments
        '(#:asd-systems '("mcclim"
-                         "clim-examples")
+                         "clim-examples"
+                         ;; clim-debugger is required by cleavir.
+                         "clim-debugger")
          #:phases
          (modify-phases %standard-phases
            (add-after 'unpack 'fix-paths
@@ -12216,7 +12218,14 @@ specification}, a toolkit for writing GUIs in Common 
Lisp.")
   (sbcl-package->cl-source-package sbcl-mcclim))
 
 (define-public ecl-mcclim
-  (sbcl-package->ecl-package sbcl-mcclim))
+  (let ((pkg (sbcl-package->ecl-package sbcl-mcclim)))
+    (package
+      (inherit pkg)
+      (arguments
+       (substitute-keyword-arguments (package-arguments pkg)
+         ;; Tests fail with "FUNCTION: Not a valid argument (R1
+         ;; (GENERATE-REGION))."  on ECL.
+         ((#:tests? _ #f) #f))))))
 
 (define-public sbcl-cl-inflector
   (let ((commit "f1ab16919ccce3bd82a0042677d9616dde2034fe")