ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: sbcl: Include source so that standard symbol definitions can be examined.

Browse source 
* gnu/packages/lisp.scm (sbcl)[arguments]: Add build-source phase to install
source directories "src" and "contrib".
This commit is contained in:
Pierre Neidhardt 2019-08-25 12:28:28 +02:00
parent 3d76112769
commit d0480ca1a2
No known key found for this signature in database
GPG key ID: 9BDCF497A4BBCC7F
1 changed files with 15 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
gnu/packages/lisp.scm
View file

@ -423,8 +423,6 @@ (define (quoted-path input path)
;; them in HOME, so it needs to be writeable.
(add-before 'build 'set-HOME
(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
(lambda* (#:key outputs #:allow-other-keys)
(setenv "CC" "gcc")
@ -445,6 +443,21 @@ (define (quoted-path input path)
(with-directory-excursion "doc/manual"
(and (invoke "make" "info")
(invoke "make" "dist")))))
(add-after 'build 'build-source
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(rc (string-append out "/lib/sbcl/sbclrc"))
(source-dir (string-append out "/share/sbcl")))
(for-each (lambda (p)
(copy-recursively p (string-append source-dir "/" p)))
'("src" "contrib"))
(mkdir-p (dirname rc))
(with-output-to-file rc
(lambda ()
(display
(string-append "(sb-ext:set-sbcl-source-location \""
source-dir "\")") )))
#t)))
(add-after 'install 'install-doc
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))