Code: Select all
error: bad argument type - NIL
Function: #<Subr-/: #1099eab8>
Arguments:
NIL
1.41176
Function: #<FSubr-LET: #10999528>
Arguments:
((PREVIEW (/ (GET (QUOTE *PROJECT*) (QUOTE PREVIEW-DURATION)) (* SIG BEATLEN))))
(IF (NOT (GET (QUOTE *TRACK*) (QUOTE VIEW))) (SETQ MEASURES (MIN PREVIEW MEASURES)))
Function: #<FSubr-PROGN: #1099e768>
Arguments:
(SETF TICKLEN (* (MAX 1 (MIN 100 TICKLEN)) 0.001))
(SETF BEATLEN (/ 60 TEMPO))
(MAKEMEASURE)
(IF M-S (SETQ MEASURES (/ (M-S-TO-SECONDS M-S) (* SIG BEATLEN))))
(LET ((PREVIEW (/ (GET (QUOTE *PROJECT*) (QUOTE PREVIEW-DURATION)) (* SIG BEATLEN)))) (IF (NOT (GET (QUOTE *TRACK*) (QUOTE VIEW))) (SETQ MEASURES (MIN PREVIEW MEASURES))))
(SETQ MEASURES (ROUND-UP MEASURES))
(SETF CLICKTRACK (LOOP MEASURE MEASURES SIG BEATLEN))
(SEQ (S-REST OFFSET) (CUE CLICKTRACK) (S-REST (- BEATLEN TICKLEN)))
Function: #<FSubr-IF: #1099de58>
Arguments:
(= (LENGTH ERROR-MSG) 0)
(PROGN (SETF TICKLEN (* (MAX 1 (MIN 100 TICKLEN)) 0.001)) (SETF BEATLEN (/ 60 TEMPO)) (MAKEMEASURE) (IF M-S (SETQ MEASURES (/ (M-S-TO-SECONDS M-S) (* SIG BEATLEN)))) (LET ((PREVIEW (/ (GET (QUOTE *PROJECT*) (QUOTE PREVIEW-DURATION)) (* SIG BEATLEN)))) (IF (NOT (GET (QUOTE *TRACK*) (QUOTE VIEW))) (SETQ MEASURES (MIN PREVIEW MEASURES)))) (SETQ MEASURES (ROUND-UP MEASURES)) (SETF CLICKTRACK (LOOP MEASURE MEASURES SIG BEATLEN)) (SEQ (S-REST OFFSET) (CUE CLICKTRACK) (S-REST (- BEATLEN TICKLEN))))
(SETQ ERROR-MSG (STRCAT (FORMAT NIL "Error.~%You have entered at least one invalid value:~%~%") ERROR-MSG))
Function: #<FSubr-COND: #1099c458>
Arguments:
((= ACTION 1) (HELP1))
((= ACTION 2) (HELP2))
(T (SETQ LEN (/ (* 60 *SOUND-SRATE* SIG MEASURES) TEMPO)) (SETQ ERROR-MSG "") (SETF M-S (STRING-TO-LIST CLICK-TRACK-DUR)) (ERRORCHECK) (IF (= (LENGTH ERROR-MSG) 0) (PROGN (SETF TICKLEN (* (MAX 1 (MIN 100 TICKLEN)) 0.001)) (SETF BEATLEN (/ 60 TEMPO)) (MAKEMEASURE) (IF M-S (SETQ MEASURES (/ (M-S-TO-SECONDS M-S) (* SIG BEATLEN)))) (LET ((PREVIEW (/ (GET (QUOTE *PROJECT*) (QUOTE PREVIEW-DURATION)) (* SIG BEATLEN)))) (IF (NOT (GET (QUOTE *TRACK*) (QUOTE VIEW))) (SETQ MEASURES (MIN PREVIEW MEASURES)))) (SETQ MEASURES (ROUND-UP MEASURES)) (SETF CLICKTRACK (LOOP MEASURE MEASURES SIG BEATLEN)) (SEQ (S-REST OFFSET) (CUE CLICKTRACK) (S-REST (- BEATLEN TICKLEN)))) (SETQ ERROR-MSG (STRCAT (FORMAT NIL "Error.~%You have entered at least one invalid value:~%~%") ERROR-MSG))))
1>