me/guix
Archived
1
0
Fork 0
Code Activity

gnu: sbcl: Convert to the 'modify-phases' syntax.

Browse source 
* gnu/packages/lisp.scm (sbcl): Do it.
This commit is contained in:
Federico Beffa 2015-12-31 18:36:52 +01:00
parent 85960693e4
commit 1ee131df42
1 changed files with 54 additions and 58 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
gnu/packages/lisp.scm
View file

@ -223,10 +223,9 @@ an interpreter, a compiler, a debugger, and much more.")
("ed" ,ed)))
(arguments
'(#:phases
(alist-delete
'configure
(alist-cons-before
'build 'patch-unix-tool-paths
(modify-phases %standard-phases
(delete 'configure)
(add-before 'build 'patch-unix-tool-paths
(lambda* (#:key outputs inputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(bash (assoc-ref inputs "bash"))
@ -267,19 +266,16 @@ an interpreter, a compiler, a debugger, and much more.")
(("\\(deftest pwent\\.[12]" all)
(string-append "#+nil ;disabled by Guix\n" all))
(("\\(deftest grent\\.[12]" all)
(string-append "#+nil ;disabled by Guix\n" all)))))
(alist-replace
'build
(string-append "#+nil ;disabled by Guix\n" all))))))
(replace 'build
(lambda* (#:key outputs #:allow-other-keys)
(setenv "CC" "gcc")
(zero? (system* "sh" "make.sh" "clisp"
(string-append "--prefix="
(assoc-ref outputs "out")))))
(alist-replace
'install
(assoc-ref outputs "out"))))))
(replace 'install
(lambda _
(zero? (system* "sh" "install.sh")))
%standard-phases))))
(zero? (system* "sh" "install.sh")))))
;; No 'check' target, though "make.sh" (build phase) runs tests.
#:tests? #f))
(home-page "http://www.sbcl.org/")