;3-1.lisp a guide to style

(egs :3.1
     (eg '(defvar *names* '((Robert E. Lee)(Ulysses S. Grant)))
           :of "being specific when naming variables"
           :out '*NAMES*)
     (eg '(defun last-name (name)
           (last name))
         :of "creating a specific function to access names rather
              than evaluating caddar *names*"
         :out 'LAST-NAME)
     (eg '(last-name(first *names*))
         :of "using the last-name function"
         :out '(LEE))
     (eg '(last-name(second *names*))
         :of "last-name again"
         :out '(GRANT))
     )