- (loop for field in (-sort 'string-lessp (mapcar 'car metadata))
- collect
- (format " %s={%s}," field (cdr (assoc field metadata))))
+ (cl-loop for field in (-sort 'string-lessp (mapcar 'car metadata))
+ collect
+ (format " %s={%s}," field (cdr (assoc field metadata))))