"Pettype: " (cdr (assq 'pettype pet)) "\n"
"From: " (cdr (assq 'from pet)) "\n"
"CarryingCount: " (int-to-string (cdr (assq 'carryingcount pet))) "\n"
- "SentYaer: " (int-to-string (cdr (assq 'sentyear pet))) "\n"
+ "SentYear: " (int-to-string (cdr (assq 'sentyear pet))) "\n"
"SentMonth: " (int-to-string (cdr (assq 'sentmonth pet))) "\n"
- "Sentday: " (int-to-string (cdr (assq 'sentday pet))) "\n"
+ "SentDay: " (int-to-string (cdr (assq 'sentday pet))) "\n"
"PetbirthYear: " (int-to-string (cdr (assq 'petbirthyear pet))) "\n"
"PetbirthMonth: " (int-to-string (cdr (assq 'petbirthmonth pet))) "\n"
"PetbirthDay: " (int-to-string (cdr (assq 'petbirthday pet))) "\n"