Can't muffle COMPILE

[James M. Lawrence]

(handler-bind ((warning #'muffle-warning))
  (compile nil '(lambda () x)))

=>

; Caught STYLE-WARNING:
;   Undefined variable X assumed special


; Compilation unit finished
;   Caught 1 STYLE-WARNING condition


Also, you might want that to be more than a style-warning; it's a full
warning in other implementations.

Best,
lmj