(* Some type variables are unbound in this type:
	  class base_user :
	    object
	      val changes : change_log
	      val mutable code : string
	      val mutable first_name : string
	      val mutable id : int
	      val mutable last_name : string
	      val mutable password : string
	      val mutable version : int
	      method after_insert : unit
	      method after_update : unit
	      method before_insert : unit
	      method before_update : unit
	      method changes : change_log
	      method code : string
	      method fill_from_result :
	        < getvalue : int -> int -> string; .. > -> unit
	      method first_name : string
	      method id : int
	      method last_name : string
	      method password : string
	      method save : string
	      method set_code : string -> unit
	      method set_first_name : string -> unit
	      method set_id : int -> unit
	      method set_last_name : string -> unit
	      method set_password : string -> unit
	      method set_version : int -> unit
	      method version : int
	    end
	The method fill_from_result has type
	  (< getvalue : int -> int -> string; .. > as 'a) -> unit
	where 'a is unbound *)

	method fill_from_result res =
		self#set_id (int_of_string (res#getvalue 0 0)) ;
		self#set_code (res#getvalue 0 1) ;
		self#set_password (res#getvalue 0 2) ;
		self#set_first_name (res#getvalue 0 3) ;
		self#set_last_name (res#getvalue 0 4) ;
		self#set_version (int_of_string (res#getvalue 0 5))