anchor.diff:     (id :accessor win32-window-id)))
   
   #+(or win32 windows)
  -(defstruct (win32-video-mode (:include video-mode)))
  +(defstruct (win32-video-mode (:include video-mode))
  +  (rate 0 :type integer))
   
   #+(and unix (not darwin))
   (defclass x11-window ()
  
positive.code: (defstruct video-mode
    (width 0 :type integer)
    (height 0 :type integer)
    (depth 0 :type integer)
    (rate 0 :type double-float))
  
  ;; platform specific windows
  ;; XXX: this may move to platform specific directories
  
negative.code: 
  #+(and unix (not darwin))
  (defstruct (x11-video-mode (:include video-mode))
    (rate 0 :type integer)
    (index -1 :type integer))
  
  #+darwin
  