63/65: gnu: Add sbcl-cl-cffi-gtk.

[Pierre Neidhardt]

ambrevar pushed a commit to branch master
in repository guix.

commit c80dfee9f18aaba422ba0ad45aa3aeb17b789fa1
Author: Pierre Neidhardt <address@hidden>
Date:   Fri Oct 19 16:54:46 2018 +0200

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

diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm
index ac1d4a4..6892797 100644
--- a/gnu/packages/lisp.scm
+++ b/gnu/packages/lisp.scm
@@ -3424,3 +3424,22 @@ is a library for creating graphical user interfaces.")
                (("libgtk" all)
                 (string-append
                  (assoc-ref inputs "gtk") "/lib/" all))))))))))
+
+(define-public sbcl-cl-cffi-gtk
+  (package
+    (inherit sbcl-cl-cffi-gtk-boot0)
+    (name "sbcl-cl-cffi-gtk")
+    (inputs
+     `(("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
+       ("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject)
+       ("cl-cffi-gtk-gio" ,sbcl-cl-cffi-gtk-gio)
+       ("cl-cffi-gtk-gdk" ,sbcl-cl-cffi-gtk-gdk)
+       ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
+    (native-inputs
+     `(("fiveam" ,sbcl-fiveam)))
+    (arguments
+     `(#:asd-file "gtk/cl-cffi-gtk.asd"
+       #:test-asd-file "test/cl-cffi-gtk-test.asd"
+       ;; TODO: Tests fail with memory fault.
+       ;; See https://github.com/Ferada/cl-cffi-gtk/issues/24.
+       #:tests? #f))))