Compare export type.

src/compare/diff.rs

@@ -1845,9 +1845,19 @@ fn compare_export_block<'b, 's>(
     let mut this_status = DiffStatus::Good;
     let mut message = None;
 
-    // TODO: Compare :type
     // TODO: Compare :caption
 
+    // Compare type
+    let export_type = get_property_quoted_string(emacs, ":type")?;
+    let rust_export_type = rust.get_export_type();
+    if export_type != rust_export_type {
+        this_status = DiffStatus::Bad;
+        message = Some(format!(
+            "Export type mismatch (emacs != rust) {:?} != {:?}",
+            export_type, rust.export_type
+        ));
+    }
+
     // Compare value
     let contents = get_property_quoted_string(emacs, ":value")?.unwrap_or(String::new());
     if contents != rust.contents {