mirror of
https://github.com/cookiengineer/audacity
synced 2025-05-04 17:49:45 +02:00
31 lines
768 B
Common Lisp
31 lines
768 B
Common Lisp
(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")
|