3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00

gnu: sbcl-fare-quasiquote-readtable: Remove ASD component fix.

* gnu/packages/lisp-xyz.scm (sbcl-fare-quasiquote-readtable)[arguments]: Remove
'fix-asd-file phase now that our build system supports component-less .asd
files.
This commit is contained in:
Pierre Neidhardt 2020-06-18 16:44:35 +02:00
parent 74fb7f900e
commit 7432a419b8
No known key found for this signature in database
GPG key ID: 9BDCF497A4BBCC7F

View file

@ -6121,7 +6121,6 @@ This package uses fare-quasiquote with named-readtable.")))
(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)
@ -6141,22 +6140,7 @@ This package uses fare-quasiquote with named-readtable.")))
(install-file "fare-quasiquote-extras.asd" lib)
(make-file-writable
(string-append lib "/fare-quasiquote-extras.asd"))
#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)))))
#t))))))
(description "This library combines @code{fare-quasiquote-readtable} and
@code{fare-quasiquote-optima}.")))