me/guix
Archived
1
0
Fork 0
Code Activity

gnu: cl-cffi-gtk-gobject: Fix build with new sbcl-package->cl-source-package function.

Browse source 
* gnu/packages/lisp-xyz.scm (sbcl-cl-cffi-gtk-boot0)[inputs]: Add all inputs.
[arguments]: Patch whole source.
(sbcl-cl-cffi-gtk-glib)[inputs]: Remove glib.
(sbcl-cl-cffi-gtk-glib)[arguments]: Reuse boot0 source.
(sbcl-cl-cffi-gtk-gobject)[inputs]: Remove glib.
(sbcl-cl-cffi-gtk-gobject)[arguments]: Reuse boot0 source.
(sbcl-cl-cffi-gtk-gio)[inputs]: Remove glib.
(sbcl-cl-cffi-gtk-gio)[arguments]: Reuse boot0 source.
(sbcl-cl-cffi-gtk-cairo)[inputs]: Remove cairo.
(sbcl-cl-cffi-gtk-cairo)[arguments]: Reuse boot0 source.
(sbcl-cl-cffi-gtk-pango)[inputs]: Remove pango.
(sbcl-cl-cffi-gtk-pango)[arguments]: Reuse boot0 source.
(sbcl-cl-cffi-gtk-gdk-pixbuf)[inputs]: Remove gdk-pixbuf.
(sbcl-cl-cffi-gtk-gdk-pixbuf)[arguments]: Reuse boot0 source.
(sbcl-cl-cffi-gtk-gdk-gdk)[inputs]: Remove gtk+.
(sbcl-cl-cffi-gtk-gdk-gdk)[arguments]: Reuse boot0 source.
(sbcl-cl-cffi-gtk)[arguments]: Reuse boot0 source.
This commit is contained in:
Pierre Neidhardt 2020-05-08 11:14:02 +02:00
parent c6201ab9dc
commit 0fadc00a1a
No known key found for this signature in database
GPG key ID: 9BDCF497A4BBCC7F
1 changed files with 165 additions and 176 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

341
gnu/packages/lisp-xyz.scm
View file

