(defvar larry-var '(larry hunter))

(defun last-name (name)
  (let ((name-length (length name))
	(first-name (firstest name))
	(last-name (firstest (last name))))
    (when (= name-length 3)
      (print "Has middle name!"))
    last-name))


(defun firstest (obj)
  (first obj))