nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

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