futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: sbcl-osicat: Fix library path.

Browse Source 
* gnu/packages/lisp-xyz.scm (sbcl-osicat)[arguments]: Replace 'cleanup phase
  to preserve the location of libosicat.so so that it can be found when
  loading the system.
This commit is contained in:
Pierre Neidhardt 2020-04-30 16:56:44 +02:00
parent 24599740e7
commit 192177b049
No known key found for this signature in database
GPG Key ID: 9BDCF497A4BBCC7F
1 changed files with 11 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
gnu/packages/lisp-xyz.scm
View File

@ -11533,21 +11533,19 @@ MOP easier to use.")
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'validate-runpath 'cleanup-files ;; The cleanup phase moves files around but we need to keep the
;; directory structure for the grovel-generated library.
(replace 'cleanup
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(lib (string-append out "/lib/sbcl"))) (lib (string-append out "/lib/sbcl/")))
(for-each (delete-file-recursively (string-append lib "src"))
delete-file (delete-file-recursively (string-append lib "tests"))
(filter (lambda (file) (for-each delete-file
(not (member (basename file) (filter (lambda (file)
'("basic-unixint__grovel" (not (member (basename file) '("libosicat.so"))))
"libosicat.so" (find-files (string-append lib "posix") ".*"))))
"osicat--system.fasl" #t)))))
"osicat.asd"
"unixint__grovel"))))
(find-files lib ".*")))
#t))))))
(inputs (inputs
`(("alexandria" ,sbcl-alexandria) `(("alexandria" ,sbcl-alexandria)
("cffi" ,sbcl-cffi) ("cffi" ,sbcl-cffi)