13/18: gnu: sbcl-cl-gopher: Remove sbcl-cl-gopher reference in cl-gopher

[guix-commits]

ambrevar pushed a commit to branch master
in repository guix.

commit 5fb69a3bed439a59927db1d04f889c0a7a5b1188
Author: Pierre Neidhardt <mail@ambrevar.xyz>
AuthorDate: Thu Jul 7 13:44:05 2022 +0200

    gnu: sbcl-cl-gopher: Remove sbcl-cl-gopher reference in cl-gopher
    
    * gnu/packages/lisp-xyz.scm (sbcl-cl-gopher)[arguments]: Delete the
    useless '.lsh' files.
    
    This takes the closure size from 150 MiB down to 0 MiB.
---
 gnu/packages/lisp-xyz.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 47d7a3ef43..7c795ea4b9 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -20879,7 +20879,15 @@ rendering of the XML Infoset.")
                (commit commit)))
          (file-name (git-file-name "cl-gopher" version))
          (sha256
-          (base32 "1ky4s33m5d0wvdaqji12pxr93qqfl5x62zjp3m4ihbdj0ws3yw2f"))))
+          (base32 "1ky4s33m5d0wvdaqji12pxr93qqfl5x62zjp3m4ihbdj0ws3yw2f"))
+         (snippet
+          '(begin
+             ;; These files are mostly examples (that assume Quicklisp) which
+             ;; drag the SBCL package into the CL package.
+             (for-each delete-file
+                       '("cl-gopher-network.lsh"
+                         "cl-gopher-start.lsh"))
+             #t))))
       (build-system asdf-build-system/sbcl)
       (inputs
        (list sbcl-bordeaux-threads