-(use-package :gtk)
+(gtk:clg-init)
-(make-instance 'window
+(make-instance 'gtk:window
; :type :toplevel
:title "Test"
:border-width 5
- :show-all t
- :child (make-instance 'button
+ :visible t :show-children t
+ :child (make-instance 'gtk:button
:label "Hello World!"
:signal (list 'clicked
#'(lambda ()