fixed harmless style-warnings

[cl-gtk2.git] / glib / gobject.package.lisp

diff --git a/glib/gobject.package.lisp b/glib/gobject.package.lisp
index de86f88..16b0c97 100644 (file)
--- a/glib/gobject.package.lisp
+++ b/glib/gobject.package.lisp
@@ -78,7 +78,6 @@
            #:g-initially-unowned
            #:define-g-enum
            #:*lisp-name-package*
-           #:define-g-boxed-class
            #:define-g-flags
            #:fixed-array
            #:g-boxed-inline
@@ -87,7 +86,6 @@
            #:release
            #:using
            #:using*
-           #:define-g-boxed-ref
            #:g-boxed-ref
            #:allocate-stable-pointer
            #:free-stable-pointer
@@ -187,7 +185,8 @@
            #:define-g-boxed-variant-cstruct
            #:g-boxed-foreign
            #:boxed-related-symbols
-           #:define-boxed-opaque-accessor)
+           #:define-boxed-opaque-accessor
+           #:glib-defcallback)
   (:documentation
    "CL-GTK2-GOBJECT is a binding to GObject type system.
 For information on GObject, see its @a[http://library.gnome.org/devel/gobject/stable/]{documentation}.
@@ -243,6 +242,6 @@ GObject uses GValues as a generic way to pass values. It is used when calling cl
 
 (defvar *gobject-debug* nil)
 
-(defun debugf (&rest args)
+(defmacro debugf (&rest args)
   (when *gobject-debug*
     (apply 'format t args)))
\ No newline at end of file