Update compare_properties to handle affiliated keywords.

src/compare/compare_field.rs

@@ -431,6 +431,7 @@ pub(crate) fn compare_property_list_of_list_of_list_of_ast_nodes<
     emacs_field: &'x str,
     rust_value_getter: RG,
 ) -> Result<ComparePropertiesResult<'b, 's>, Box<dyn std::error::Error>> {
+    // TODO: Replace Object<'s> with generics. I hard-coded Object in to make lifetimes easier.
     let rust_value = rust_value_getter(rust_node);
     let value = get_property(emacs, emacs_field)?
         .map(Token::as_list)