(irr-class #:init-value "SKeyMap"))
(export <key-map>)
+
+
+;; ITimer
+(define-class <timer> (<reference-counted>)
+ (irr-class #:init-value "ITimer"))
+
+(define-method (get-time (timer <timer>))
+ (let ((getTime (get-irrlicht-proc "getTime" timer)))
+ (getTime timer)))
+
+(export <timer> get-time)