diff options
author | Guillaume Le Vaillant <glv@posteo.net> | 2020-02-07 11:58:30 +0100 |
---|---|---|
committer | Guillaume Le Vaillant <glv@posteo.net> | 2020-02-07 12:11:30 +0100 |
commit | a526320076ed906ffa0284002b296159b3fa9330 (patch) | |
tree | 1fb2d86885affd753dcd161e398a248bd793a208 | |
parent | ac70fc6aa304e5cfa881578951f02359024c3a87 (diff) | |
download | guix-patches-a526320076ed906ffa0284002b296159b3fa9330.tar guix-patches-a526320076ed906ffa0284002b296159b3fa9330.tar.gz |
gnu: Add sbcl-fare-quasiquote-extras.
* gnu/packages/lisp-xyz.scm (sbcl-fare-quasiquote-extras): New variable.
-rw-r--r-- | gnu/packages/lisp-xyz.scm | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm index b97ad806ea..adabaf5bd0 100644 --- a/gnu/packages/lisp-xyz.scm +++ b/gnu/packages/lisp-xyz.scm @@ -5965,6 +5965,42 @@ This package uses fare-quasiquote with named-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) |