Lisp warnings in Maxima sessions



Hi,

Is there anyway to disable lisp warnings in Maxima sessions? For example 
with SBCL:

; in: LAMBDA NIL;     (LET* ((MAXIMA::FILENAME (MAXIMA::WXPLOT-FILENAME 
NIL));          (MAXIMA::*WINDOWS-OS* T);          (MAXIMA::ARGS (CONS 
`(# MAXIMA::$TITLE ,#) MAXIMA::ARGS));          (MAXIMA::ARGS (CONS 
'(MAXIMA::$GR2D) (MAPCAR #'# MAXIMA::ARGS))));     (SETQ 
MAXIMA::IMAGES;             (CONS (FORMAT NIL "~a.png" MAXIMA::FILENAME) 
MAXIMA::IMAGES));     (MAXIMA::$APPLY 
'MAXIMA::$DRAW;                     (APPEND;                      
`((MAXIMA::MLIST MAXIMA::SIMP);                        (# 
MAXIMA::$TERMINAL MAXIMA::$PNG);                        (# 
MAXIMA::$PIC_WIDTH ,#) (# MAXIMA::$PIC_HEIGHT 
,#);                        (# MAXIMA::$FILE_NAME 
,MAXIMA::FILENAME));                      (LIST MAXIMA::ARGS)))); ; 
caught STYLE-WARNING:;   using the lexical binding of the symbol 
*WINDOWS-OS*, not the;   dynamic binding, even though the symbol name 
follows the usual naming;   convention (names like *FOO*) for special 
variables; ; caught STYLE-WARNING:;   The variable *WINDOWS-OS* is 
defined but never used.; in: LAMBDA NIL;     (LET* ((MAXIMA::FILENAME 
(MAXIMA::WXPLOT-FILENAME NIL));          (MAXIMA::*WINDOWS-OS* 
T);          (MAXIMA::ARGS (CONS `(# MAXIMA::$TITLE ,#) 
MAXIMA::ARGS));          (MAXIMA::ARGS (CONS '(MAXIMA::$GR3D) (MAPCAR 
#'# MAXIMA::ARGS))));     (SETQ MAXIMA::IMAGES;             (CONS 
(FORMAT NIL "~a.png" MAXIMA::FILENAME) MAXIMA::IMAGES));     
(MAXIMA::$APPLY 'MAXIMA::$DRAW

....etc.... Lots of stuff.  If one works with wxmaxima, for example, 
then printing will waste a lot of paper since it prints out everything.

Jussi Eloranta
Cal State Northridge