aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPierre Neidhardt <mail@ambrevar.xyz>2018-10-19 16:52:59 +0200
committerPierre Neidhardt <mail@ambrevar.xyz>2018-10-19 17:56:37 +0200
commit77a5461c31c5e53f23a9a3e90fd77d814fa24be6 (patch)
tree5a66fa974e7e7191cc2845d3ef657ae234932757
parent64dcf7d99b09805b8e8888051fe47a981ff9dba6 (diff)
downloadguix-77a5461c31c5e53f23a9a3e90fd77d814fa24be6.tar
guix-77a5461c31c5e53f23a9a3e90fd77d814fa24be6.tar.gz
gnu: Add sbcl-cl-cffi-gtk-gobject.
* gnu/packages/lisp.scm (sbcl-cl-cffi-gtk-gobject): New variable.
-rw-r--r--gnu/packages/lisp.scm21
1 files changed, 21 insertions, 0 deletions
diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm
index 6ba678961c..6d945da557 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))))))))))