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:
Pierre Neidhardt 2021-01-27 10:59:55 +01:00
parent 1aee32a26e
commit 09bba548bf
No known key found for this signature in database
GPG Key ID: 9BDCF497A4BBCC7F

View File

@ -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)