[CM] CLM style warnings on Intel
Achim Bornhoeft
achim.bornhoeft@web.de
Wed, 04 Jul 2007 12:01:03 +0200
This is a multi-part message in MIME format.
--------------020100020504030706040204
Content-Type: text/plain; charset=ISO-8859-15; format=flowed
Content-Transfer-Encoding: 7bit
Hello,
when compiling CLM Instruments on an Intel OS X 10.4x Machine I got
several style warnings. As an example I attached a simple sine
instrument with its corresponding output.
While compiling sometimes I got strange EOF errors with files coming
from a PPC. It helped just to copy the content to a new file ...
Achim
--------------020100020504030706040204
Content-Type: text/plain; x-mac-type="0"; x-mac-creator="0";
name="sine.ins"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
filename="sine.ins"
(in-package :clm)
(definstrument sine
(start-time duration frequency amplitude)
(let*
((start-sample (* start-time *srate*))
(end-sample (+ start-sample (* duration *srate*)))
(oscillator (make-oscil :frequency frequency)))
(run
(loop for index from start-sample to end-sample do
(outa index (* amplitude (oscil oscillator)))
))))
; "hello world": beep
; (with-sound () (sine 0 3 440 0.5))
--------------020100020504030706040204
Content-Type: text/plain; x-mac-type="0"; x-mac-creator="0";
name="sine-warnings.txt"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
filename="sine-warnings.txt"
-+ 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
--------------020100020504030706040204--