(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
On 2015/9/5 21:05, James M. Lawrence wrote:
(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.
Noted as [ticket][398].
Indeed annoying…
[398]: http://abcl.org/trac/ticket/398
armedbear-devel@common-lisp.net
-
James M. Lawrence -
Mark Evenson