Fix warnings for bare struct references in gdk/.

[cl-gtk2.git] / gdk / gdk.visual.lisp

diff --git a/gdk/gdk.visual.lisp b/gdk/gdk.visual.lisp
index 1579539..1bfca89 100644 (file)
--- a/gdk/gdk.visual.lisp
+++ b/gdk/gdk.visual.lisp
@@ -44,6 +44,7 @@
   (blue-mask :uint32)
   (blue-shift :int)
   (blue-prec :int))
+(defctype gdk-visual-cstruct (:struct gdk-visual-cstruct))
 
 (defmacro def-visual-accessor (slot)
   `(defun ,(intern (format nil "~A-GET-~A" (symbol-name 'gdk-visual) (symbol-name slot))) (visual)