29/35: gnu: Add sbcl-mcclim-bezier.

[guix-commits]

glv pushed a commit to branch master
in repository guix.

commit c93bd9f8b90fcda9d61b572cd7fb0fbf6c351118
Author: Guillaume Le Vaillant <glv@posteo.net>
AuthorDate: Fri Jul 17 14:34:51 2020 +0200

    gnu: Add sbcl-mcclim-bezier.
    
    * gnu/packages/lisp-xyz.scm (sbcl-mcclim-bezier): New variable.
---
 gnu/packages/lisp-xyz.scm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 9294b39..c679f7d 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -13184,3 +13184,24 @@ specification}, a toolkit for writing GUIs in Common 
Lisp.")
                (("mcclim-bezier/core\\)")
                 "mcclim-bezier-core)"))
              #t)))))))
+
+(define-public sbcl-mcclim-bezier
+  (package
+    (inherit sbcl-clim-lisp)
+    (name "sbcl-mcclim-bezier")
+    (inputs
+     `(("mcclim-bezier/clx" ,sbcl-mcclim-bezier-clx)
+       ("mcclim-bezier/core" ,sbcl-mcclim-bezier-core)
+       ("swank" ,cl-slime-swank))) ; For drei-mcclim
+    (arguments
+     '(#:asd-file "Extensions/bezier/mcclim-bezier.asd"
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'fix-asd-system-names
+           (lambda _
+             (substitute* "Extensions/bezier/mcclim-bezier.asd"
+               (("\\(#:mcclim-bezier/core")
+                "(#:mcclim-bezier-core")
+               (("#:mcclim-bezier/clx\\)\\)")
+                "#:mcclim-bezier-clx))"))
+             #t)))))))