57/65: gnu: Add sbcl-cl-cffi-gtk-gobject.

[Pierre Neidhardt]

ambrevar pushed a commit to branch master
in repository guix.

commit 77a5461c31c5e53f23a9a3e90fd77d814fa24be6
Author: Pierre Neidhardt <address@hidden>
Date:   Fri Oct 19 16:52:59 2018 +0200

    gnu: Add sbcl-cl-cffi-gtk-gobject.
    
    * gnu/packages/lisp.scm (sbcl-cl-cffi-gtk-gobject): New variable.
---
 gnu/packages/lisp.scm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm
index 6ba6789..6d945da 100644
--- a/gnu/packages/lisp.scm
+++ b/gnu/packages/lisp.scm
@@ -3297,3 +3297,24 @@ is a library for creating graphical user interfaces.")
              (substitute* "glib/glib.init.lisp"
                (("libglib|libgthread" all) (string-append
                                             (assoc-ref inputs "glib") "/lib/" 
all))))))))))
+
+(define-public sbcl-cl-cffi-gtk-gobject
+  (package
+    (inherit sbcl-cl-cffi-gtk-boot0)
+    (name "sbcl-cl-cffi-gtk-gobject")
+    (inputs
+     `(("glib" ,glib)
+       ("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
+       ("trivial-garbage" ,sbcl-trivial-garbage)
+       ("bordeaux-threads" ,sbcl-bordeaux-threads)
+       ("closer-mop" ,sbcl-closer-mop)
+       ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
+    (arguments
+     `(#:asd-file "gobject/cl-cffi-gtk-gobject.asd"
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'fix-paths
+           (lambda* (#:key inputs #:allow-other-keys)
+             (substitute* "gobject/gobject.init.lisp"
+               (("libgobject" all) (string-append
+                                    (assoc-ref inputs "glib") "/lib/" 
all))))))))))