1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
(expand 50)
(load "../runtime/xlinit.lsp")
(load "../runtime/misc.lsp")
;; set to T to get interpolation within inner loops,
;; inline interpolation adds about 10% to code size and
;; should increase performance substantially when using
;; "light" primitives such as time-varying filters and
;; multiplies with envelopes
(setf *INLINE-INTERPOLATION* T)
;; set to T to get ANSI headers and NIL to get antique headers
(setf *ANSI* NIL)
;; set to T to generate tracing code, NIL to disable tracing code
(setf *WATCH* NIL)
(load "translate")
(load "writesusp")
(load "writemake")
(load "writetoss")
(load "innerloop")
(setf *gc-flag* t)
(setf *watch* nil)
(print "Assuming you ran Nyquist in nyquist/tran, type (m) to regenerate all source code from .alg files")
|
