(define this-looks-the-best_To-Me true)

  (if this-looks-the-best_To-Me
      (do
        (setq you-like-flexibility true)
        (vote-poll :lisp-formatting)))

If you follow the normal Lisp pattern of mostly one case and '-' for separation, allowed because Lisps/s-expressions allow the use of the normally reserved '-', I think you get the clearest code. See Clojure for a Lisp that breaks up the sea of Lots of Irritating Sets of Parenthesis if that bothers you.