Написать програму на lisp

Определить функцию GENERATION-GAP, которая возвращает количество поколений между предком и потомком в генеалогическом дереве.
FAMILY: (setf family '((colin nil nil) (deirdre nil nil) (arthur nil nil) (kate nil nil) (frank nil nil) (linda nil nil) (suzanne colin deirdre) (bruce arthur kate) (charles arthur kate) (david arthur kate) (ellen arthur kate) (george frank linda) (hillary frank linda) (andre nil nil) (tamara bruce suzanne) (vincent bruce suzanne) (wanda nil nil) (ivan george ellen) (julie george ellen) (marie george ellen) (nigel andre hillary) (frederick nil tamara) (zelda vincent wanda) (joshua ivan wanda) (quentin nil nil) (robert quentin julie) (olivia nigel marie) (peter nigel marie) (erica nil nil) (yvette robert zelda) (diane peter erica)))