X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=glib%2Fgobject.object.high.lisp;h=a7b4451138d7054770a02f09150b284df70b0d63;hb=8db173e3df82074b8ca96d00304c4e63b499f598;hp=f786ebd409a6e49948283cb96b60d5f445ef0783;hpb=9d8110d790ec81c31350e06cbde0678e17690d41;p=cl-gtk2.git

diff --git a/glib/gobject.object.high.lisp b/glib/gobject.object.high.lisp
index f786ebd..a7b4451 100644
--- a/glib/gobject.object.high.lisp
+++ b/glib/gobject.object.high.lisp
@@ -69,7 +69,8 @@
     (error (e) (format t "Error in dispose: ~A~%" e))))
 
 (defcallback weak-notify-print :void ((data :pointer) (object-pointer :pointer))
-  (declare (ignore data))
+  (declare (ignore data)
+           (ignorable object-pointer))
   (debugf "g-object has finalized ~A ~A~%" (g-type-name (g-type-from-object object-pointer)) object-pointer))
 
 (defun erase-pointer (data object-pointer)