nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: sbcl-slynk-boot0: Give the package an appropriate name. 

* gnu/packages/lisp.scm (sbcl-slynk-boot0)[name]: Change it to reflect the
bootstrap status of the package.
[arguments]<#:asd-system-name>: Add the appropriate value.
(sbcl-slynk-arglists)[arguments]: Set the appropriate #:asd-file and forcibly
unset #:asd-system-name.
(sbcl-slynk)[name]: Change it to the variable name.
(cl-slynk)[name]: Likewise.
This commit is contained in:
Andy Patterson 2017-04-08 23:50:01 -04:00 committed by Ricardo Wurmus
parent 4209c31b8f
commit f56da605d8
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gnu/packages/lisp.scm
View File

@ -951,7 +951,7 @@ productive, customizable lisp based systems.")
(let ((revision "1") (let ((revision "1")
(commit "5706cd45d484a4f25795abe8e643509d31968aa2")) (commit "5706cd45d484a4f25795abe8e643509d31968aa2"))
(package (package
(name "sbcl-slynk") ; name must refer to the system name for now (name "sbcl-slynk-boot0")
(version (string-append "1.0.0-beta-" revision "." (string-take commit 7))) (version (string-append "1.0.0-beta-" revision "." (string-take commit 7)))
(source (source
(origin (origin
@ -991,7 +991,8 @@ productive, customizable lisp based systems.")
(scandir "slynk")))))) (scandir "slynk"))))))
(build-system asdf-build-system/sbcl) (build-system asdf-build-system/sbcl)
(arguments (arguments
`(#:tests? #f)) ; No test suite `(#:tests? #f ; No test suite
#:asd-system-name "slynk"))
(synopsis "Common Lisp IDE for Emacs") (synopsis "Common Lisp IDE for Emacs")
(description "SLY is a fork of SLIME, an IDE backend for Common Lisp. (description "SLY is a fork of SLIME, an IDE backend for Common Lisp.
It also features a completely redesigned REPL based on Emacs's own It also features a completely redesigned REPL based on Emacs's own
@ -1003,7 +1004,9 @@ multiple inspectors with independent history.")
(properties `((cl-source-variant . ,(delay cl-slynk))))))) (properties `((cl-source-variant . ,(delay cl-slynk)))))))
(define-public cl-slynk (define-public cl-slynk
(sbcl-package->cl-source-package sbcl-slynk-boot0)) (package
(inherit (sbcl-package->cl-source-package sbcl-slynk-boot0))
(name "cl-slynk")))
(define ecl-slynk-boot0 (define ecl-slynk-boot0
(sbcl-package->ecl-package sbcl-slynk-boot0)) (sbcl-package->ecl-package sbcl-slynk-boot0))
@ -1014,8 +1017,9 @@ multiple inspectors with independent history.")
(name "sbcl-slynk-arglists") (name "sbcl-slynk-arglists")
(inputs `(("slynk" ,sbcl-slynk-boot0))) (inputs `(("slynk" ,sbcl-slynk-boot0)))
(arguments (arguments
`(#:asd-file "slynk.asd" (substitute-keyword-arguments (package-arguments sbcl-slynk-boot0)
,@(package-arguments sbcl-slynk-boot0))))) ((#:asd-file _ "") "slynk.asd")
((#:asd-system-name _ #f) #f)))))
(define ecl-slynk-arglists (define ecl-slynk-arglists
(sbcl-package->ecl-package sbcl-slynk-arglists)) (sbcl-package->ecl-package sbcl-slynk-arglists))
@ -1110,6 +1114,7 @@ multiple inspectors with independent history.")
(define-public sbcl-slynk (define-public sbcl-slynk
(package (package
(inherit sbcl-slynk-boot0) (inherit sbcl-slynk-boot0)
(name "sbcl-slynk")
(inputs (inputs
`(("slynk" ,sbcl-slynk-boot0) `(("slynk" ,sbcl-slynk-boot0)
("slynk-util" ,sbcl-slynk-util) ("slynk-util" ,sbcl-slynk-util)