Loading /amd/cm/usr/local/lisp/dist/acl5.0-linux/libacl50b5.so. Mapping /usr/ccrma/lisp/obj/cm2-clm2-acl5.0-linux/cm.dxl...done. Mapping /amd/cm/usr/local/lisp/dist/acl5.0-linux/acl50b5.pll. Allegro CL 5.0.beta [Linux/X86] (6/11/98 14:45) Copyright (C) 1985-1998, Franz Inc., Berkeley, CA, USA. All Rights Reserved. ; Loading /amd/cm/usr/local/lisp/dist/acl5.0-linux/siteinit.cl ;; Optimization settings: safety 1, space 1, speed 1, debug 2. ;; For a complete description of all compiler switches given the current optimization settings evaluate ;; (EXPLAIN-COMPILER-SETTINGS). [changing package from "COMMON-LISP-USER" to "CM"] CM(1): :cl grani ; Fast loading /amd/cm/usr/local/web/html/courses/220b/lectures/2/examples/grani.fusl ; Foreign loading /usr/ccrma/web/html/courses/220b/lectures/2/examples/clm_lnxacl_GRANI.so. CM(2): :cl cut ; Fast loading /amd/cm/usr/local/web/html/courses/220b/lectures/2/examples/cut.fusl ; Foreign loading /usr/ccrma/web/html/courses/220b/lectures/2/examples/clm_lnxacl_ONE-CUT.so. CM(3): (setf xx (make-oscil :frequency 440)) # CM(4): xx # CM(5): (oscil xx) 0.0 CM(6): *srate* 22050 CM(7): (oscil xx) 0.1250505236945281d0 CM(8): (oscil xx) 0.2481378479437379d0 CM(9): (oscil xx) 0.3673295940613789d0 CM(10): (oscil xx) 0.4807545410165317d0 CM(11): (oscil xx) 0.5866320022005456d0 CM(12): (oscil xx) 0.6832997808714387d0 CM(13): (oscil xx) 0.7692402653962487d0 CM(14): (oscil xx) 0.8431042546155975d0 CM(15): (oscil xx) 0.9037321392901134d0 CM(16): :cl /zap/ringmodw ;;; Compiling file /zap/ringmodw.ins ; Writing "/zap/clm_lnxacl_RMW.c" ; Autoloading for FOREIGN-FUNCTIONS:CHAR*-TO-STRING: ; Fast loading from bundle code/ffcompat.fasl. ; Compiling "/zap/clm_lnxacl_RMW.c" ; Creating shared object file "/zap/clm_lnxacl_RMW.so" ;;; Writing fasl file /zap/ringmodw.fusl Warning: No IN-PACKAGE form seen in /zap/ringmodw.ins. (Allegro Presto will be ineffective when loading a file having no IN-PACKAGE form.) ;;; Fasl write complete ; Fast loading /zap/ringmodw.fusl ; Foreign loading /zap/clm_lnxacl_RMW.so. CM(17): (with-sound()(rmw 0 4 440 0.6 0.1)) "/zap/test.snd" CM(18): (dac) 0 CM(19): (with-sound()(rmw 0 4 440 101 0.1)) "/zap/test.snd" CM(20): :cl ;;; Compiling file /zap/ringmodw.ins ; Writing "/zap/clm_lnxacl_RMW.c" ; Compiling "/zap/clm_lnxacl_RMW.c" ; Creating shared object file "/zap/clm_lnxacl_RMW.so" ;;; Writing fasl file /zap/ringmodw.fusl Warning: No IN-PACKAGE form seen in /zap/ringmodw.ins. (Allegro Presto will be ineffective when loading a file having no IN-PACKAGE form.) ;;; Fasl write complete ; Fast loading /zap/ringmodw.fusl ; Foreign loading /zap/clm_lnxacl_RMW.so. CM(21): (with-sound()(rmw 0 4 440 101 0.1)) "/zap/test.snd" CM(22): (with-sound()(rmw 0 4 440 101 0.1)) "/zap/test.snd" CM(23): (with-sound(:channels 2)(rmw 0 4 440 101 0.1)) "/zap/test.snd" CM(24): (with-sound(:channels 2)(rmw 0 4 440 101 0.1)) "/zap/test.snd" CM(25): :cl ;;; Compiling file /zap/ringmodw.ins ; Writing "/zap/clm_lnxacl_RMW.c" ; Compiling "/zap/clm_lnxacl_RMW.c" ; Creating shared object file "/zap/clm_lnxacl_RMW.so" ;;; Writing fasl file /zap/ringmodw.fusl Warning: No IN-PACKAGE form seen in /zap/ringmodw.ins. (Allegro Presto will be ineffective when loading a file having no IN-PACKAGE form.) ;;; Fasl write complete ; Fast loading /zap/ringmodw.fusl ; Foreign loading /zap/clm_lnxacl_RMW.so. CM(26): (with-sound(:channels 2)(rmw 0 4 440 101 0.1)) "/zap/test.snd" CM(27): (with-sound(:channels 4)(rmw 0 4 440 101 0.1)) "/zap/test.snd" CM(28): (dac) 0 CM(29): :cl ;;; Compiling file /zap/ringmodw.ins ; Writing "/zap/clm_lnxacl_RMW.c" ; Compiling "/zap/clm_lnxacl_RMW.c" ; Creating shared object file "/zap/clm_lnxacl_RMW.so" ;;; Writing fasl file /zap/ringmodw.fusl Warning: No IN-PACKAGE form seen in /zap/ringmodw.ins. (Allegro Presto will be ineffective when loading a file having no IN-PACKAGE form.) ;;; Fasl write complete ; Fast loading /zap/ringmodw.fusl ; Foreign loading /zap/clm_lnxacl_RMW.so. CM(30): (with-sound(:channels 4)(rmw 0 4 440 101 0.1)) "/zap/test.snd" CM(31): :cl ;;; Compiling file /zap/ringmodw.ins ; Writing "/zap/clm_lnxacl_RMW.c" ; Compiling "/zap/clm_lnxacl_RMW.c" ; Creating shared object file "/zap/clm_lnxacl_RMW.so" ;;; Writing fasl file /zap/ringmodw.fusl Warning: No IN-PACKAGE form seen in /zap/ringmodw.ins. (Allegro Presto will be ineffective when loading a file having no IN-PACKAGE form.) ;;; Fasl write complete ; Fast loading /zap/ringmodw.fusl ; Foreign loading /zap/clm_lnxacl_RMW.so. CM(32): (with-sound(:channels 4)(rmw 0 4 440 101 0.1)) "/zap/test.snd" CM(33): :cl ;;; Compiling file /zap/ringmodw.ins ; Writing "/zap/clm_lnxacl_RMW.c" ; Compiling "/zap/clm_lnxacl_RMW.c" ; Creating shared object file "/zap/clm_lnxacl_RMW.so" ;;; Writing fasl file /zap/ringmodw.fusl Warning: No IN-PACKAGE form seen in /zap/ringmodw.ins. (Allegro Presto will be ineffective when loading a file having no IN-PACKAGE form.) ;;; Fasl write complete ; Fast loading /zap/ringmodw.fusl ; Foreign loading /zap/clm_lnxacl_RMW.so. CM(34): (with-sound(:channels 2)(rmw 0 4 440 101 0.1)) "/zap/test.snd" CM(35): (with-sound(:channels 2)(rmw 0 4 440 101 0.1 :channel 1)) "/zap/test.snd" CM(36): :cl ;;; Compiling file /zap/ringmodw.ins ; Writing "/zap/clm_lnxacl_RMW.c" ; Compiling "/zap/clm_lnxacl_RMW.c" ; Creating shared object file "/zap/clm_lnxacl_RMW.so" ;;; Writing fasl file /zap/ringmodw.fusl Warning: No IN-PACKAGE form seen in /zap/ringmodw.ins. (Allegro Presto will be ineffective when loading a file having no IN-PACKAGE form.) ;;; Fasl write complete ; Fast loading /zap/ringmodw.fusl ; Foreign loading /zap/clm_lnxacl_RMW.so. CM(37): (with-sound(:channels 2)(rmw 0 4 440 101 0.1 :channel 0)) "/zap/test.snd" CM(38): (with-sound(:channels 2)(rmw 0 4 440 101 0.1 :channel 1)) "/zap/test.snd" CM(39): (with-sound(:channels 4)(rmw 0 4 440 101 0.1 :channel 2)) "/zap/test.snd" CM(40): (with-sound(:channels 4)(rmw 0 4 440 101 0.1 :channel 3)) "/zap/test.snd" CM(41): :cl ;;; Compiling file /zap/ringmodw.ins ; Writing "/zap/clm_lnxacl_RMW.c" ; Compiling "/zap/clm_lnxacl_RMW.c" ; Creating shared object file "/zap/clm_lnxacl_RMW.so" ;;; Writing fasl file /zap/ringmodw.fusl Warning: No IN-PACKAGE form seen in /zap/ringmodw.ins. (Allegro Presto will be ineffective when loading a file having no IN-PACKAGE form.) ;;; Fasl write complete ; Fast loading /zap/ringmodw.fusl ; Foreign loading /zap/clm_lnxacl_RMW.so. CM(42): (with-sound(:channels 4)(rmw 0 4 440 101 0.1)) "/zap/test.snd" CM(43): (with-sound(:channels 2)(rmw 0 4 440 101 0.1)) "/zap/test.snd" CM(44): (with-sound(:channels 2)(rmw 0 4 440 101 0.1 :degree 0)) "/zap/test.snd" CM(45): (with-sound(:channels 2)(rmw 0 4 440 101 0.1 :degree 90)) "/zap/test.snd" CM(46): (with-sound(:channels 4)(rmw 0 4 440 101 0.1 :degree 120)) "/zap/test.snd" CM(47): (with-sound(:channels 4)(rmw 0 4 440 101 0.1 :degree 120)) "/zap/test.snd" CM(48): :cl ;;; Compiling file /zap/ringmodw.ins ; Writing "/zap/clm_lnxacl_RMW.c" ; Compiling "/zap/clm_lnxacl_RMW.c" ; Creating shared object file "/zap/clm_lnxacl_RMW.so" ;;; Writing fasl file /zap/ringmodw.fusl Warning: No IN-PACKAGE form seen in /zap/ringmodw.ins. (Allegro Presto will be ineffective when loading a file having no IN-PACKAGE form.) ;;; Fasl write complete ; Fast loading /zap/ringmodw.fusl ; Foreign loading /zap/clm_lnxacl_RMW.so. CM(49): (with-sound(:channels 4)(rmw 0 4 440 101 0.1 :degree 120)) "/zap/test.snd" CM(50): :cl /zap/nrev ;;; Compiling file /zap/nrev.ins ; Writing "/zap/clm_lnxacl_NREV.c" ; Compiling "/zap/clm_lnxacl_NREV.c" ; Creating shared object file "/zap/clm_lnxacl_NREV.so" ;;; Writing fasl file /zap/nrev.fusl Warning: No IN-PACKAGE form seen in /zap/nrev.ins. (Allegro Presto will be ineffective when loading a file having no IN-PACKAGE form.) ;;; Fasl write complete ; Fast loading /zap/nrev.fusl ; Foreign loading /zap/clm_lnxacl_NREV.so. CM(51): :cl ; Fast loading /zap/nrev.fusl ; Foreign loading /zap/clm_lnxacl_NREV.so. CM(52): :cl /zap/ringmodw ;;; Compiling file /zap/ringmodw.ins ; Writing "/zap/clm_lnxacl_RMW.c" ; Compiling "/zap/clm_lnxacl_RMW.c" ; Creating shared object file "/zap/clm_lnxacl_RMW.so" ; While compiling RMW: Warning: Variable LOCS is never used. ;;; Writing fasl file /zap/ringmodw.fusl Warning: No IN-PACKAGE form seen in /zap/ringmodw.ins. (Allegro Presto will be ineffective when loading a file having no IN-PACKAGE form.) ;;; Fasl write complete ; Fast loading /zap/ringmodw.fusl ; Foreign loading /zap/clm_lnxacl_RMW.so. CM(53): (with-sound(:channels 4)(rmw 0 4 440 101 0.1)) "/zap/test.snd" CM(54): (with-sound(:channels 2 :reverb nrev)(rmw 0 4 440 101 0.1)) "/zap/test.snd" CM(55): (with-sound(:channels 2 :reverb nrev)(rmw 0 4 440 101 0.1)) "/zap/test.snd" CM(56): :cl ;;; Compiling file /zap/ringmodw.ins ; Writing "/zap/clm_lnxacl_RMW.c" ; Compiling "/zap/clm_lnxacl_RMW.c" ; Creating shared object file "/zap/clm_lnxacl_RMW.so" ; While compiling RMW: Warning: Variable LOCS is never used. ;;; Writing fasl file /zap/ringmodw.fusl Warning: No IN-PACKAGE form seen in /zap/ringmodw.ins. (Allegro Presto will be ineffective when loading a file having no IN-PACKAGE form.) ;;; Fasl write complete ; Fast loading /zap/ringmodw.fusl ; Foreign loading /zap/clm_lnxacl_RMW.so. CM(57): (with-sound(:channels 2 :reverb nrev)(rmw 0 4 440 101 0.1)) "/zap/test.snd" CM(58): (with-sound(:channels 2 :reverb nrev)(rmw 0 4 440 101 0.1 :amp-env '(0 0 0.1 1 0.9 1 1 0))) "/zap/test.snd" CM(59): (with-sound(:channels 2 :reverb nrev)(rmw 0 4 440 101 0.1 :amp-env '(0 0 0.01 1 0.99 1 1 0))) "/zap/test.snd" CM(60): (with-sound(:channels 2 :reverb nrev)(rmw 0 4 440 101 0.1 :amp-env '(0 0 0.001 1 0.999 1 1 0))) "/zap/test.snd" CM(61): (with-sound(:channels 2 :reverb nrev :decay-time 4)(rmw 0 4 440 101 0.1 :amp-env '(0 0 0.001 1 0.999 1 1 0))) "/zap/test.snd" CM(62): :cl ;;; Compiling file /zap/ringmodw.ins ; Writing "/zap/clm_lnxacl_RMW.c" ; Compiling "/zap/clm_lnxacl_RMW.c" ; Creating shared object file "/zap/clm_lnxacl_RMW.so" ;;; Writing fasl file /zap/ringmodw.fusl Warning: No IN-PACKAGE form seen in /zap/ringmodw.ins. (Allegro Presto will be ineffective when loading a file having no IN-PACKAGE form.) ;;; Fasl write complete ; Fast loading /zap/ringmodw.fusl ; Foreign loading /zap/clm_lnxacl_RMW.so. CM(63): (with-sound(:channels 2 :reverb nrev :decay-time 4)(rmw 0 4 440 101 0.1 :amp-env '(0 0 0.001 1 0.999 1 1 0))) "/zap/test.snd" CM(64): (with-sound(:channels 2 :reverb nrev :decay-time 4)(rmw 0 4 440 101 0.1 :amp-env '(0 0 0.001 1 0.999 1 1 0) :reverb 0.1)) "/zap/test.snd" CM(65): (with-sound(:channels 2 :reverb nrev :decay-time 4)(rmw 0 1 440 101 0.1 :amp-env '(0 0 0.001 1 0.999 1 1 0) :reverb 0.1 :distance 1)) "/zap/test.snd" CM(66): (with-sound(:channels 2 :reverb nrev :decay-time 4)(rmw 0 1 440 101 0.1 :amp-env '(0 0 0.001 1 0.999 1 1 0) :reverb 0.1 :distance 10)) "/zap/test.snd" CM(67): (with-sound(:channels 2 :reverb nrev :decay-time 4)(rmw 0 0.3 440 101 0.1 :amp-env '(0 0 0.001 1 0.999 1 1 0) :reverb 0.1 :distance 1)) "/zap/test.snd" CM(68): (with-sound(:channels 2 :reverb nrev :decay-time 4)(rmw 0 0.3 440 101 0.1 :amp-env '(0 0 0.001 1 0.999 1 1 0) :reverb 0.1 :distance 10)) "/zap/test.snd" CM(69): (with-sound(:channels 2 :reverb nrev :decay-time 4)(rmw 0 0.3 440 101 0.1 :amp-env '(0 0 0.001 1 0.999 1 1 0) :reverb 0.1 :distance 100)) "/zap/test.snd" CM(70): (with-sound(:channels 2 :reverb nrev :decay-time 4)(rmw 0 0.3 440 101 0.1 :amp-env '(0 0 0.001 1 0.999 1 1 0) :reverb 0.1 :distance 1000)) "/zap/test.snd" CM(71): :grani Unknown top-level command: "grani" Type `:help' for the list of commands. CM(71): :cl grani ; Fast loading /amd/cm/usr/local/web/html/courses/220b/lectures/2/examples/grani.fusl ; Foreign loading /usr/ccrma/web/html/courses/220b/lectures/2/examples/clm_lnxacl_GRANI.so. CM(72): (with-sound()(grani 0 8 2 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd")) Warning: trying to load 0-length array? (#()) ; grains: 81, sample ratio: 1.012500 "/zap/test.snd" CM(73): (dac "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd") 0 CM(74): (with-sound()(grani 0 8 2 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd")) Warning: trying to load 0-length array? (#()) ; grains: 81, sample ratio: 1.012500 "/zap/test.snd" CM(75): (with-sound()(grani 0 8 2 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density 20)) Warning: trying to load 0-length array? (#()) ; grains: 161, sample ratio: 2.012500 "/zap/test.snd" CM(76): (dac) 0 CM(77): (dac "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd") 0 CM(78): (with-sound()(grani 0 4 2 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd")) Warning: trying to load 0-length array? (#()) ; grains: 41, sample ratio: 1.025000 "/zap/test.snd" CM(79): (with-sound()(grani 0 4 2 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density 20)) Warning: trying to load 0-length array? (#()) ; grains: 81, sample ratio: 2.025000 "/zap/test.snd" CM(80): (with-sound()(grani 0 2 2 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density 20)) Warning: trying to load 0-length array? (#()) ; grains: 41, sample ratio: 2.050000 "/zap/test.snd" CM(81): (with-sound()(grani 0 1 2 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density 20)) Warning: trying to load 0-length array? (#()) ; grains: 21, sample ratio: 2.100000 "/zap/test.snd" CM(82): (with-sound()(grani 0 1 2 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density 20 :grain-duration 0.05)) Warning: trying to load 0-length array? (#()) ; grains: 21, sample ratio: 1.049524 "/zap/test.snd" CM(83): (with-sound()(grani 0 1 2 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density 40 :grain-duration 0.05)) Warning: trying to load 0-length array? (#()) ; grains: 41, sample ratio: 2.049070 "/zap/test.snd" CM(84): (with-sound()(grani 0 1 2 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density 80 :grain-duration 0.025)) Warning: trying to load 0-length array? (#()) ; grains: 81, sample ratio: 2.024082 "/zap/test.snd" CM(85): (dac "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd") 0 CM(86): (with-sound()(grani 0 1 2 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density 80 :grain-duration 0.025)) Warning: trying to load 0-length array? (#()) ; grains: 81, sample ratio: 2.024082 "/zap/test.snd" CM(87): (with-sound()(grani 0 1 2 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density 80 :grain-duration 0.025 :amp-envelope '(0 1 1 1))) Warning: trying to load 0-length array? (#()) ; grains: 81, sample ratio: 2.024082 "/zap/test.snd" CM(88): (dac "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd") 0 CM(89): (with-sound()(grani 0 4 2 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density 80 :grain-duration 0.025 :amp-envelope '(0 1 1 1))) Warning: trying to load 0-length array? (#()) ; grains: 321, sample ratio: 2.005340 "/zap/test.snd" CM(90): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density 80 :grain-duration 0.025 :amp-envelope '(0 1 1 1))) Warning: trying to load 0-length array? (#()) ; grains: 321, sample ratio: 2.005340 "/zap/test.snd" CM(91): (dac "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd") 0 CM(92): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density '(0 10 0.5 80 1 20) :grain-duration 0.025 :amp-envelope '(0 1 1 1))) Warning: trying to load 0-length array? (#()) ; grains: 190, sample ratio: 1.186961 "/zap/test.snd" CM(93): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density '(0 10 0.2 10 0.5 80 1 20) :grain-duration 0.025 :amp-envelope '(0 1 1 1))) Warning: trying to load 0-length array? (#()) ; grains: 162, sample ratio: 1.012041 "/zap/test.snd" CM(94): (dac) 0 CM(95): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density '(0 40 0.2 45 0.5 180 1 20) :grain-duration 0.025 :amp-envelope '(0 1 1 1))) Warning: trying to load 0-length array? (#()) ; grains: 371, sample ratio: 2.317698 "/zap/test.snd" CM(96): (dac) 0 CM(97): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density 80 :grain-duration 0.025 :amp-envelope '(0 1 1 1))) Warning: trying to load 0-length array? (#()) ; grains: 321, sample ratio: 2.005340 "/zap/test.snd" CM(98): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density 80 :grain-density-spread 0 :grain-duration 0.025 :amp-envelope '(0 1 1 1))) Warning: trying to load 0-length array? (#()) ; grains: 321, sample ratio: 2.005340 "/zap/test.snd" CM(99): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density 80 :grain-density-spread 10 :grain-duration 0.025 :amp-envelope '(0 1 1 1))) Warning: trying to load 0-length array? (#()) ; grains: 320, sample ratio: 1.999093 "/zap/test.snd" CM(100): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density 80 :grain-density-spread 20 :grain-duration 0.025 :amp-envelope '(0 1 1 1))) Warning: trying to load 0-length array? (#()) ; grains: 321, sample ratio: 2.005340 "/zap/test.snd" CM(101): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density 80 :grain-density-spread 40 :grain-duration 0.025 :amp-envelope '(0 1 1 1))) Warning: trying to load 0-length array? (#()) ; grains: 319, sample ratio: 1.992846 "/zap/test.snd" CM(102): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density 80 :grain-density-spread '(0 0 0.5 40 1 40) :grain-duration 0.025 :amp-envelope '(0 1 1 1))) Warning: trying to load 0-length array? (#()) ; grains: 316, sample ratio: 1.974104 "/zap/test.snd" CM(103): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density '(0 40 0.6 120 1 80) :grain-density-spread '(0 0 0.5 40 1 40) :grain-duration 0.025 :amp-envelope '(0 1 1 1))) Warning: trying to load 0-length array? (#()) ; grains: 348, sample ratio: 2.174014 "/zap/test.snd" CM(104): (with-sound()(grani 0 8 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density '(0 40 0.6 120 1 80) :grain-density-spread '(0 0 0.5 40 1 40) :grain-duration 0.025 :amp-envelope '(0 1 1 1))) Warning: trying to load 0-length array? (#()) ; grains: 699, sample ratio: 2.183384 "/zap/test.snd" CM(105): (with-sound()(grani 0 8 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density '(0 40 0.6 120 1 80) :grain-density-spread '(0 0 0.5 40 1 40) :grain-duration 0.025 :amp-envelope '(0 1 1 1) :srate 12)) Warning: trying to load 0-length array? (#()) ; grains: 697, sample ratio: 2.177137 "/zap/test.snd" CM(106): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density '(0 40 0.6 120 1 80) :grain-density-spread '(0 0 0.5 40 1 40) :grain-duration 0.025 :amp-envelope '(0 1 1 1) :srate -12)) Warning: trying to load 0-length array? (#()) ; grains: 350, sample ratio: 2.186508 "/zap/test.snd" CM(107): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density '(0 40 0.6 120 1 80) :grain-density-spread '(0 0 0.5 40 1 40) :grain-duration 0.025 :amp-envelope '(0 1 1 1) :srate '(0 -12 1 0))) Warning: trying to load 0-length array? (#()) ; grains: 350, sample ratio: 2.186508 "/zap/test.snd" CM(108): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density '(0 40 0.6 120 1 80) :grain-density-spread '(0 0 0.5 40 1 40) :grain-duration 0.025 :amp-envelope '(0 1 1 1) :srate '(0 -12 0.5 1 1 0))) Warning: trying to load 0-length array? (#()) ; grains: 350, sample ratio: 2.186508 "/zap/test.snd" CM(109): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-density '(0 40 0.6 120 1 80) :grain-density-spread '(0 0 0.5 40 1 40) :grain-duration 0.025 :amp-envelope '(0 1 1 1) :srate '(0 -12 0.5 1 1 0) :grain-start 0)) Warning: trying to load 0-length array? (#()) ; grains: 350, sample ratio: 2.186508 "/zap/test.snd" CM(110): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-start 0)) Warning: trying to load 0-length array? (#()) ; grains: 41, sample ratio: 1.025000 "/zap/test.snd" CM(111): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-start 0.1)) Warning: trying to load 0-length array? (#()) ; grains: 41, sample ratio: 1.025000 "/zap/test.snd" CM(112): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-start 0.9)) Warning: trying to load 0-length array? (#()) ; grains: 41, sample ratio: 1.025000 "/zap/test.snd" CM(113): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-start '(0 0 1 1))) Warning: trying to load 0-length array? (#()) ; grains: 41, sample ratio: 1.025000 "/zap/test.snd" CM(114): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-start '(0 1 1 0))) Warning: trying to load 0-length array? (#()) ; grains: 41, sample ratio: 1.025000 "/zap/test.snd" CM(115): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-start '(0 1 0.3 0 0.5 0.4 1 0))) Warning: trying to load 0-length array? (#()) ; grains: 41, sample ratio: 1.025000 "/zap/test.snd" CM(116): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-start '(0 0 1 1) :grain-density 40)) Warning: trying to load 0-length array? (#()) ; grains: 161, sample ratio: 4.025000 "/zap/test.snd" CM(117): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-start '(0 0 1 1) :grain-density 40)) Warning: trying to load 0-length array? (#()) ; grains: 161, sample ratio: 4.025000 "/zap/test.snd" CM(118): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-start '(0 0 1 1) :grain-start-spread 0.01 :grain-density 40)) Warning: trying to load 0-length array? (#()) ; grains: 161, sample ratio: 4.025000 "/zap/test.snd" CM(119): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-start '(0 0 1 1) :grain-density 40)) Warning: trying to load 0-length array? (#()) ; grains: 161, sample ratio: 4.025000 "/zap/test.snd" CM(120): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-start '(0 0 1 1) :grain-start-spread 0.01 :grain-density 40)) Warning: trying to load 0-length array? (#()) ; grains: 161, sample ratio: 4.025000 "/zap/test.snd" CM(121): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-start '(0 0 1 1) :grain-start-spread 0.001 :grain-density 40)) Warning: trying to load 0-length array? (#()) ; grains: 161, sample ratio: 4.025000 "/zap/test.snd" CM(122): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-start '(0 0 1 1) :grain-start-spread '(0 0 0.5 0.1 1 0) :grain-density 40)) Warning: trying to load 0-length array? (#()) ; grains: 161, sample ratio: 4.025000 "/zap/test.snd" CM(123): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-start '(0 0 1 1) :grain-start-spread '(0 0 0.5 0.1 1 0) :grain-density 40)) Warning: trying to load 0-length array? (#()) ; grains: 161, sample ratio: 4.025000 "/zap/test.snd" CM(124): (with-sound()(grani 0 4 1 "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/small-gong.snd" :grain-start '(0 0 1 1) :grain-start-spread '(0 0 0.4 0 0.5 0.1 1 0) :grain-density 40)) Warning: trying to load 0-length array? (#()) ; grains: 161, sample ratio: 4.025000 "/zap/test.snd" CM(125): :cl cut ; Fast loading /amd/cm/usr/local/web/html/courses/220b/lectures/2/examples/cut.fusl ; Foreign loading /usr/ccrma/web/html/courses/220b/lectures/2/examples/clm_lnxacl_ONE-CUT.so. CM(126): (with-sound () (let ((cut-soundfile "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/tubular-bell.snd")) (one-cut 0 0.7))) <0.000-1.467> one-cut rate: 2.000 dur: 1.467 "/zap/test.snd" CM(127): (dac "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/tubular-bell.snd") 0 CM(128): (with-sound () (let ((cut-soundfile "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/tubular-bell.snd")) (one-cut 0 0.7))) <0.000-1.467> one-cut rate: 2.000 dur: 1.467 "/zap/test.snd" CM(129): (with-sound () (let ((cut-soundfile "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/tubular-bell.snd") (cut-sample-rate '(0 1.5 1 1.5)) (cut-sample-rate-mult 3.0)) (one-cut 0.0 1.0)) ) <0.000-0.326> one-cut rate: 9.000 dur: 0.326 "/zap/test.snd" CM(130): (with-sound () (let ((cut-soundfile "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/tubular-bell.snd") (cut-sample-rate '(0 1.5 1 1.5)) (cut-sample-rate-mult 3.0)) (one-cut 0.0 1.0))) <0.000-0.326> one-cut rate: 9.000 dur: 0.326 "/zap/test.snd" CM(131): (with-sound () (let ((cut-sample-rate '(0 2 0.5 1 1 2)) (cut-soundfile "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/tubular-bell.snd")) (loop for i from 0 by 0.1 below 1.0 do (one-cut i 1.0 :sample-rate-mult (+ 1.0 (random 2.0)))))) <0.000-0.708> one-cut rate: 4.142 dur: 0.708 <0.100-0.517> one-cut rate: 7.038 dur: 0.417 <0.200-0.744> one-cut rate: 5.395 dur: 0.544 <0.300-0.652> one-cut rate: 8.326 dur: 0.352 <0.400-1.057> one-cut rate: 4.465 dur: 0.657 <0.500-0.918> one-cut rate: 7.019 dur: 0.418 <0.600-1.209> one-cut rate: 4.819 dur: 0.609 <0.700-1.094> one-cut rate: 7.450 dur: 0.394 <0.800-1.254> one-cut rate: 6.462 dur: 0.454 <0.900-1.512> one-cut rate: 4.790 dur: 0.612 "/zap/test.snd" CM(132): (with-sound () (let ((cut-sample-rate '(0 2 0.5 1.3 1 1)) (cut-soundfile "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/tubular-bell.snd") (cut-sample-rate-mult 0.1) (cut-vib-osc-freq 3.0) (cut-vib-osc-freq-dev 1.5) (cut-vib-osc-amp 0.7) (cut-vib-noi-freq 7.0) (cut-vib-noi-amp 0.3)) (loop for i from 1 to 10 do (one-cut 0.0 1.0 :sample-rate-mult (+ 1 (/ 1 i)))))) <0.000-0.524> one-cut rate: 5.600 dur: 0.524 <0.000-0.698> one-cut rate: 4.200 dur: 0.698 <0.000-0.786> one-cut rate: 3.733 dur: 0.786 <0.000-0.838> one-cut rate: 3.500 dur: 0.838 <0.000-0.873> one-cut rate: 3.360 dur: 0.873 <0.000-0.898> one-cut rate: 3.267 dur: 0.898 <0.000-0.917> one-cut rate: 3.200 dur: 0.917 <0.000-0.931> one-cut rate: 3.150 dur: 0.931 <0.000-0.943> one-cut rate: 3.111 dur: 0.943 <0.000-0.952> one-cut rate: 3.080 dur: 0.952 "/zap/test.snd" CM(133): (with-sound (:channels 2) (let ((cut-sample-rate '(0 2 0.5 1.3 1 1)) (cut-soundfile "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/tubular-bell.snd") (cut-sample-rate-mult 0.1) (cut-vib-osc-freq 3.0) (cut-vib-osc-freq-dev 1.5) (cut-vib-osc-amp 0.5) (cut-vib-noi-freq 7.0) (cut-vib-noi-amp 0.15) (cut-amp-func '(0 1 0.01 0.707 1 0)) (time 0.0)) (loop for i from 1 to 10 for amp from 1.0 by -0.07 do (one-cut time amp :sample-rate-mult (+ (/ 1.0 i) 1) :degree (between 0.0 90.0)) (incf time (between 0.5 1.0))))) <0.000-0.524> one-cut rate: 5.600 dur: 0.524 <0.699-1.397> one-cut rate: 4.200 dur: 0.698 <1.423-2.209> one-cut rate: 3.733 dur: 0.786 <1.951-2.789> one-cut rate: 3.500 dur: 0.838 <2.744-3.617> one-cut rate: 3.360 dur: 0.873 <3.380-4.278> one-cut rate: 3.267 dur: 0.898 <4.347-5.264> one-cut rate: 3.200 dur: 0.917 <5.020-5.951> one-cut rate: 3.150 dur: 0.931 <5.784-6.727> one-cut rate: 3.111 dur: 0.943 <6.441-7.393> one-cut rate: 3.080 dur: 0.952 "/zap/test.snd" CM(134): (with-sound()(let ((cut-sample-rate '(0 1 0.5 1.3 1 1)) (cut-soundfile "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/tubular-bell.snd") (cut-sample-rate-mult 0.1)) (one-cut 0.0 1.0 :sample-rate-mult 0.1))) <0.000-12.753> one-cut rate: 0.230 dur: 12.753 "/zap/test.snd" CM(135): (stop-dac) 25692 NIL CM(136): (with-sound()(let ((cut-sample-rate '(0 1 0.5 1.3 1 1)) (cut-soundfile "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/tubular-bell.snd") (cut-sample-rate-mult 0.1)) (one-cut 0.0 1.0 :sample-rate-mult 1))) <0.000-1.275> one-cut rate: 2.300 dur: 1.275 "/zap/test.snd" CM(137): (with-sound()(let ((cut-sample-rate '(0 1 0.5 1.3 1 1)) (cut-soundfile "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/tubular-bell.snd") (cut-sample-rate-mult 0.1)) (partial-cuts 0.0 1.0 :sample-rate-mult 1))) <0.000-1.275> one-cut rate: 2.300 dur: 1.275 <0.301-1.259> one-cut rate: 3.059 dur: 0.959 <0.606-1.243> one-cut rate: 4.600 dur: 0.638 <0.909-1.227> one-cut rate: 9.200 dur: 0.319 <0.993-1.223> one-cut rate: 12.765 dur: 0.230 "/zap/test.snd" CM(138): (with-sound()(let ((cut-sample-rate '(0 1 0.5 1.3 1 1)) (cut-soundfile "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/tubular-bell.snd") (cut-sample-rate-mult 0.1)(cut-coincidence 0)) (partial-cuts 0.0 1.0 :partials '(1) :sample-rate-mult 1))) <0.000-1.275> one-cut rate: 2.300 dur: 1.275 <0.000-0.959> one-cut rate: 3.059 dur: 0.959 <0.000-0.638> one-cut rate: 4.600 dur: 0.638 <0.000-0.319> one-cut rate: 9.200 dur: 0.319 <0.000-0.230> one-cut rate: 12.765 dur: 0.230 "/zap/test.snd" CM(139): (with-sound()(let ((cut-sample-rate '(0 1 0.5 1.3 1 1)) (cut-soundfile "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/tubular-bell.snd") (cut-sample-rate-mult 0.1)(cut-coincidence 0)) (partial-cuts 0.0 1.0 :partials '(1) :sample-rate-mult 1))) <0.000-1.275> one-cut rate: 2.300 dur: 1.275 "/zap/test.snd" CM(140): (with-sound()(let ((cut-sample-rate '(0 1 0.5 1.3 1 1)) (cut-soundfile "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/tubular-bell.snd") (cut-sample-rate-mult 0.1)(cut-coincidence 0)) (partial-cuts 0.0 1.0 :partials '(1 4) :sample-rate-mult 1))) <0.000-1.275> one-cut rate: 2.300 dur: 1.275 <0.000-0.319> one-cut rate: 9.200 dur: 0.319 "/zap/test.snd" CM(141): (with-sound()(let ((cut-sample-rate '(0 1 0.5 1.3 1 1)) (cut-soundfile "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/tubular-bell.snd") (cut-sample-rate-mult 0.1)(cut-coincidence 0)) (partial-cuts 0.0 1.0 :partials '(1 2 3 4) :sample-rate-mult 1))) <0.000-1.275> one-cut rate: 2.300 dur: 1.275 <0.000-0.638> one-cut rate: 4.600 dur: 0.638 <0.000-0.425> one-cut rate: 6.900 dur: 0.425 <0.000-0.319> one-cut rate: 9.200 dur: 0.319 "/zap/test.snd" CM(142): (with-sound()(let ((cut-sample-rate '(0 1 0.5 1.3 1 1)) (cut-soundfile "/usr/ccrma/web/html/courses/220b/lectures/2/sounds/tubular-bell.snd") (cut-sample-rate-mult 0.1)(cut-coincidence 0)) (partial-cuts 0.0 1.0 :partials '(0.4 0.5 0.6 1 2 3 4) :sample-rate-mult 1))) <0.000-3.188> one-cut rate: 0.920 dur: 3.188 <0.000-2.551> one-cut rate: 1.150 dur: 2.551 <0.000-2.125> one-cut rate: 1.380 dur: 2.125 <0.000-1.275> one-cut rate: 2.300 dur: 1.275 <0.000-0.638> one-cut rate: 4.600 dur: 0.638 <0.000-0.425> one-cut rate: 6.900 dur: 0.425 <0.000-0.319> one-cut rate: 9.200 dur: 0.319 "/zap/test.snd" CM(143): (dac) 0 CM(144): (loop for i from 0 below 10 do (format t "~d " i)) 0 1 2 3 4 5 6 7 8 9 NIL CM(145): (macroexpand '(loop for i from 0 below 10 do (format t "~d " i))) (LET ((I 0)) (DECLARE (TYPE REAL I)) (BLOCK NIL (TAGBODY EXCL::NEXT-LOOP (FORMAT T "~d " I) (EXCL::LOOP-REALLY-DESETQ I (1+ I)) (WHEN (>= I '10) (GO EXCL::END-LOOP)) (GO EXCL::NEXT-LOOP) EXCL::END-LOOP))) T CM(146): (macroexpand '(loop for i from 0 below 10 fpr j from 10 do (format t "~d " i))) Error: FPR is an unknown keyword in LOOP macro. Current LOOP context: FPR J. [condition type: SIMPLE-ERROR] [1] CM(147): :reset CM(148): (macroexpand '(loop for i from 0 below 10 for j from 10 do (format t "~d " i))) (LET ((I 0)) (DECLARE (TYPE REAL I)) (LET ((J 10)) (DECLARE (TYPE REAL J)) (BLOCK NIL (TAGBODY EXCL::NEXT-LOOP (FORMAT T "~d " I) (EXCL::LOOP-REALLY-DESETQ I #) (WHEN # #) (EXCL::LOOP-REALLY-DESETQ J #) (GO EXCL::NEXT-LOOP) EXCL::END-LOOP)))) T CM(149): (for i in '(1 2 3 4) do (format t "~d ")) #### CM(150): (for i in '(1 2 3 4) do (format t "~d " i)) 1 2 3 4 CM(151): (loop for i in '(1 2 3 4) do (format t "~d " i)) 1 2 3 4 NIL CM(152): (loop repeat 2 for i in '(1 2 3 4) do (format t "~d " i)) 1 2 NIL CM(153): (loop repeat 12 for i in '(1 2 3 4) do (format t "~d " i)) 1 2 3 4 NIL CM(154): (loop repeat 12 for i in '(1 2 3 4) for j from 0 do (format t "~d:~d " i j)) 1:0 2:1 3:2 4:3 NIL CM(155): (loop repeat 12 for i in '(1 2 3 4) for j from 0 by 10 do (format t "~d:~d " i j)) 1:0 2:10 3:20 4:30 NIL CM(156): (loop with j for i in '(1 2 3 4) do (setf j (* i 2))(format t "~d:~d " i j)) Error: Odd number of subforms to setf. [condition type: PROGRAM-ERROR] [1] CM(157): :reset CM(158): :reset CM(159): (loop with j for i in '(1 2 3 4) do (setf j (* i 2))(format t "~d:~d " i j)) 1:2 2:4 3:6 4:8 NIL CM(160): :cl v Error: No file found with any of the names "v.cl", "v.lisp", "v", "v.ins", "v.cm", "v.clm", "v.cmn". [condition type: FILE-ERROR] Restart actions (select using :continue): 0: Prompt for a different filename to compile [1] CM(161): :Reset CM(162): :cl examples/v Error: No file found with any of the names "examples/v.cl", "examples/v.lisp", "examples/v", "examples/v.ins", "examples/v.cm", "examples/v.clm", "examples/v.cmn". [condition type: FILE-ERROR] Restart actions (select using :continue): 0: Prompt for a different filename to compile [1] CM(163): :reset CM(164): :cl v ;;; Compiling file v.ins ; Writing "/amd/cm/usr/local/web/html/courses/220b/lectures/2/examples/clm_lnxacl_FM-VIOLIN.c" ; Compiling "/amd/cm/usr/local/web/html/courses/220b/lectures/2/examples/clm_lnxacl_FM-VIOLIN.c" ; Creating shared object file "/amd/cm/usr/local/web/html/courses/220b/lectures/2/examples/clm_lnxacl_FM-VIOLIN.so" ;;; Writing fasl file v.fusl Warning: No IN-PACKAGE form seen in /amd/cm/usr/local/web/html/courses/220b/lectures/2/examples/v.ins. (Allegro Presto will be ineffective when loading a file having no IN-PACKAGE form.) ;;; Fasl write complete ; Fast loading /amd/cm/usr/local/web/html/courses/220b/lectures/2/examples/v.fusl ; Foreign loading /amd/cm/usr/local/web/html/courses/220b/lectures/2/examples/clm_lnxacl_FM-VIOLIN.so. CM(165): (with-sound()(loop for time from 0 by 0.2 below 10 do (fm-violin time 0.1 440 0.1))) "/zap/test.snd" CM(166): (with-sound()(loop for time from 0 by 0.2 below 2 for freq from 230 by 10 do (fm-violin time 0.1 freq 0.1))) "/zap/test.snd" CM(167): (Dac) 0 CM(168): (with-sound()(loop for time from 0 by 0.2 below 2 for freq = (+ 220 (random 50.0)) do (fm-violin time 0.1 freq 0.1))) "/zap/test.snd" CM(169): (with-sound()(loop for time from 0 by 0.2 below 2 for j from 220 by 100 for freq = (+ j (random 50.0)) do (fm-violin time 0.1 freq 0.1))) "/zap/test.snd" CM(170): (with-sound()(loop for time from 0 by 0.2 below 2 for j from 220 by 100 for freq = (+ j (random 50.0)) for amp = (+ 0.05 (random 0.5)) do (fm-violin time 0.1 freq amp))) "/zap/test.snd" CM(171): (with-sound()(loop for time from 0 by 0.2 below 2 for j from 220 by 100 for freq = (+ j (random 50.0)) for amp = (+ 0.01 (random 0.5)) do (fm-violin time 0.1 freq amp))) "/zap/test.snd" CM(172): (with-sound()(loop for time from 0 by 0.2 below 2 for j from 220 by 100 for freq = (+ j (random 50.0)) for amp = (+ 0.001 (random 0.5)) do (fm-violin time 0.1 freq amp))) "/zap/test.snd" CM(173): (with-sound()(loop for time from 0 by 0.2 below 2 for j from 220 by 100 for freq = (+ j (random 50.0)) for amp = (+ 0.001 (random 0.5)) do (fm-violin time 0.1 freq amp))) "/zap/test.snd" CM(174): (expt 2 (/ 12)) 1.0594631 CM(175): (with-sound()(loop with inc = (expt 2 (/ 12)) for time from 0 by 0.2 below 2 for freq = 220 then (* freq inc) for amp = (+ 0.001 (random 0.5)) do (fm-violin time 0.1 freq amp))) "/zap/test.snd" CM(176): (with-sound()(loop with inc = (expt 3 (/ 12)) for time from 0 by 0.2 below 2 for freq = 220 then (* freq inc) for amp = (+ 0.001 (random 0.5)) do (fm-violin time 0.1 freq amp))) "/zap/test.snd" CM(177): (with-sound()(loop with inc = (expt 3 (/ 12)) for time from 0 by 0.2 below 2 for freq = 220 then (* freq inc) for amp = (+ 0.001 (random 0.5)) do (fm-violin time 0.1 freq amp))) "/zap/test.snd" CM(178): (with-sound()(loop with inc = (expt 5 (/ 25)) for time from 0 by 0.2 below 2 for freq = 220 then (* freq inc) for amp = (+ 0.001 (random 0.5)) do (fm-violin time 0.1 freq amp))) "/zap/test.snd" CM(179): (+ (* 1 2) 1 2 3)