#:g-idle-add
#:g-timeout-add-full
#:g-source-remove
- #:at-finalize)
+ #:at-finalize
+ #:with-g-error
+ #:with-catching-to-g-error
+ #:g-error-condition
+ #:g-error-condition-domain
+ #:g-error-condition-code
+ #:g-error-condition-message)
(:documentation
"Cl-gtk2-glib is wrapper for @a[http://library.gnome.org/devel/glib/]{GLib}."))
#+sbcl
(pushnew 'run-initializers sb-ext:*init-hooks*)
+#+openmcl
+(pushnew 'run-initializers ccl:*restore-lisp-functions*)
#+sbcl
(pushnew 'run-finalizers sb-ext:*save-hooks*)
+#+openmcl
+(pushnew 'run-finalizers ccl:*save-exit-functions*)
(defmacro at-init ((&rest keys) &body body)
"
(eval-when (:compile-toplevel :load-toplevel :execute)
(define-foreign-library glib
(:unix (:or "libglib-2.0.so.0" "libglib-2.0.so"))
- (:win32 "libglib-2.0-0.dll")
+ (:windows "libglib-2.0-0.dll")
(t (:default "libglib-2.0"))))
(use-foreign-library glib)
(eval-when (:compile-toplevel :load-toplevel :execute)
(define-foreign-library gthread
(:unix (:or "libgthread-2.0.so.0" "libgthread-2.0.so"))
- (:win32 "libgthread-2.0-0.dll")
+ (:windows "libgthread-2.0-0.dll")
(t "libgthread-2.0")))
(use-foreign-library gthread)