gnu: Add sbcl-fare-quasiquote-extras.

* gnu/packages/lisp-xyz.scm (sbcl-fare-quasiquote-extras): New variable.
This commit is contained in:
Guillaume Le Vaillant 2020-02-07 11:58:30 +01:00
parent ac70fc6aa3
commit a526320076
No known key found for this signature in database
GPG key ID: 6BE8208ADF21FE3F

View file

@ -5965,6 +5965,42 @@ (define-public cl-fare-quasiquote-readtable
(sbcl-package->cl-source-package sbcl-fare-quasiquote-readtable))
;; TODO: Add support for component-less system in asdf-build-system/sbcl.
(define-public sbcl-fare-quasiquote-extras
(package
(inherit sbcl-fare-quasiquote)
(name "sbcl-fare-quasiquote-extras")
(build-system asdf-build-system/sbcl)
(inputs
`(("fare-quasiquote-optima" ,sbcl-fare-quasiquote-optima)
("fare-quasiquote-readtable" ,sbcl-fare-quasiquote-readtable)))
(arguments
`(#:phases
(modify-phases %standard-phases
(replace 'build
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(lib (string-append out "/lib/" (%lisp-type))))
(mkdir-p lib)
(install-file "fare-quasiquote-extras.asd" lib)
#t)))
(add-after 'create-asd-file 'fix-asd-file
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(lib (string-append out "/lib/" (%lisp-type)))
(asd (string-append lib "/fare-quasiquote-extras.asd")))
(substitute* asd
((":class")
"")
(("asdf/bundle:prebuilt-system")
"")
((":components")
"")
(("\\(\\(:compiled-file \"fare-quasiquote-extras--system\"\\)\\)")
"")))
#t)))))
(description "This library combines @code{fare-quasiquote-readtable} and
@code{fare-quasiquote-optima}.")))
(define-public cl-fare-quasiquote-extras
(package
(inherit cl-fare-quasiquote)