Re: sbcl-ningle: permission denied

[Guillaume Le Vaillant <glv@posteo.net>]

[-- Attachment #1.1: Type: text/plain, Size: 534 bytes --]

The package for ningle has a custom phase changing the name of the
compiled files, this is why when you try to load it ASDF thinks that the
system has not been compiled yet, tries to compile it and fails because
it can't write the compiled files to the read-only "/gnu/store/...".

I don't know if this custom phase is necessary or if it's just
a leftover from the way asdf-build-system worked in the past...

Could you try the attached patch removing the custom phase and see if
everything works fine? If yes I'll push it to master.

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1.2: 0001-gnu-cl-ningle-Fix-location-of-fasl-files.patch --]
[-- Type: text/x-patch, Size: 2055 bytes --]

From 78afaccecf95e4087564217c40f4d4eb4843357c Mon Sep 17 00:00:00 2001
From: Guillaume Le Vaillant <glv@posteo.net>
Date: Sun, 12 Dec 2021 10:40:24 +0100
Subject: [PATCH] gnu: cl-ningle: Fix location of fasl files.

* gnu/packages/lisp-xyz.scm (sbcl-ningle)[arguments]: Remove custom phases.
---
 gnu/packages/lisp-xyz.scm | 25 +------------------------
 1 file changed, 1 insertion(+), 24 deletions(-)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index e25d0f5488..c292b91b89 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -4855,30 +4855,7 @@ (define-public sbcl-ningle
       (build-system asdf-build-system/sbcl)
       (arguments
        ;; TODO: pull in clack-test
-       '(#:tests? #f
-         #:phases
-         (modify-phases %standard-phases
-           (delete 'cleanup-files)
-           (delete 'cleanup)
-           (add-before 'cleanup 'combine-fasls
-             (lambda* (#:key outputs #:allow-other-keys)
-               (let* ((out (assoc-ref outputs "out"))
-                      (lib (string-append out "/lib/sbcl"))
-                      (ningle-path (string-append lib "/ningle"))
-                      (fasl-files (find-files out "\\.fasl$")))
-                 (mkdir-p ningle-path)
-                 (let ((fasl-path (lambda (name)
-                                    (string-append ningle-path
-                                                   "/"
-                                                   (basename name)
-                                                   "--system.fasl"))))
-                   (for-each (lambda (file)
-                               (rename-file file
-                                            (fasl-path
-                                             (basename file ".fasl"))))
-                             fasl-files))
-                 fasl-files)
-               #t)))))
+       '(#:tests? #f))
       (native-inputs
        `(("sbcl-prove" ,sbcl-prove)))
       (inputs
-- 
2.34.0


[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 247 bytes --]