ambrevar pushed a commit to branch wip-next-browser
in repository guix.
commit 7c9316d9a4c5e008bfba0edc19146e0a05b4e721
Author: Pierre Neidhardt <[email protected]>
Date: Mon Oct 1 15:29:54 2018 +0200
gnu: Add let-plus.
* gnu/packages/lisp.scm (cl-let-plus, ecl-let-plus, sbcl-let-plus): New
variables.
---
gnu/packages/lisp.scm | 41 +++++++++++++++++++++++++++++++++++++++++
1 file changed, 41 insertions(+)
diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm
index 30006ef..f7c04f0 100644
--- a/gnu/packages/lisp.scm
+++ b/gnu/packages/lisp.scm
@@ -2309,6 +2309,47 @@ supports randomized testing, benchmarking, profiling,
and reporting.")
;; REVIEW: The actual license is "MIT Style".
(license license:expat))))
+(define-public sbcl-let-plus
+ (let ((commit "5f14af61d501ecead02ec6b5a5c810efc0c9fdbb"))
+ (package
+ (name "sbcl-let-plus")
+ (version (git-version "0.0.0" "1" commit))
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/sharplispers/let-plus";)
+ (commit commit)))
+ (sha256
+ (base32
+ "0i050ca2iys9f5mb7dgqgqdxfnc3b0rnjdwv95sqd490vkiwrsaj"))
+ (file-name (git-file-name "let-plus" version))))
+ (build-system asdf-build-system/sbcl)
+ (inputs
+ `(("alexandria" ,sbcl-alexandria)
+ ("anaphora" ,sbcl-anaphora)))
+ (arguments
+ ;; Tests require the "LIFT" library.
+ `(#:tests? #f))
+ (synopsis "Destructuring extension of let*")
+ (description
+ "This library implements the let+ macro, which is a dectructuring
+extension of let*. Highlights:
+@itemize
+@item Clean, consistent syntax and small implementation (less than 300 LOC,
not counting tests)
+@item Placeholder macros allow editor hints and syntax highlighting
+@item @command{&ign} for ignored values (in forms where that makes sense)
+@item Very easy to extend
+@end itemize\n")
+ (home-page "https://github.com/sharplispers/let-plus";)
+ (license license:boost1.0))))
+
+(define-public cl-let-plus
+ (sbcl-package->cl-source-package sbcl-let-plus))
+
+(define-public ecl-let-plus
+ (sbcl-package->ecl-package sbcl-let-plus))
+
(define-public sbcl-ascii-strings
(let ((revision "1")
(changeset "5048480a61243e6f1b02884012c8f25cdbee6d97"))
