Tweak formatter

[DavePearce]

The general feeling is that the format command breaks lines to easily. It would be better if it preferred to print and print things as one line, and only breaks lines when it needs to.

For example, this should be preferred (since it fits on one line):

(defun (wierd) (if P (eq X 1) (eq X 2)))

Over this (which is what is currently produced):

(defun (wierd)
  (if P
      (eq X 1)
      (eq X 2)))

[DavePearce]

Other examples:

(+ (* (^ 256 (- X 0))
                          (shift [L 0] Y))

should be

(+ (* (^ 256 (- X 0)) (shift [L 0] Y))