(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 -- "A screaming comes across the sky. It has happened before, but there is nothing to compare to it now."
participants (2)
-
James M. Lawrence -
Mark Evenson