diff options
| author | Pierre Neidhardt <mail@ambrevar.xyz> | 2018-10-19 16:53:16 +0200 |
|---|---|---|
| committer | Pierre Neidhardt <mail@ambrevar.xyz> | 2018-10-19 17:56:37 +0200 |
| commit | 867b3f4780e293585d30585bb49473d7309b66ac (patch) | |
| tree | 330fe23d54b98536e2a9135f1bf9ac817f1637e0 | |
| parent | 77a5461c31c5e53f23a9a3e90fd77d814fa24be6 (diff) | |
| download | guix-867b3f4780e293585d30585bb49473d7309b66ac.tar guix-867b3f4780e293585d30585bb49473d7309b66ac.tar.gz | |
gnu: Add sbcl-cl-cffi-gtk-gio.
* gnu/packages/lisp.scm (sbcl-cl-cffi-gtk-gio): New variable.
| -rw-r--r-- | gnu/packages/lisp.scm | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm index 6d945da557..70282e4cb5 100644 --- a/gnu/packages/lisp.scm +++ b/gnu/packages/lisp.scm @@ -3318,3 +3318,23 @@ is a library for creating graphical user interfaces.") (substitute* "gobject/gobject.init.lisp" (("libgobject" all) (string-append (assoc-ref inputs "glib") "/lib/" all)))))))))) + +(define-public sbcl-cl-cffi-gtk-gio + (package + (inherit sbcl-cl-cffi-gtk-boot0) + (name "sbcl-cl-cffi-gtk-gio") + (inputs + `(("glib" ,glib) + ("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib) + ("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject) + ,@(package-inputs sbcl-cl-cffi-gtk-boot0))) + (arguments + `(#:asd-file "gio/cl-cffi-gtk-gio.asd" + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'fix-paths + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "gio/gio.init.lisp" + (("libgio" all) + (string-append + (assoc-ref inputs "glib") "/lib/" all)))))))))) |