gnu: sbcl: Enable core compression and xref for internals.

* gnu/packages/lisp.scm (sbcl): Do it.
This commit is contained in:
Pierre Neidhardt 2019-08-24 18:25:53 +02:00
parent 9e4422d683
commit 5c8b9a4381
No known key found for this signature in database
GPG key ID: 9BDCF497A4BBCC7F

View file

@ -364,7 +364,8 @@ (define-public sbcl
("inetutils" ,inetutils) ;for hostname(1) ("inetutils" ,inetutils) ;for hostname(1)
("ed" ,ed) ("ed" ,ed)
("texlive" ,(texlive-union (list texlive-tex-texinfo))) ("texlive" ,(texlive-union (list texlive-tex-texinfo)))
("texinfo" ,texinfo))) ("texinfo" ,texinfo)
("zlib" ,zlib)))
(arguments (arguments
`(#:modules ((guix build gnu-build-system) `(#:modules ((guix build gnu-build-system)
(guix build utils) (guix build utils)
@ -422,6 +423,8 @@ (define (quoted-path input path)
;; 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
(lambda _ (setenv "HOME" "/tmp") #t)) (lambda _ (setenv "HOME" "/tmp") #t))
;; TODO: We need to install the source as well (`src/code' directory)
;; so that "go do definition" can work.
(replace 'build (replace 'build
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(setenv "CC" "gcc") (setenv "CC" "gcc")
@ -431,7 +434,9 @@ (define (quoted-path input path)
(_ (_
`("clisp"))) `("clisp")))
(string-append "--prefix=" (string-append "--prefix="
(assoc-ref outputs "out"))))) (assoc-ref outputs "out"))
"--with-sb-core-compression"
"--with-sb-xref-for-internals")))
(replace 'install (replace 'install
(lambda _ (lambda _
(invoke "sh" "install.sh"))) (invoke "sh" "install.sh")))