+(define-method (yield-device (device <irrlicht-device>))
+ (let ((yield (get-irrlicht-proc "yield" device)))
+ (yield device)))
+
+(export create-device get-cursor-control get-file-system get-gui-environment get-scene-manager
+ get-video-driver is-window-active? run set-window-caption! yield-device)