+(define-method (get-cursor-control (device <irrlicht-device>))
+ (let ((getCursorControl (get-irrlicht-proc "getCursorControl" device)))
+ (make <cursor-control>
+ #:irr-pointer (getCursorControl device))))
+
+(define-method (get-file-system (device <irrlicht-device>))
+ (let ((getFileSystem (get-irrlicht-proc "getFileSystem" device)))
+ (make <file-system>
+ #:irr-pointer (getFileSystem device))))
+