@ -2876,7 +2876,41 @@ Lisp implementations.")
(inputs (inputs
`(("iterate" ,sbcl-iterate) `(("iterate" ,sbcl-iterate)
("cffi" ,sbcl-cffi) ("cffi" ,sbcl-cffi)
("trivial-features" ,sbcl-trivial-features))) ("trivial-features" ,sbcl-trivial-features)
("glib" ,glib)
("cairo" ,cairo)
("pango" ,pango)
("gdk-pixbuf" ,gdk-pixbuf)
("gtk" ,gtk+)))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "glib/glib.init.lisp"
(("libglib|libgthread" all)
(string-append (assoc-ref inputs "glib") "/lib/" all)))
(substitute* "gobject/gobject.init.lisp"
(("libgobject" all)
(string-append (assoc-ref inputs "glib") "/lib/" all)))
(substitute* "gio/gio.init.lisp"
(("libgio" all)
(string-append (assoc-ref inputs "glib") "/lib/" all)))
(substitute* "cairo/cairo.init.lisp"
(("libcairo" all)
(string-append (assoc-ref inputs "cairo") "/lib/" all)))
(substitute* "pango/pango.init.lisp"
(("libpango" all)
(string-append (assoc-ref inputs "pango") "/lib/" all)))
(substitute* "gdk-pixbuf/gdk-pixbuf.init.lisp"
(("libgdk_pixbuf" all)
(string-append (assoc-ref inputs "gdk-pixbuf") "/lib/" all)))
(substitute* "gdk/gdk.init.lisp"
(("libgdk" all)
(string-append (assoc-ref inputs "gtk") "/lib/" all)))
(substitute* "gdk/gdk.package.lisp"
(("libgtk" all)
(string-append (assoc-ref inputs "gtk") "/lib/" all))))))))
(home-page "https://github.com/Ferada/cl-cffi-gtk/") (home-page "https://github.com/Ferada/cl-cffi-gtk/")
(synopsis "Common Lisp binding for GTK+3") (synopsis "Common Lisp binding for GTK+3")
(description (description
@ -2889,192 +2923,155 @@ is a library for creating graphical user interfaces.")
(inherit sbcl-cl-cffi-gtk-boot0) (inherit sbcl-cl-cffi-gtk-boot0)
(name "sbcl-cl-cffi-gtk-glib") (name "sbcl-cl-cffi-gtk-glib")
(inputs (inputs
`(("glib" ,glib) `(("bordeaux-threads" ,sbcl-bordeaux-threads)
("bordeaux-threads" ,sbcl-bordeaux-threads)
,@(package-inputs sbcl-cl-cffi-gtk-boot0))) ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
(arguments (arguments
`(#:asd-file "glib/cl-cffi-gtk-glib.asd" (substitute-keyword-arguments (package-arguments sbcl-cl-cffi-gtk-boot0)
#:phases ((#:asd-file _ "") "glib/cl-cffi-gtk-glib.asd")))))
(modify-phases %standard-phases
(add-after 'unpack 'fix-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "glib/glib.init.lisp"
(("libglib|libgthread" all)
(string-append (assoc-ref inputs "glib") "/lib/" all))))))))))
(define-public sbcl-cl-cffi-gtk-gobject (define-public sbcl-cl-cffi-gtk-gobject
(package (package
(inherit sbcl-cl-cffi-gtk-boot0) (inherit sbcl-cl-cffi-gtk-boot0)
(name "sbcl-cl-cffi-gtk-gobject") (name "sbcl-cl-cffi-gtk-gobject")
(inputs (inputs
`(("glib" ,glib) `(("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
("trivial-garbage" ,sbcl-trivial-garbage) ("trivial-garbage" ,sbcl-trivial-garbage)
("bordeaux-threads" ,sbcl-bordeaux-threads) ("bordeaux-threads" ,sbcl-bordeaux-threads)
("closer-mop" ,sbcl-closer-mop) ("closer-mop" ,sbcl-closer-mop)
,@(package-inputs sbcl-cl-cffi-gtk-boot0))) ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
(arguments (arguments
`(#:asd-file "gobject/cl-cffi-gtk-gobject.asd" (substitute-keyword-arguments (package-arguments sbcl-cl-cffi-gtk-boot0)
#:phases ((#:asd-file _ "") "gobject/cl-cffi-gtk-gobject.asd")
(modify-phases %standard-phases ((#:phases phases)
(add-after 'unpack 'fix-paths `(modify-phases ,phases
(lambda* (#:key inputs #:allow-other-keys) (add-after 'install 'link-source
(substitute* "gobject/gobject.init.lisp" ;; Since source is particularly heavy (16MiB+), let's reuse it
(("libgobject" all) (string-append ;; across the different components of cl-ffi-gtk.
(assoc-ref inputs "glib") "/lib/" all))))) (lambda* (#:key inputs outputs #:allow-other-keys)
(add-after 'install 'link-source (let ((glib-source (string-append (assoc-ref inputs "cl-cffi-gtk-glib")
;; Since source is particularly heavy (16MiB+), let's reuse it "/share/common-lisp/sbcl-source/"
;; across the different components of cl-ffi-gtk. "cl-cffi-gtk-glib"))
(lambda* (#:key inputs outputs #:allow-other-keys) (out-source (string-append (assoc-ref outputs "out")
(let ((glib-source (string-append (assoc-ref inputs "cl-cffi-gtk-glib") "/share/common-lisp/sbcl-source/"
"/share/common-lisp/sbcl-source/" "cl-cffi-gtk-gobject")))
"cl-cffi-gtk-glib")) (delete-file-recursively out-source)
(out-source (string-append (assoc-ref outputs "out") (symlink glib-source out-source)
"/share/common-lisp/sbcl-source/" #t)))))))))
"cl-cffi-gtk-gobject")))
(delete-file-recursively out-source)
(symlink glib-source out-source)
#t))))))))
(define-public sbcl-cl-cffi-gtk-gio (define-public sbcl-cl-cffi-gtk-gio
(package (package
(inherit sbcl-cl-cffi-gtk-boot0) (inherit sbcl-cl-cffi-gtk-boot0)
(name "sbcl-cl-cffi-gtk-gio") (name "sbcl-cl-cffi-gtk-gio")
(inputs (inputs
`(("glib" ,glib) `(("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject) ("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject)
,@(package-inputs sbcl-cl-cffi-gtk-boot0))) ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
(arguments (arguments
`(#:asd-file "gio/cl-cffi-gtk-gio.asd" (substitute-keyword-arguments (package-arguments sbcl-cl-cffi-gtk-boot0)
#:phases ((#:asd-file _ "") "gio/cl-cffi-gtk-gio.asd")
(modify-phases %standard-phases ((#:phases phases)
(add-after 'unpack 'fix-paths `(modify-phases ,phases
(lambda* (#:key inputs #:allow-other-keys) (add-after 'install 'link-source
(substitute* "gio/gio.init.lisp" ;; Since source is particularly heavy (16MiB+), let's reuse it
(("libgio" all) ;; across the different components of cl-ffi-gtk.
(string-append (lambda* (#:key inputs outputs #:allow-other-keys)
(assoc-ref inputs "glib") "/lib/" all))))) (let ((glib-source (string-append (assoc-ref inputs "cl-cffi-gtk-glib")
(add-after 'install 'link-source "/share/common-lisp/sbcl-source/"
;; Since source is particularly heavy (16MiB+), let's reuse it "cl-cffi-gtk-glib"))
;; across the different components of cl-ffi-gtk. (out-source (string-append (assoc-ref outputs "out")
(lambda* (#:key inputs outputs #:allow-other-keys) "/share/common-lisp/sbcl-source/"
(let ((glib-source (string-append (assoc-ref inputs "cl-cffi-gtk-glib") "cl-cffi-gtk-gio")))
"/share/common-lisp/sbcl-source/" (delete-file-recursively out-source)
"cl-cffi-gtk-glib")) (symlink glib-source out-source)
(out-source (string-append (assoc-ref outputs "out") #t)))))))))
"/share/common-lisp/sbcl-source/"
"cl-cffi-gtk-gio")))
(delete-file-recursively out-source)
(symlink glib-source out-source)
#t))))))))
(define-public sbcl-cl-cffi-gtk-cairo (define-public sbcl-cl-cffi-gtk-cairo
(package (package
(inherit sbcl-cl-cffi-gtk-boot0) (inherit sbcl-cl-cffi-gtk-boot0)
(name "sbcl-cl-cffi-gtk-cairo") (name "sbcl-cl-cffi-gtk-cairo")
(inputs (inputs
`(("cairo" ,cairo) `(("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
,@(package-inputs sbcl-cl-cffi-gtk-boot0))) ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
(arguments (arguments
`(#:asd-file "cairo/cl-cffi-gtk-cairo.asd" (substitute-keyword-arguments (package-arguments sbcl-cl-cffi-gtk-boot0)
#:phases ((#:asd-file _ "") "cairo/cl-cffi-gtk-cairo.asd")
(modify-phases %standard-phases ((#:phases phases)
(add-after 'unpack 'fix-paths `(modify-phases ,phases
(lambda* (#:key inputs #:allow-other-keys) (add-after 'install 'link-source
(substitute* "cairo/cairo.init.lisp" ;; Since source is particularly heavy (16MiB+), let's reuse it
(("libcairo" all) ;; across the different components of cl-ffi-gtk.
(string-append (lambda* (#:key inputs outputs #:allow-other-keys)
(assoc-ref inputs "cairo") "/lib/" all))))) (let ((glib-source (string-append (assoc-ref inputs "cl-cffi-gtk-glib")
(add-after 'install 'link-source "/share/common-lisp/sbcl-source/"
;; Since source is particularly heavy (16MiB+), let's reuse it "cl-cffi-gtk-glib"))
;; across the different components of cl-ffi-gtk. (out-source (string-append (assoc-ref outputs "out")
(lambda* (#:key inputs outputs #:allow-other-keys) "/share/common-lisp/sbcl-source/"
(let ((glib-source (string-append (assoc-ref inputs "cl-cffi-gtk-glib") "cl-cffi-gtk-cairo")))
"/share/common-lisp/sbcl-source/" (delete-file-recursively out-source)
"cl-cffi-gtk-glib")) (symlink glib-source out-source)
(out-source (string-append (assoc-ref outputs "out") #t)))))))))
"/share/common-lisp/sbcl-source/"
"cl-cffi-gtk-cairo")))
(delete-file-recursively out-source)
(symlink glib-source out-source)
#t))))))))
(define-public sbcl-cl-cffi-gtk-pango (define-public sbcl-cl-cffi-gtk-pango
(package (package
(inherit sbcl-cl-cffi-gtk-boot0) (inherit sbcl-cl-cffi-gtk-boot0)
(name "sbcl-cl-cffi-gtk-pango") (name "sbcl-cl-cffi-gtk-pango")
(inputs (inputs
`(("pango" ,pango) `(("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject) ("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject)
("cl-cffi-gtk-cairo" ,sbcl-cl-cffi-gtk-cairo) ("cl-cffi-gtk-cairo" ,sbcl-cl-cffi-gtk-cairo)
,@(package-inputs sbcl-cl-cffi-gtk-boot0))) ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
(arguments (arguments
`(#:asd-file "pango/cl-cffi-gtk-pango.asd" (substitute-keyword-arguments (package-arguments sbcl-cl-cffi-gtk-boot0)
#:phases ((#:asd-file _ "") "pango/cl-cffi-gtk-pango.asd")
(modify-phases %standard-phases ((#:phases phases)
(add-after 'unpack 'fix-paths `(modify-phases ,phases
(lambda* (#:key inputs #:allow-other-keys) (add-after 'install 'link-source
(substitute* "pango/pango.init.lisp" ;; Since source is particularly heavy (16MiB+), let's reuse it
(("libpango" all) ;; across the different components of cl-ffi-gtk.
(string-append (lambda* (#:key inputs outputs #:allow-other-keys)
(assoc-ref inputs "pango") "/lib/" all))))) (let ((glib-source (string-append (assoc-ref inputs "cl-cffi-gtk-glib")
(add-after 'install 'link-source "/share/common-lisp/sbcl-source/"
;; Since source is particularly heavy (16MiB+), let's reuse it "cl-cffi-gtk-glib"))
;; across the different components of cl-ffi-gtk. (out-source (string-append (assoc-ref outputs "out")
(lambda* (#:key inputs outputs #:allow-other-keys) "/share/common-lisp/sbcl-source/"
(let ((glib-source (string-append (assoc-ref inputs "cl-cffi-gtk-glib") "cl-cffi-gtk-pango")))
"/share/common-lisp/sbcl-source/" (delete-file-recursively out-source)
"cl-cffi-gtk-glib")) (symlink glib-source out-source)
(out-source (string-append (assoc-ref outputs "out") #t)))))))))
"/share/common-lisp/sbcl-source/"
"cl-cffi-gtk-pango")))
(delete-file-recursively out-source)
(symlink glib-source out-source)
#t))))))))
(define-public sbcl-cl-cffi-gtk-gdk-pixbuf (define-public sbcl-cl-cffi-gtk-gdk-pixbuf
(package (package
(inherit sbcl-cl-cffi-gtk-boot0) (inherit sbcl-cl-cffi-gtk-boot0)
(name "sbcl-cl-cffi-gtk-gdk-pixbuf") (name "sbcl-cl-cffi-gtk-gdk-pixbuf")
(inputs (inputs
`(("gdk-pixbuf" ,gdk-pixbuf) `(("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject)
("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject)
("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib) ("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
,@(package-inputs sbcl-cl-cffi-gtk-boot0))) ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
(arguments (arguments
`(#:asd-file "gdk-pixbuf/cl-cffi-gtk-gdk-pixbuf.asd" (substitute-keyword-arguments (package-arguments sbcl-cl-cffi-gtk-boot0)
#:phases ((#:asd-file _ "") "gdk-pixbuf/cl-cffi-gtk-gdk-pixbuf.asd")
(modify-phases %standard-phases ((#:phases phases)
(add-after 'unpack 'fix-paths `(modify-phases ,phases
(lambda* (#:key inputs #:allow-other-keys) (add-after 'install 'link-source
(substitute* "gdk-pixbuf/gdk-pixbuf.init.lisp" ;; Since source is particularly heavy (16MiB+), let's reuse it
(("libgdk_pixbuf" all) ;; across the different components of cl-ffi-gtk.
(string-append (lambda* (#:key inputs outputs #:allow-other-keys)
(assoc-ref inputs "gdk-pixbuf") "/lib/" all))))) (let ((glib-source (string-append (assoc-ref inputs "cl-cffi-gtk-glib")
(add-after 'install 'link-source "/share/common-lisp/sbcl-source/"
;; Since source is particularly heavy (16MiB+), let's reuse it "cl-cffi-gtk-glib"))
;; across the different components of cl-ffi-gtk. (out-source (string-append (assoc-ref outputs "out")
(lambda* (#:key inputs outputs #:allow-other-keys) "/share/common-lisp/sbcl-source/"
(let ((glib-source (string-append (assoc-ref inputs "cl-cffi-gtk-glib") "cl-cffi-gtk-gdk-pixbuf")))
"/share/common-lisp/sbcl-source/" (delete-file-recursively out-source)
"cl-cffi-gtk-glib")) (symlink glib-source out-source)
(out-source (string-append (assoc-ref outputs "out") #t)))))))))
"/share/common-lisp/sbcl-source/"
"cl-cffi-gtk-gdk-pixbuf")))
(delete-file-recursively out-source)
(symlink glib-source out-source)
#t))))))))
(define-public sbcl-cl-cffi-gtk-gdk (define-public sbcl-cl-cffi-gtk-gdk
(package (package
(inherit sbcl-cl-cffi-gtk-boot0) (inherit sbcl-cl-cffi-gtk-boot0)
(name "sbcl-cl-cffi-gtk-gdk") (name "sbcl-cl-cffi-gtk-gdk")
(inputs (inputs
`(("gtk" ,gtk+) `(("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject) ("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject)
("cl-cffi-gtk-gio" ,sbcl-cl-cffi-gtk-gio) ("cl-cffi-gtk-gio" ,sbcl-cl-cffi-gtk-gio)
("cl-cffi-gtk-gdk-pixbuf" ,sbcl-cl-cffi-gtk-gdk-pixbuf) ("cl-cffi-gtk-gdk-pixbuf" ,sbcl-cl-cffi-gtk-gdk-pixbuf)
@ -3082,32 +3079,23 @@ is a library for creating graphical user interfaces.")
("cl-cffi-gtk-pango" ,sbcl-cl-cffi-gtk-pango) ("cl-cffi-gtk-pango" ,sbcl-cl-cffi-gtk-pango)
,@(package-inputs sbcl-cl-cffi-gtk-boot0))) ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
(arguments (arguments
`(#:asd-file "gdk/cl-cffi-gtk-gdk.asd" (substitute-keyword-arguments (package-arguments sbcl-cl-cffi-gtk-boot0)
#:phases ((#:asd-file _ "") "gdk/cl-cffi-gtk-gdk.asd")
(modify-phases %standard-phases ((#:phases phases)
(add-after 'unpack 'fix-paths `(modify-phases ,phases
(lambda* (#:key inputs #:allow-other-keys) (add-after 'install 'link-source
(substitute* "gdk/gdk.init.lisp" ;; Since source is particularly heavy (16MiB+), let's reuse it
(("libgdk" all) ;; across the different components of cl-ffi-gtk.
(string-append (lambda* (#:key inputs outputs #:allow-other-keys)
(assoc-ref inputs "gtk") "/lib/" all))) (let ((glib-source (string-append (assoc-ref inputs "cl-cffi-gtk-glib")
(substitute* "gdk/gdk.package.lisp" "/share/common-lisp/sbcl-source/"
(("libgtk" all) "cl-cffi-gtk-glib"))
(string-append (out-source (string-append (assoc-ref outputs "out")
(assoc-ref inputs "gtk") "/lib/" all))))) "/share/common-lisp/sbcl-source/"
(add-after 'install 'link-source "cl-cffi-gtk-gdk")))
;; Since source is particularly heavy (16MiB+), let's reuse it (delete-file-recursively out-source)
;; across the different components of cl-ffi-gtk. (symlink glib-source out-source)
(lambda* (#:key inputs outputs #:allow-other-keys) #t)))))))))
(let ((glib-source (string-append (assoc-ref inputs "cl-cffi-gtk-glib")
"/share/common-lisp/sbcl-source/"
"cl-cffi-gtk-glib"))
(out-source (string-append (assoc-ref outputs "out")
"/share/common-lisp/sbcl-source/"
"cl-cffi-gtk-gdk")))
(delete-file-recursively out-source)
(symlink glib-source out-source)
#t))))))))
(define-public sbcl-cl-cffi-gtk (define-public sbcl-cl-cffi-gtk
(package (package
@ -3122,26 +3110,27 @@ is a library for creating graphical user interfaces.")
(native-inputs (native-inputs
`(("fiveam" ,sbcl-fiveam))) `(("fiveam" ,sbcl-fiveam)))
(arguments (arguments
`(#:asd-file "gtk/cl-cffi-gtk.asd" (substitute-keyword-arguments (package-arguments sbcl-cl-cffi-gtk-boot0)
#:test-asd-file "test/cl-cffi-gtk-test.asd" ((#:asd-file _ "") "gtk/cl-cffi-gtk.asd")
((#:test-asd-file _ "") "test/cl-cffi-gtk-test.asd")
;; TODO: Tests fail with memory fault. ;; TODO: Tests fail with memory fault.
;; See https://github.com/Ferada/cl-cffi-gtk/issues/24. ;; See https://github.com/Ferada/cl-cffi-gtk/issues/24.
#:tests? #f ((#:tests? _ #f) #f)
#:phases ((#:phases phases)
(modify-phases %standard-phases `(modify-phases ,phases
(add-after 'install 'link-source (add-after 'install 'link-source
;; Since source is particularly heavy (16MiB+), let's reuse it ;; Since source is particularly heavy (16MiB+), let's reuse it
;; across the different components of cl-ffi-gtk. ;; across the different components of cl-ffi-gtk.
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((glib-source (string-append (assoc-ref inputs "cl-cffi-gtk-glib") (let ((glib-source (string-append (assoc-ref inputs "cl-cffi-gtk-glib")
"/share/common-lisp/sbcl-source/" "/share/common-lisp/sbcl-source/"
"cl-cffi-gtk-glib")) "cl-cffi-gtk-glib"))
(out-source (string-append (assoc-ref outputs "out") (out-source (string-append (assoc-ref outputs "out")
"/share/common-lisp/sbcl-source/" "/share/common-lisp/sbcl-source/"
"cl-cffi-gtk"))) "cl-cffi-gtk")))
(delete-file-recursively out-source) (delete-file-recursively out-source)
(symlink glib-source out-source) (symlink glib-source out-source)
#t)))))))) #t)))))))))
(define-public cl-cffi-gtk (define-public cl-cffi-gtk
(sbcl-package->cl-source-package sbcl-cl-cffi-gtk)) (sbcl-package->cl-source-package sbcl-cl-cffi-gtk))