[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
11/16: gnu: Add sbcl-trivia.trivial.
From: |
guix-commits |
Subject: |
11/16: gnu: Add sbcl-trivia.trivial. |
Date: |
Thu, 4 Jul 2019 13:28:12 -0400 (EDT) |
ambrevar pushed a commit to branch master
in repository guix.
commit 02a8324b12d1f52d94ace2ed31bd541222ed3c5c
Author: Pierre Neidhardt <address@hidden>
Date: Thu Jul 4 19:24:18 2019 +0200
gnu: Add sbcl-trivia.trivial.
* gnu/packages/lisp.scm (sbcl-trivia.trivial): New variable.
---
gnu/packages/lisp.scm | 38 ++++++++++++++++++++++++++++++++++++++
1 file changed, 38 insertions(+)
diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm
index ba9c637..daf5008 100644
--- a/gnu/packages/lisp.scm
+++ b/gnu/packages/lisp.scm
@@ -6359,3 +6359,41 @@ be faster and more extensible than Optima.
This system contains a non-optimized pattern matcher compatible with Optima,
with extensible optimizer interface.")))
+
+(define-public sbcl-trivia.trivial
+ (package
+ (inherit sbcl-trivia.level0)
+ (name "sbcl-trivia.trivial")
+ (inputs
+ `(("trivia.level2" ,sbcl-trivia.level2)))
+ (arguments
+ `(#:phases
+ (modify-phases %standard-phases
+ (replace 'create-asd-file
+ (lambda* (#:key outputs inputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (lib (string-append out "/lib/sbcl"))
+ (level2 (assoc-ref inputs "trivia.level2")))
+ (mkdir-p lib)
+ (install-file "trivia.trivial.asd" lib)
+ ;; XXX: This .asd does not have any component and the build
+ ;; system fails to work in this case. We should update the
+ ;; build system to handle component-less .asd.
+ ;; TODO: How do we append to file in Guile? It seems that
+ ;; (open-file ... "a") gets a "Permission denied".
+ (substitute* (string-append lib "/trivia.trivial.asd")
+ (("\"\\)")
+ (string-append "\")
+
+(progn (asdf/source-registry:ensure-source-registry)
+ (setf (gethash
+ \"trivia.level2\"
+ asdf/source-registry:*source-registry*)
+ #p\""
+ level2
+
"/share/common-lisp/sbcl-bundle-systems/trivia.level2.asd\"))")))))))))
+ (description "Trivia is a pattern matching compiler that is compatible
+with Optima, another pattern matching library for Common Lisp. It is meant to
+be faster and more extensible than Optima.
+
+This system contains the base level system of Trivia with a trivial
optimizer.")))
- branch master updated (e2332de -> 87850c0), guix-commits, 2019/07/04
- 02/16: gnu: Add sbcl-trivial-cltl2., guix-commits, 2019/07/04
- 03/16: gnu: Add sbcl-introspect-environment., guix-commits, 2019/07/04
- 01/16: gnu: Add sbcl-lisp-namespace., guix-commits, 2019/07/04
- 07/16: gnu: Add sbcl-fare-quasiquote-readtable., guix-commits, 2019/07/04
- 08/16: gnu: Add sbcl-trivia.level0., guix-commits, 2019/07/04
- 05/16: gnu: Add sbcl-optima., guix-commits, 2019/07/04
- 14/16: gnu: Add sbcl-trivia.quasiquote., guix-commits, 2019/07/04
- 10/16: gnu: Add sbcl-trivia.level2., guix-commits, 2019/07/04
- 16/16: gnu: Add sbcl-trivia., guix-commits, 2019/07/04
- 11/16: gnu: Add sbcl-trivia.trivial.,
guix-commits <=
- 04/16: gnu: Add sbcl-type-i., guix-commits, 2019/07/04
- 09/16: gnu: Add sbcl-trivia.level1., guix-commits, 2019/07/04
- 06/16: gnu: Add sbcl-fare-quasiquote., guix-commits, 2019/07/04
- 13/16: gnu: Add sbcl-trivia.ppcre., guix-commits, 2019/07/04
- 12/16: gnu: Add sbcl-trivia.balland2006., guix-commits, 2019/07/04
- 15/16: gnu: Add sbcl-trivia.cffi., guix-commits, 2019/07/04