+
+
+;; Version information
+
+(defbinding %version () int)
+
+(defun version ()
+ (let ((version (%version)))
+ (values
+ (mod (truncate version 10000) 100)
+ (mod (truncate version 100) 100)
+ (mod version 100))))
+
+(defbinding version-string () (static string))