Subject: [PATCH 7/7] gnu: Add cl-april.

From: Jacob MacDonald <[email-masked]>
Date: Thu, 9 Dec 2021 00:49:17 -0600

From 1abeabe95c5594f5a71c065b3d9aae4aab022b0a Mon Sep 17 00:00:00 2001
From: Jacob MacDonald <[email-masked]>
Date: Wed, 8 Dec 2021 21:30:22 -0600
Subject: [PATCH 7/7] gnu: Add cl-april.

* gnu/packages/lisp-xyz.scm (sbcl-april, cl-april, ecl-april): New variables.
---
 gnu/packages/lisp-xyz.scm | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index ff5d280406..5f4beeab49 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -20156,3 +20156,40 @@ (define-public cl-simple-date-time
 
 (define-public ecl-simple-date-time
   (sbcl-package->ecl-package sbcl-simple-date-time))
+
+(define-public sbcl-april
+  (package
+    (inherit sbcl-vex-templates)
+    (name "sbcl-april")
+    (inputs
+     `(("vex" ,sbcl-vex-templates)
+       ("aplesque" ,sbcl-aplesque)
+       ("array-operations" ,sbcl-array-operations)
+       ("alexandria" ,sbcl-alexandria)
+       ("cl-ppcre" ,sbcl-cl-ppcre)
+       ("decimals" ,sbcl-decimals)
+       ("parse-number" ,sbcl-parse-number)
+       ("symbol-munger" ,sbcl-symbol-munger)
+       ("prove" ,sbcl-prove)
+       ("simple-date-time" ,sbcl-simple-date-time)))
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'fix-build
+           (lambda _
+             (for-each delete-file
+                       '("aplesque/aplesque.asd"
+                         "vex/vex.asd"))
+             #t)))))
+    (synopsis "Array Programming Re-Imagined in Lisp")
+    (description "April compiles a subset of the APL programming language into
+Common Lisp.  Leveraging Lisp's powerful macros and numeric processing
+faculties, it brings APL's expressive potential to bear for Lisp developers.
+Replace hundreds of lines of number-crunching code with a single line of
+APL.")))
+
+(define-public cl-april
+  (sbcl-package->cl-source-package sbcl-april))
+
+(define-public ecl-april
+  (sbcl-package->ecl-package sbcl-april))
-- 
2.34.0