(handler-case
    (compile nil
             '(lambda (x) (+ (reduce '+ x) x)))
  (warning (w) (format t "~a" w)))