CL-USER> (print (get-person-by-name 'judy))

Judy's in the bedroom inventing situations
CL-USER> (print (get-person-by-name 'bob))

Bob's on the streets scouting out locations