(dolist (p '(family friends classmates colleagues friends))
  (push p *people*))

(setf life (reduce #'know *people*))