From an exercise in the second chapter of PAIP. This takes a list of words and prints them in a list, with the first one capitalized.

[code lang=text]
(defun print-words (wordlist)
(format t "~&~@(~A~) " (car wordlist))
(format t "~{ ~A~}." (cdr wordlist)))
[/code]

The list of format directives are large and varied indeed!