12/18: gnu: sbcl-moptilities: Remove sbcl-moptilities reference in cl-moptilities.

[guix-commits]

ambrevar pushed a commit to branch master
in repository guix.

commit 6702441f178bbe1e70286448864be7248693e6b4
Author: Pierre Neidhardt <mail@ambrevar.xyz>
AuthorDate: Thu Jul 7 13:38:32 2022 +0200

    gnu: sbcl-moptilities: Remove sbcl-moptilities reference in cl-moptilities.
    
    * gnu/packages/lisp-xyz.scm (sbcl-moptilities)[arguments]: Delete the
    'test-results' folder.
    
    This takes the closure size from 158 MiB down to 0 MiB :)
---
 gnu/packages/lisp-xyz.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 71c0c586d7..47d7a3ef43 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -10864,6 +10864,16 @@ compliance control.")
                (substitute* "lift-standard.config"
                  ((":relative-to lift-test")
                   ":relative-to moptilities-test"))
+               #t))
+           (add-after 'install 'remove-test-results
+             ;; Otherwise the drag the SBCL package into the closure of the CL
+             ;; package.
+             (lambda* (#:key outputs #:allow-other-keys)
+               (let* ((out (assoc-ref outputs "out"))
+                      (source-path (string-append out "/share/common-lisp/"
+                                                  (%lisp-type) 
"/moptilities/")))
+                 (delete-file-recursively
+                  (string-append source-path "/test-results")))
                #t)))))
       (synopsis "Compatibility layer for Common Lisp MOP implementation 
differences")
       (description