gnu: sbcl-slynk: Fix version number check.
* gnu/packages/lisp-xyz.scm (sbcl-slynk)[source]: Don't move files around since this is not required. [arguments]: Re-enable tests. There is none at the moment, but they might get added in the future. Don't list systems since they are found automatically. Moving `slynk.lisp' had the detrimental side-effect to break `sly-version-string' which expects `sly.el' to be in the parent directory. As a result, using `sly-connect' from Emacs would prompt the user: [sly] Versions differ: 1.0.43 (sly) vs. nil (slynk). Continue? (y or n) even though the Slynk version is correct. Maybe there was a need for moving files around in the past, but since our ASDF build system got revamped, all systems are now automatically found. Thus we can leave the files where they are, which fixes the version number check.
This commit is contained in:
parent
1aee32a26e
commit
09bba548bf
@ -832,40 +832,11 @@ antialiased TrueType font rendering using CLX and XRender extension.")
|
||||
(commit commit)))
|
||||
(sha256
|
||||
(base32 "0vv185gz3rkfng5y79dijfnc11p92qdz2kdza05avjbpqfs6l0zn"))
|
||||
(file-name (git-file-name "slynk" version))
|
||||
(modules '((guix build utils)
|
||||
(ice-9 ftw)))
|
||||
(snippet
|
||||
'(begin
|
||||
;; Move the contribs into the main source directory for easier
|
||||
;; access
|
||||
(substitute* "slynk/slynk.asd"
|
||||
(("\\.\\./contrib")
|
||||
"contrib"))
|
||||
(rename-file "contrib" "slynk/contrib")
|
||||
;; Move slynk's contents into the base directory for easier
|
||||
;; access
|
||||
(for-each (lambda (file)
|
||||
(unless (string-prefix? "." file)
|
||||
(rename-file (string-append "slynk/" file)
|
||||
(string-append "./" (basename file)))))
|
||||
(scandir "slynk"))
|
||||
#t))))
|
||||
(file-name (git-file-name "slynk" version))))
|
||||
(build-system asdf-build-system/sbcl)
|
||||
(outputs '("out" "image"))
|
||||
(arguments
|
||||
`(#:tests? #f ; No test suite
|
||||
#:asd-systems '("slynk"
|
||||
"slynk/arglists"
|
||||
"slynk/fancy-inspector"
|
||||
"slynk/package-fu"
|
||||
"slynk/mrepl"
|
||||
"slynk/trace-dialog"
|
||||
"slynk/profiler"
|
||||
"slynk/stickers"
|
||||
"slynk/indentation"
|
||||
"slynk/retro")
|
||||
#:phases
|
||||
`(#:phases
|
||||
(modify-phases %standard-phases
|
||||
(add-after 'create-asdf-configuration 'build-image
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
|
Loading…
Reference in New Issue
Block a user