me
/
guix
Archived
1
0
Fork 0
Code

gnu: sbcl: Resolve TODO. 

* gnu/packages/lisp.scm (sbcl)[source](modules, snippet): New fields.
[arguments]: Remove phase.
master
Marius Bakke 2022-11-18 10:39:07 +01:00 committed by Maxim Cournoyer
parent af2cfa4b38
commit 3407a47c2a
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gnu/packages/lisp.scm
View File

@ -435,7 +435,13 @@ an interpreter, a compiler, a debugger, and much more.")
(uri (string-append "mirror://sourceforge/sbcl/sbcl/" version "/sbcl-" (uri (string-append "mirror://sourceforge/sbcl/sbcl/" version "/sbcl-"
version "-source.tar.bz2")) version "-source.tar.bz2"))
(sha256 (sha256
(base32 "1ahyrc3p9cf7y5zbgzvb9yxa8a480ccis4ksijlajck3z8n1dk24")))) (base32 "1ahyrc3p9cf7y5zbgzvb9yxa8a480ccis4ksijlajck3z8n1dk24"))
(modules '((guix build utils)))
(snippet
'(begin
;; Don't force ARMv5.
(substitute* "src/runtime/Config.arm-linux"
(("-march=armv5") ""))))))
(build-system gnu-build-system) (build-system gnu-build-system)
(outputs '("out" "doc")) (outputs '("out" "doc"))
(native-inputs (native-inputs
@ -481,13 +487,6 @@ an interpreter, a compiler, a debugger, and much more.")
(srfi srfi-1)) (srfi srfi-1))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
,@(if (target-arm32?)
;; TODO: Move to snippet in staging.
`((add-after 'unpack 'dont-force-armv5
(lambda _
(substitute* "src/runtime/Config.arm-linux"
(("-march=armv5") "")))))
'())
(delete 'configure) (delete 'configure)
(add-after 'unpack 'fix-build-id (add-after 'unpack 'fix-build-id
;; One of the build scripts makes a build id using the current date. ;; One of the build scripts makes a build id using the current date.