pretty printing lisp forms

[Joe Corneli]

I found the function cl-prettyprint, but it doesn't seem to be
as actively inserting new lines and tabs as I'd like.  Contrast

;; cl-prettyprint

(((classes AI (PL assignment-one read-papers) KRR)
  (projects logic FEM HDM (hacking-emacs todl-mode tex-mode) Inform)
  (appointments thursday-at-5:45 friday-at-7)))

;; my version

(((classes AI
           (PL assignment-one
               read-papers)
           KRR)
  (projects logic
            FEM
            HDM
            (hacking-emacs todl-mode
                           tex-mode)
            Inform)
  (appointments thursday-at-5:45
                friday-at-7)))

Are there any more flexible routines out there for pretty printing?