Started on some type definitions

lisp-libvirt.lisp

@@ -9,3 +9,37 @@
   (t (:default "libvirt")))
 
 (use-foreign-library libvirt)
+
+(defcenum virtual-connect-close-reason
+  (:error 0)
+  (:eof 1)
+  (:keepalive 2)
+  (:client 3)
+  (:last 4))
+
+(defcunion virtual-typed-parameter-union
+  (int :int)
+  (unsigned-int :unsigned-int)
+  (long-long-int :long-long)
+  (unsigned-long-long-int :unsigned-long-long)
+  (double :double)
+  (boolean :char)
+  (string :string))
+
+(defcstruct virtual-typed-parameter
+  (field :string)
+  (type :int)
+  (value virtual-typed-parameter-union))
+
+(defcenum virtual-typed-parameter-flags
+  (:okay 4))
+
+(defcenum virtual-typed-parameter-type
+  (:int 1)
+  (:uint 2)
+  (:llong 3)
+  (:ullong 4)
+  (:double 5)
+  (:boolean 6)
+  (:string 7)
+  (:last 8))