nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: Add sbcl-cl-cffi-gtk-gobject. 

* gnu/packages/lisp.scm (sbcl-cl-cffi-gtk-gobject): New variable.
This commit is contained in:
Pierre Neidhardt 2018-10-19 16:52:59 +02:00
parent 64dcf7d99b
commit 77a5461c31
No known key found for this signature in database
GPG Key ID: 9BDCF497A4BBCC7F
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
gnu/packages/lisp.scm
View File

@ -3297,3 +3297,24 @@ is a library for creating graphical user interfaces.")
(substitute* "glib/glib.init.lisp" (substitute* "glib/glib.init.lisp"
(("libglib|libgthread" all) (string-append (("libglib|libgthread" all) (string-append
(assoc-ref inputs "glib") "/lib/" all)))))))))) (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))))))))))