Function: Given two strings (string1 and string2), and optional integers start1, start2, end1 and end2, compares characters in string1 to characters in string2 (using char-equal).
Example:
(defunname-element (name)
"Get an element from its name"
(find-element-if
(lambda (element)
(string-equal (element-name element) name))))