+ #:irr-pointer
+ (irr_createDevice
+ device-type
+ window-size
+ bits
+ fullscreen
+ stencilbuffer
+ vsync
+ (irr-pointer receiver))))
+
+(define-method (set-window-caption! (device <irrlicht-device>) text)
+ (irr_IrrlichtDevice_setWindowCaption
+ (irr-pointer device)
+ text))