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

[guix-commits]

ambrevar pushed a commit to branch master
in repository guix.

commit 7432a419b8c1a7aa469a8714040108ea73e5a7f8
Author: Pierre Neidhardt <mail@ambrevar.xyz>
AuthorDate: Thu Jun 18 16:44:35 2020 +0200

    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.
---
 gnu/packages/lisp-xyz.scm | 18 +-----------------
 1 file changed, 1 insertion(+), 17 deletions(-)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index d2c7560..8fde80d 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -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}.")))