ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 13:49:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: sbcl: Fix missing return value of phase.

Browse source 
* gnu/packages/lisp.scm (sbcl)[arguments]: Return #t in patch-unix-tool-paths
  phase.
This commit is contained in:
Pierre Neidhardt 2019-12-09 12:20:48 +01:00
parent 0bfa8744ae
commit 02b6382169
No known key found for this signature in database
GPG key ID: 9BDCF497A4BBCC7F
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gnu/packages/lisp.scm
View file

@ -10,7 +10,7 @@
;;; Copyright © 2017, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Benjamin Slade <slade@jnanam.net> ;;; Copyright © 2018 Benjamin Slade <slade@jnanam.net>
;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com> ;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz> ;;; Copyright © 2018, 2019 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com> ;;; Copyright © 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2019 Katherine Cox-Buday <cox.katherine.e@gmail.com> ;;; Copyright © 2019 Katherine Cox-Buday <cox.katherine.e@gmail.com>
;;; Copyright © 2019 Jesse Gildersleve <jessejohngildersleve@protonmail.com> ;;; Copyright © 2019 Jesse Gildersleve <jessejohngildersleve@protonmail.com>
@ -354,10 +354,10 @@ (define-public sbcl
;; ;;
;; CCL is not bootstrappable so it won't do. CLISP 2.49 seems to work. ;; CCL is not bootstrappable so it won't do. CLISP 2.49 seems to work.
;; ECL too. ECL builds SBCL about 20% slower than CLISP. As of ;; ECL too. ECL builds SBCL about 20% slower than CLISP. As of
;; 2019-09-05, ECL was last updated in 2016 while CLISP was last update ;; 2019-09-05, ECL was last updated in 2016 while CLISP was last updated
;; in 2010. ;; in 2010.
;; ;;
;; For now we stick to CLISP for all systems. We keep the `match' in to ;; For now we stick to CLISP for all systems. We keep the `match' here to
;; make it easier to change the host compiler for various architectures. ;; make it easier to change the host compiler for various architectures.
`(,@(match (%current-system) `(,@(match (%current-system)
((or "x86_64-linux" "i686-linux") ((or "x86_64-linux" "i686-linux")
@ -422,7 +422,8 @@ (define (quoted-path input path)
(("\\(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))))
#t))
;; FIXME: the texlive-union insists on regenerating fonts. It stores ;; FIXME: the texlive-union insists on regenerating fonts. It stores
;; them in HOME, so it needs to be writeable. ;; them in HOME, so it needs to be writeable.
(add-before 'build 'set-HOME (add-before 'build 'set-HOME
@ -444,6 +445,7 @@ (define (quoted-path input path)
(invoke "sh" "install.sh"))) (invoke "sh" "install.sh")))
(add-after 'build 'build-doc (add-after 'build 'build-doc
(lambda _ (lambda _
;; TODO: Doc is not deterministic, maybe there is a timespamp?
(with-directory-excursion "doc/manual" (with-directory-excursion "doc/manual"
(and (invoke "make" "info") (and (invoke "make" "info")
(invoke "make" "dist"))))) (invoke "make" "dist")))))