-+  Style Warnings (9)
 |-- using deprecated EVAL-WHEN situation names EVAL LOAD COMPILE
 |-- using deprecated EVAL-WHEN situation names LOAD EVAL
 |-- --> MACROEXPAND-1 CLM::RUN-1 PROGN CLM::<END-2> LET MULTIPLE-VALUE-BIND 
 |   --> MULTIPLE-VALUE-CALL 
 |   ==>
 |     #'(LAMBDA
 |           (&OPTIONAL (CLM::*CLM-DATAI-LEN*) (CLM::*CLM-DATAR-LEN*) &REST #:G208)
 |         (DECLARE (IGNORE #:G208))
 |         (LET ((CLM::*CLM-BEG* (FLOOR #))
 |               (CLM::*CLM-END* (AND # #))
 |               (CLM::*CLM-DATAI*
 |                (MAKE-INTEGER-ARRAY CLM::*CLM-DATAI-LEN* :INITIAL-ELEMENT 0))
 |               (CLM::*CLM-DATAR* (MAKE-DOUBLE-ARRAY CLM::*CLM-DATAR-LEN*)))
 |           (CLM::LOAD-VARS 15 4
 |                           '((*OUTPUT* 11 3 NIL) (CLM::OSCILLATOR 9 2 NIL)
 |                             (CLM::AMPLITUDE 7 1 NIL))
 |                           CLM::VARDATA CLM::*CLM-DATAI* CLM::*CLM-DATAR*)
 |           (CLM::TO-BIGNUM CLM::*CLM-BEG* CLM::*CLM-DATAI* CLM::+CLM-BEG+)
 |           (CLM::TO-BIGNUM (OR CLM::*CLM-END* 0) CLM::*CLM-DATAI* CLM::+CLM-END+)
 |           (IF (AND CLM::END-SAMPLE (< CLM::*CLM-END* CLM::*CLM-BEG*))
 |               (WARN "end time < begin time: ~A from ~A to ~A?" 'CLM::SINE
 |                     CLM::*CLM-BEG* CLM::*CLM-END*))
 |           (IF *CLM-DEBUG*
 |               (PRINT
 |                (FORMAT NIL "(~A ~A~%  ~A~%  ~A ~A ~A)" 'CLM::|clm_sine11|
 |                        CLM::*CLM-BEG* CLM::*CLM-END* CLM::*CLM-DATAR*
 |                        CLM::*CLM-DATAI* CLM::*CLM-DATAR-LEN*)))
 |           (SETF (GET *CLM-INS* :DATAI) CLM::*CLM-DATAI*)
 |           (SETF (GET *CLM-INS* :DATAR) CLM::*CLM-DATAR*)
 |           (SETF CLM-LAST-BEGIN-TIME (MAX CLM-LAST-BEGIN-TIME CLM::*CLM-BEG*))
 |           (PROGN (TAGBODY (RESTART-CASE # #) CLM::NOTE-ALL-DONE))
 |           (IF (NOT (ZEROP #))
 |               (FORMAT T "interrupted: ~A"
 |                       (AREF CLM::*CLM-DATAI* CLM::+CLM-INTERRUPTED+)))))
 |   using the lexical binding of the symbol *CLM-DATAI-LEN*, not the
 |   dynamic binding, even though the symbol name follows the usual naming
 |   convention (names like *FOO*) for special variables
 |-- --> MACROEXPAND-1 CLM::RUN-1 PROGN CLM::<END-2> LET MULTIPLE-VALUE-BIND 
 |   --> MULTIPLE-VALUE-CALL 
 |   ==>
 |     #'(LAMBDA
 |           (&OPTIONAL (CLM::*CLM-DATAI-LEN*) (CLM::*CLM-DATAR-LEN*) &REST #:G208)
 |         (DECLARE (IGNORE #:G208))
 |         (LET ((CLM::*CLM-BEG* (FLOOR #))
 |               (CLM::*CLM-END* (AND # #))
 |               (CLM::*CLM-DATAI*
 |                (MAKE-INTEGER-ARRAY CLM::*CLM-DATAI-LEN* :INITIAL-ELEMENT 0))
 |               (CLM::*CLM-DATAR* (MAKE-DOUBLE-ARRAY CLM::*CLM-DATAR-LEN*)))
 |           (CLM::LOAD-VARS 15 4
 |                           '((*OUTPUT* 11 3 NIL) (CLM::OSCILLATOR 9 2 NIL)
 |                             (CLM::AMPLITUDE 7 1 NIL))
 |                           CLM::VARDATA CLM::*CLM-DATAI* CLM::*CLM-DATAR*)
 |           (CLM::TO-BIGNUM CLM::*CLM-BEG* CLM::*CLM-DATAI* CLM::+CLM-BEG+)
 |           (CLM::TO-BIGNUM (OR CLM::*CLM-END* 0) CLM::*CLM-DATAI* CLM::+CLM-END+)
 |           (IF (AND CLM::END-SAMPLE (< CLM::*CLM-END* CLM::*CLM-BEG*))
 |               (WARN "end time < begin time: ~A from ~A to ~A?" 'CLM::SINE
 |                     CLM::*CLM-BEG* CLM::*CLM-END*))
 |           (IF *CLM-DEBUG*
 |               (PRINT
 |                (FORMAT NIL "(~A ~A~%  ~A~%  ~A ~A ~A)" 'CLM::|clm_sine11|
 |                        CLM::*CLM-BEG* CLM::*CLM-END* CLM::*CLM-DATAR*
 |                        CLM::*CLM-DATAI* CLM::*CLM-DATAR-LEN*)))
 |           (SETF (GET *CLM-INS* :DATAI) CLM::*CLM-DATAI*)
 |           (SETF (GET *CLM-INS* :DATAR) CLM::*CLM-DATAR*)
 |           (SETF CLM-LAST-BEGIN-TIME (MAX CLM-LAST-BEGIN-TIME CLM::*CLM-BEG*))
 |           (PROGN (TAGBODY (RESTART-CASE # #) CLM::NOTE-ALL-DONE))
 |           (IF (NOT (ZEROP #))
 |               (FORMAT T "interrupted: ~A"
 |                       (AREF CLM::*CLM-DATAI* CLM::+CLM-INTERRUPTED+)))))
 |   using the lexical binding of the symbol *CLM-DATAR-LEN*, not the
 |   dynamic binding, even though the symbol name follows the usual naming
 |   convention (names like *FOO*) for special variables
 |-- --> MACROEXPAND-1 CLM::RUN-1 PROGN CLM::<END-2> LET MULTIPLE-VALUE-BIND 
 |   --> MULTIPLE-VALUE-CALL FUNCTION 
 |   ==>
 |     (LET ((CLM::*CLM-BEG* (FLOOR (+ CLM::START-SAMPLE CLM::*OFFSET*)))
 |           (CLM::*CLM-END* (AND (NUMBERP CLM::END-SAMPLE) (FLOOR #)))
 |           (CLM::*CLM-DATAI*
 |            (MAKE-INTEGER-ARRAY CLM::*CLM-DATAI-LEN* :INITIAL-ELEMENT 0))
 |           (CLM::*CLM-DATAR* (MAKE-DOUBLE-ARRAY CLM::*CLM-DATAR-LEN*)))
 |       (CLM::LOAD-VARS 15 4
 |                       '((*OUTPUT* 11 3 NIL) (CLM::OSCILLATOR 9 2 NIL)
 |                         (CLM::AMPLITUDE 7 1 NIL))
 |                       CLM::VARDATA CLM::*CLM-DATAI* CLM::*CLM-DATAR*)
 |       (CLM::TO-BIGNUM CLM::*CLM-BEG* CLM::*CLM-DATAI* CLM::+CLM-BEG+)
 |       (CLM::TO-BIGNUM (OR CLM::*CLM-END* 0) CLM::*CLM-DATAI* CLM::+CLM-END+)
 |       (IF (AND CLM::END-SAMPLE (< CLM::*CLM-END* CLM::*CLM-BEG*))
 |           (WARN "end time < begin time: ~A from ~A to ~A?" 'CLM::SINE
 |                 CLM::*CLM-BEG* CLM::*CLM-END*))
 |       (IF *CLM-DEBUG*
 |           (PRINT
 |            (FORMAT NIL "(~A ~A~%  ~A~%  ~A ~A ~A)" 'CLM::|clm_sine11|
 |                    CLM::*CLM-BEG* CLM::*CLM-END* CLM::*CLM-DATAR*
 |                    CLM::*CLM-DATAI* CLM::*CLM-DATAR-LEN*)))
 |       (SETF (GET *CLM-INS* :DATAI) CLM::*CLM-DATAI*)
 |       (SETF (GET *CLM-INS* :DATAR) CLM::*CLM-DATAR*)
 |       (SETF CLM-LAST-BEGIN-TIME (MAX CLM-LAST-BEGIN-TIME CLM::*CLM-BEG*))
 |       (PROGN
 |        (TAGBODY
 |          (RESTART-CASE
 |           (CLM::|clm_sine11| CLM::*CLM-DATAR* CLM::*CLM-DATAR-LEN*
 |            CLM::*CLM-DATAI* CLM::*CLM-DATAI-LEN*)
 |           (NIL NIL :REPORT "try to exit current note cleanly and go on." #))
 |         CLM::NOTE-ALL-DONE))
 |       (IF (NOT (ZEROP (AREF CLM::*CLM-DATAI* CLM::+CLM-INTERRUPTED+)))
 |           (FORMAT T "interrupted: ~A"
 |                   (AREF CLM::*CLM-DATAI* CLM::+CLM-INTERRUPTED+))))
 |   using the lexical binding of the symbol *CLM-BEG*, not the
 |   dynamic binding, even though the symbol name follows the usual naming
 |   convention (names like *FOO*) for special variables
 |-- --> MACROEXPAND-1 CLM::RUN-1 PROGN CLM::<END-2> LET MULTIPLE-VALUE-BIND 
 |   --> MULTIPLE-VALUE-CALL FUNCTION 
 |   ==>
 |     (LET ((CLM::*CLM-BEG* (FLOOR (+ CLM::START-SAMPLE CLM::*OFFSET*)))
 |           (CLM::*CLM-END* (AND (NUMBERP CLM::END-SAMPLE) (FLOOR #)))
 |           (CLM::*CLM-DATAI*
 |            (MAKE-INTEGER-ARRAY CLM::*CLM-DATAI-LEN* :INITIAL-ELEMENT 0))
 |           (CLM::*CLM-DATAR* (MAKE-DOUBLE-ARRAY CLM::*CLM-DATAR-LEN*)))
 |       (CLM::LOAD-VARS 15 4
 |                       '((*OUTPUT* 11 3 NIL) (CLM::OSCILLATOR 9 2 NIL)
 |                         (CLM::AMPLITUDE 7 1 NIL))
 |                       CLM::VARDATA CLM::*CLM-DATAI* CLM::*CLM-DATAR*)
 |       (CLM::TO-BIGNUM CLM::*CLM-BEG* CLM::*CLM-DATAI* CLM::+CLM-BEG+)
 |       (CLM::TO-BIGNUM (OR CLM::*CLM-END* 0) CLM::*CLM-DATAI* CLM::+CLM-END+)
 |       (IF (AND CLM::END-SAMPLE (< CLM::*CLM-END* CLM::*CLM-BEG*))
 |           (WARN "end time < begin time: ~A from ~A to ~A?" 'CLM::SINE
 |                 CLM::*CLM-BEG* CLM::*CLM-END*))
 |       (IF *CLM-DEBUG*
 |           (PRINT
 |            (FORMAT NIL "(~A ~A~%  ~A~%  ~A ~A ~A)" 'CLM::|clm_sine11|
 |                    CLM::*CLM-BEG* CLM::*CLM-END* CLM::*CLM-DATAR*
 |                    CLM::*CLM-DATAI* CLM::*CLM-DATAR-LEN*)))
 |       (SETF (GET *CLM-INS* :DATAI) CLM::*CLM-DATAI*)
 |       (SETF (GET *CLM-INS* :DATAR) CLM::*CLM-DATAR*)
 |       (SETF CLM-LAST-BEGIN-TIME (MAX CLM-LAST-BEGIN-TIME CLM::*CLM-BEG*))
 |       (PROGN
 |        (TAGBODY
 |          (RESTART-CASE
 |           (CLM::|clm_sine11| CLM::*CLM-DATAR* CLM::*CLM-DATAR-LEN*
 |            CLM::*CLM-DATAI* CLM::*CLM-DATAI-LEN*)
 |           (NIL NIL :REPORT "try to exit current note cleanly and go on." #))
 |         CLM::NOTE-ALL-DONE))
 |       (IF (NOT (ZEROP (AREF CLM::*CLM-DATAI* CLM::+CLM-INTERRUPTED+)))
 |           (FORMAT T "interrupted: ~A"
 |                   (AREF CLM::*CLM-DATAI* CLM::+CLM-INTERRUPTED+))))
 |   using the lexical binding of the symbol *CLM-END*, not the
 |   dynamic binding, even though the symbol name follows the usual naming
 |   convention (names like *FOO*) for special variables
 |-- --> MACROEXPAND-1 CLM::RUN-1 PROGN CLM::<END-2> LET MULTIPLE-VALUE-BIND 
 |   --> MULTIPLE-VALUE-CALL FUNCTION 
 |   ==>
 |     (LET ((CLM::*CLM-BEG* (FLOOR (+ CLM::START-SAMPLE CLM::*OFFSET*)))
 |           (CLM::*CLM-END* (AND (NUMBERP CLM::END-SAMPLE) (FLOOR #)))
 |           (CLM::*CLM-DATAI*
 |            (MAKE-INTEGER-ARRAY CLM::*CLM-DATAI-LEN* :INITIAL-ELEMENT 0))
 |           (CLM::*CLM-DATAR* (MAKE-DOUBLE-ARRAY CLM::*CLM-DATAR-LEN*)))
 |       (CLM::LOAD-VARS 15 4
 |                       '((*OUTPUT* 11 3 NIL) (CLM::OSCILLATOR 9 2 NIL)
 |                         (CLM::AMPLITUDE 7 1 NIL))
 |                       CLM::VARDATA CLM::*CLM-DATAI* CLM::*CLM-DATAR*)
 |       (CLM::TO-BIGNUM CLM::*CLM-BEG* CLM::*CLM-DATAI* CLM::+CLM-BEG+)
 |       (CLM::TO-BIGNUM (OR CLM::*CLM-END* 0) CLM::*CLM-DATAI* CLM::+CLM-END+)
 |       (IF (AND CLM::END-SAMPLE (< CLM::*CLM-END* CLM::*CLM-BEG*))
 |           (WARN "end time < begin time: ~A from ~A to ~A?" 'CLM::SINE
 |                 CLM::*CLM-BEG* CLM::*CLM-END*))
 |       (IF *CLM-DEBUG*
 |           (PRINT
 |            (FORMAT NIL "(~A ~A~%  ~A~%  ~A ~A ~A)" 'CLM::|clm_sine11|
 |                    CLM::*CLM-BEG* CLM::*CLM-END* CLM::*CLM-DATAR*
 |                    CLM::*CLM-DATAI* CLM::*CLM-DATAR-LEN*)))
 |       (SETF (GET *CLM-INS* :DATAI) CLM::*CLM-DATAI*)
 |       (SETF (GET *CLM-INS* :DATAR) CLM::*CLM-DATAR*)
 |       (SETF CLM-LAST-BEGIN-TIME (MAX CLM-LAST-BEGIN-TIME CLM::*CLM-BEG*))
 |       (PROGN
 |        (TAGBODY
 |          (RESTART-CASE
 |           (CLM::|clm_sine11| CLM::*CLM-DATAR* CLM::*CLM-DATAR-LEN*
 |            CLM::*CLM-DATAI* CLM::*CLM-DATAI-LEN*)
 |           (NIL NIL :REPORT "try to exit current note cleanly and go on." #))
 |         CLM::NOTE-ALL-DONE))
 |       (IF (NOT (ZEROP (AREF CLM::*CLM-DATAI* CLM::+CLM-INTERRUPTED+)))
 |           (FORMAT T "interrupted: ~A"
 |                   (AREF CLM::*CLM-DATAI* CLM::+CLM-INTERRUPTED+))))
 |   using the lexical binding of the symbol *CLM-DATAI*, not the
 |   dynamic binding, even though the symbol name follows the usual naming
 |   convention (names like *FOO*) for special variables
 |-- --> MACROEXPAND-1 CLM::RUN-1 PROGN CLM::<END-2> LET MULTIPLE-VALUE-BIND 
 |   --> MULTIPLE-VALUE-CALL FUNCTION 
 |   ==>
 |     (LET ((CLM::*CLM-BEG* (FLOOR (+ CLM::START-SAMPLE CLM::*OFFSET*)))
 |           (CLM::*CLM-END* (AND (NUMBERP CLM::END-SAMPLE) (FLOOR #)))
 |           (CLM::*CLM-DATAI*
 |            (MAKE-INTEGER-ARRAY CLM::*CLM-DATAI-LEN* :INITIAL-ELEMENT 0))
 |           (CLM::*CLM-DATAR* (MAKE-DOUBLE-ARRAY CLM::*CLM-DATAR-LEN*)))
 |       (CLM::LOAD-VARS 15 4
 |                       '((*OUTPUT* 11 3 NIL) (CLM::OSCILLATOR 9 2 NIL)
 |                         (CLM::AMPLITUDE 7 1 NIL))
 |                       CLM::VARDATA CLM::*CLM-DATAI* CLM::*CLM-DATAR*)
 |       (CLM::TO-BIGNUM CLM::*CLM-BEG* CLM::*CLM-DATAI* CLM::+CLM-BEG+)
 |       (CLM::TO-BIGNUM (OR CLM::*CLM-END* 0) CLM::*CLM-DATAI* CLM::+CLM-END+)
 |       (IF (AND CLM::END-SAMPLE (< CLM::*CLM-END* CLM::*CLM-BEG*))
 |           (WARN "end time < begin time: ~A from ~A to ~A?" 'CLM::SINE
 |                 CLM::*CLM-BEG* CLM::*CLM-END*))
 |       (IF *CLM-DEBUG*
 |           (PRINT
 |            (FORMAT NIL "(~A ~A~%  ~A~%  ~A ~A ~A)" 'CLM::|clm_sine11|
 |                    CLM::*CLM-BEG* CLM::*CLM-END* CLM::*CLM-DATAR*
 |                    CLM::*CLM-DATAI* CLM::*CLM-DATAR-LEN*)))
 |       (SETF (GET *CLM-INS* :DATAI) CLM::*CLM-DATAI*)
 |       (SETF (GET *CLM-INS* :DATAR) CLM::*CLM-DATAR*)
 |       (SETF CLM-LAST-BEGIN-TIME (MAX CLM-LAST-BEGIN-TIME CLM::*CLM-BEG*))
 |       (PROGN
 |        (TAGBODY
 |          (RESTART-CASE
 |           (CLM::|clm_sine11| CLM::*CLM-DATAR* CLM::*CLM-DATAR-LEN*
 |            CLM::*CLM-DATAI* CLM::*CLM-DATAI-LEN*)
 |           (NIL NIL :REPORT "try to exit current note cleanly and go on." #))
 |         CLM::NOTE-ALL-DONE))
 |       (IF (NOT (ZEROP (AREF CLM::*CLM-DATAI* CLM::+CLM-INTERRUPTED+)))
 |           (FORMAT T "interrupted: ~A"
 |                   (AREF CLM::*CLM-DATAI* CLM::+CLM-INTERRUPTED+))))
 |   using the lexical binding of the symbol *CLM-DATAR*, not the
 |   dynamic binding, even though the symbol name follows the usual naming
 |   convention (names like *FOO*) for special variables
 `-- using deprecated EVAL-WHEN situation names LOAD EVAL