+(define-public sbcl-mcclim-test-util
+ (package
+ (inherit sbcl-clim-lisp)
+ (name "sbcl-mcclim-test-util")
+ (inputs
+ `(("fiveam" ,sbcl-fiveam)
+ ("mcclim" ,sbcl-mcclim)
+ ("swank" ,cl-slime-swank))) ; For drei-mcclim
+ (arguments
+ '(#:asd-file "mcclim.asd"
+ #:asd-system-name "mcclim/test-util"))))
+
+(define-public sbcl-mcclim-raster-image
+ (package
+ (inherit sbcl-clim-lisp)
+ (name "sbcl-mcclim-raster-image")
+ (native-inputs
+ `(("fiveam" ,sbcl-fiveam)
+ ("mcclim-test-util" ,sbcl-mcclim-test-util)))
+ (inputs
+ `(("clim-basic" ,sbcl-clim-basic)
+ ("mcclim-backend-common" ,sbcl-mcclim-backend-common)
+ ("mcclim-render" ,sbcl-mcclim-render)
+ ("swank" ,cl-slime-swank))) ; For drei-mcclim
+ (arguments
+ '(#:asd-file "Backends/RasterImage/mcclim-raster-image.asd"
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'fix-asd-system-names
+ (lambda _
+ (substitute* "Backends/RasterImage/mcclim-raster-image.asd"
+ (("mcclim/test-util")
+ "mcclim-test-util"))
+ #t)))))))
+
+(define-public sbcl-clim-examples
+ (package
+ (inherit sbcl-clim-lisp)
+ (name "sbcl-clim-examples")
+ (inputs
+ `(("alexandria" ,sbcl-alexandria)
+ ("closer-mop" ,sbcl-closer-mop)
+ ("mcclim" ,sbcl-mcclim)
+ ("mcclim-bezier" ,sbcl-mcclim-bezier)
+ ("mcclim-layouts-tab" ,sbcl-mcclim-layouts-tab)
+ ("mcclim-raster-image" ,sbcl-mcclim-raster-image)
+ ("swank" ,cl-slime-swank))) ; For drei-mcclim
+ (arguments
+ '(#:asd-file "Examples/clim-examples.asd"
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'fix-asd-system-names
+ (lambda _
+ (substitute* "Examples/clim-examples.asd"
+ (("mcclim-layouts/tab")
+ "mcclim-layouts-tab"))
+ #t)))))))
+