[CM] build-probs-openmcl-OSX.2.8

[Per Bergqvist]

--Apple-Mail-7-824215583
Content-Transfer-Encoding: quoted-printable
Content-Type: text/plain;
	charset=ISO-8859-1;
	format=flowed

Hi list!

I=B4ve been trying to build "my own" image (including
clm-2 and cmn) using the 0.13.6 distr. of openmcl.
For now I don=B4t care about integrating Midishare.

Closely reading install-instructions don't seem to help in my
case. (embarrassingly enough) :-<


Thankful for any eye-opener I can get !

=3D=3D=3D=3D TAIL of my most recent tryout =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D

; Sources were compiled. To save Common Music,
; quit and restart Lisp, then reload cm.lisp.
#P"/Lisp/cm-2.4.0/src/cm.lisp"
? (quit)
bash-2.05a$ openmcl
Welcome to OpenMCL Version (Beta: Darwin) 0.13.6!
? (load "/Lisp/cm-2.4.0/src/cm.lisp")
; Warning: No real-time MIDI support: Midishare not installed.
; While executing: #<Anonymous Function #x52E6276>

; Loading "/Lisp/cm-2.4.0/bin/pkg.dfsl".
 > Error: There is no package named "CLM" .
 > While executing: CCL::USE-PACKAGE-1
 > Type :GO to continue, :POP to abort.
 > If continued: Retry finding package with name "CLM".
Type :? for other options.
1 > :GO
 > Error: There is no package named "CLM" .
 > While executing: "Unknown"
 > Type :GO to continue, :POP to abort.
 > If continued: Retry finding package with name "CLM".
Type :? for other options.
1 > :POP

? (quit)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D EOF =
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D


--Apple-Mail-7-824215583
Content-Disposition: attachment
Content-Type: multipart/appledouble;
	boundary=Apple-Mail-8-824215583


--Apple-Mail-8-824215583
Content-Disposition: attachment;
	filename=Latest_build_openmcl.asc
Content-Transfer-Encoding: base64
Content-Type: application/applefile;
	name="Latest_build_openmcl.asc"

AAUWBwACAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAJAAAAPgAAAAoAAAADAAAASAAAABgAAAACAAAA
YAAAAR5URVhUVEJCNgAATGF0ZXN0X2J1aWxkX29wZW5tY2wuYXNjAAABAAAAAQAAAAAAAAAAHgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAQAAAAEAAAAAAAAAAB4AAAAAAAAAAAAcAB7//w==

--Apple-Mail-8-824215583
Content-Disposition: attachment;
	filename=Latest_build_openmcl.asc
Content-Transfer-Encoding: quoted-printable
Content-Type: text/plain;
	x-mac-creator=54424236;
	x-unix-mode=0644;
	x-mac-type=54455854;
	name="Latest_build_openmcl.asc"

bash-2.05a$ openmcl=0DWelcome to OpenMCL Version (Beta: Darwin) 0.13.6!=0D=
? (load "/Lisp/cm-2.4.0/src/stocl")=0D#P"/Lisp/cm-2.4.0/src/stocl.lisp"=0D=
? (gencm)=0D=0Dskipping defmacro loop=0Dskipping defmacro when=0D=
skipping defmacro unless=0Dskipping defmacro push=0Dskipping defmacro =
pop=0Dskipping defmacro function=0Drewriting define (loop-operator c)=0D=
rewriting define (loop-operator-set! c x)=0Drewriting define =
(loop-bindings c)=0Drewriting define (loop-bindings-set! c x)=0D=
rewriting define (loop-collectors c)=0Drewriting define =
(loop-collectors-set! c x)=0Drewriting define (loop-initially c)=0D=
rewriting define (loop-initially-set! c x)=0Drewriting define =
(loop-end-tests c)=0Drewriting define (loop-end-tests-set! c x)=0D=
rewriting define (loop-looping c)=0Drewriting define (loop-looping-set! =
c x)=0Drewriting define (loop-stepping c)=0Drewriting define =
(loop-stepping-set! c x)=0Drewriting define (loop-finally c)=0Drewriting =
define (loop-finally-set! c x)=0Drewriting define (loop-returning c)=0D=
rewriting define (loop-returning-set! c x)=0Drewriting define =
(make-loop-clause . args)=0Drewriting define (gather-clauses caller =
clauses)=0Drewriting define (loop-op? x ops)=0Drewriting define =
(loop-variable? x)=0Drewriting define (make-binding var val)=0Drewriting =
define (loop-error ops forms . args)=0Drewriting define (parse-for forms =
clauses ops)=0Drewriting define (parse-numerical-for forms clauses ops)=0D=
rewriting define (parse-repeat forms clauses ops)=0Drewriting define =
(parse-sequence-iteration forms clauses ops)=0Drewriting define =
(parse-general-iteration forms clauses ops)=0Drewriting define =
(parse-with forms clauses ops)=0Drewriting define (parse-do forms =
clauses ops)=0Drewriting define (parse-finally forms clauses ops)=0D=
rewriting define (parse-initially forms clauses ops)=0Drewriting define =
(lookup-collector var clauses)=0Drewriting define =
(compatible-accumulation? typ1 typ2)=0Drewriting define =
(parse-accumulation forms clauses ops)=0Drewriting define (loop-return =
expr)=0Drewriting define (parse-while-until forms clauses ops)=0D=
rewriting define (parse-thereis forms clauses ops)=0Drewriting define =
(parse-return forms clauses ops)=0Drewriting define =
(legal-in-conditional? x ops)=0Drewriting define =
(parse-then-else-dependents forms clauses ops)=0Drewriting define =
(parse-conditional forms clauses ops)=0Drewriting define (parse-clauses =
forms cond? ops)=0Drewriting define (parse-iteration caller forms ops)=0D=
rewriting define *loop-operators*=0Dskipping define (scheme-loop forms)=0D=
rewriting defmacro iter=0Drewriting define (cltl2-loop forms)=0D=
rewriting define %months=0Drewriting define (date-and-time)=0Drewriting =
define (listify x)=0Drewriting define (end list)=0Drewriting defmacro =
dopairs=0Drewriting defmacro make-cycl=0Drewriting defmacro cycl-data=0D=
rewriting defmacro cycl-data-set!=0Drewriting defmacro cycl-last=0D=
rewriting defmacro cycl-last-set!=0Drewriting defmacro cycl-tail=0D=
rewriting defmacro cycl-tail-set!=0Drewriting defmacro pop-cycl=0D=
rewriting defmacro reset-cycl=0Drewriting define (tell-user . args)=0D=
rewriting define (warning . args)=0Drewriting define (format-integer int =
field pad)=0Drewriting define (address->string w)=0Drewriting define =
(quotify token)=0Drewriting define (quote-if-necessary x)=0Drewriting =
define (parse-lambda-list pars)=0Drewriting define %cm-version%=0D=
rewriting define (cm-version-number)=0Drewriting define (cm-version)=0D=
rewriting define (string-forms string . args)=0Drewriting define =
(balanced-form? string . args)=0Drewriting define (decimals value =
places)=0Drewriting defmacro sv=0Drewriting define (write-cm-script os =
path command)=0Drewriting define (write-xcm-script os impl path command =
listener)=0Drewriting define-class <parameterized-class>=0Drewriting =
define-method (class-parameters (obj <top>))=0Drewriting define =
(object-parameters obj)=0Drewriting define-class <io-class>=0Drewriting =
define-method (io-class-file-types x)=0Drewriting define-method =
(io-class-output-hook x)=0Drewriting define-method (io-class-definer x)=0D=
rewriting define-method (io-class-file-versions x)=0Drewriting define =
(expand-inits class args inits? other?)=0Drewriting define =
(slot-init-forms o . args)=0Drewriting define-method (make-load-form =
(obj <class>))=0Dskipping define-method (describe-object (x <object>))=0D=
rewriting define-method (copy-object (obj <object>))=0Drewriting =
define-method (fill-object (new <object>) (old <object>))=0Drewriting =
define *print-instance*=0Drewriting define (print-instance obj port)=0D=
rewriting define (i-reader form)=0Drewriting read-macro-set!=0Drewriting =
read-macro-set!=0Drewriting define (save-object obj file)=0Drewriting =
define *dictionary*=0Dskipping define-accessor object-name=0Drewriting =
define-class <container>=0Drewriting define-method (print-object (obj =
<container>) port)=0Drewriting define-method (initialize (obj =
<container>) args)=0Drewriting define-method (make-load-form (obj =
<container>))=0Dskipping define-generic rename-object=0Drewriting =
define-method (rename-object (obj <container>) newname . args)=0D=
rewriting define (list-named-objects . args)=0Drewriting define =
(find-object string . args)=0Drewriting read-macro-set!=0Drewriting =
define-class <seq>=0Drewriting define-method (object-name (obj =
<object>))=0Drewriting define-method (object-time (obj <object>))=0D=
rewriting define-method (subcontainers (obj <object>))=0Drewriting =
define-method (subcontainers (obj <seq>))=0Drewriting define =
(map-subobjects fn container . args)=0Drewriting define =
(map-subcontainers fn container . args)=0Dskipping define-generic =
insert-object=0Dskipping define-generic append-object=0Dskipping =
define-generic remove-object=0Drewriting define-method (insert-object =
(sub <object>) (obj <seq>))=0Drewriting define-method (append-object =
(sub <object>) (obj <seq>))=0Drewriting define-method (remove-object sub =
(obj <seq>))=0Drewriting define-method (remove-subobjects (obj <seq>))=0D=
rewriting define-method (list-subobjects (obj <seq>) . args)=0Drewriting =
define-class <event>=0Drewriting defmacro new=0Drewriting define =
(class-name->class-var sym)=0Drewriting define (class-var->class-name =
sym)=0Drewriting define-list-struct parameter=0Drewriting define =
(parse-parameters decl)=0Drewriting define (insure-parameters pars decl =
supers)=0Drewriting define *time-slots*=0Drewriting define =
(find-time-parameter pars decl supers)=0Drewriting defmacro defobject=0D=
rewriting define (process-code-terminates? code stop)=0Drewriting define =
(parse-process-clause forms clauses ops)=0Drewriting define =
(parse-set-clause forms clauses ops)=0Drewriting define =
(process-while-until forms clauses ops)=0Drewriting define =
*each-operators*=0Drewriting define (parse-each forms clauses ops)=0D=
rewriting define *process-operators*=0Drewriting defmacro process=0D=
rewriting defmacro defprocess=0Drewriting define-class <event-stream>=0D=
rewriting define (io-classes)=0Drewriting define (io-filename io)=0D=
skipping define-generic insure-io=0Dskipping define-generic open-io=0D=
skipping define-generic close-io=0Dskipping define-generic initialize-io=0D=
skipping define-generic deinitialize-io=0Dskipping define-generic play=0D=
skipping define-generic write-event=0Dskipping define-generic =
import-events=0Drewriting define (file-versions? stream)=0Drewriting =
define (io-stream-classes)=0Drewriting define (filename->io-class path)=0D=
skipping define-generic io-handler-args?=0Dskipping define-generic =
set-io-handler-args!=0Dskipping define-generic io-handler-args=0D=
rewriting define-method (io-handler-args? (io <event-stream>))=0D=
rewriting define-method (set-io-handler-args! (io <event-stream>) args)=0D=
rewriting define-method (io-handler-args (io <event-stream>))=0D=
rewriting defmacro io=0Drewriting define-method (insure-io io . inits)=0D=
rewriting define-method (insure-io (string <string>) . inits)=0D=
rewriting define-method (insure-io (io <event-stream>) . inits)=0D=
rewriting define (file-output-filename file)=0Drewriting define-method =
(open-io (obj <string>) dir . args)=0Drewriting define-method (open-io =
(obj <event-stream>) dir . args)=0Drewriting define-method (open-io (obj =
<seq>) dir . args)=0Drewriting define-method (close-io io . mode)=0D=
rewriting define-method (close-io (io <event-stream>) . mode)=0D=
rewriting define-method (initialize-io obj)=0Drewriting define-method =
(deinitialize-io obj)=0Drewriting define (io-open? io)=0Drewriting =
defmacro with-open-io=0Drewriting define *in*=0Drewriting define *out*=0D=
rewriting define *last-output-file*=0Drewriting define (events object to =
. args)=0Drewriting define-method (write-event obj io time)=0Drewriting =
define-method (write-event obj (io <seq>) time)=0Drewriting =
define-method (import-events (file <string>) . args)=0Drewriting =
defmacro %qe-time=0Drewriting defmacro %qe-time-set!=0Drewriting =
defmacro %qe-start=0Drewriting defmacro %qe-start-set!=0Drewriting =
defmacro %qe-object=0Drewriting defmacro %qe-object-set!=0Drewriting =
defmacro %qe-next=0Drewriting defmacro %qe-next-set!=0Drewriting =
defmacro %q-head=0Drewriting defmacro %q-head-set!=0Drewriting defmacro =
%q-last=0Drewriting defmacro %q-last-set!=0Drewriting defmacro %q-peek=0D=
rewriting defmacro %q-pop=0Drewriting defmacro %qe-alloc=0Drewriting =
defmacro %qe-dealloc=0Drewriting define %q=0Drewriting dotimes=0D=
rewriting defmacro %q-insert=0Drewriting define (pq . args)=0Drewriting =
define (%q-flush q)=0Drewriting define *queue*=0Drewriting define =
(schedule-events function object . args)=0Drewriting define (enqueue =
object time start)=0Drewriting define (early? tim)=0Drewriting =
define-method (schedule-object (obj <object>) start)=0Drewriting =
define-method (schedule-object (obj <procedure>) start)=0Drewriting =
define-method (schedule-object (obj <pair>) start)=0Drewriting =
define-method (schedule-object (obj <seq>) start)=0Drewriting =
define-method (unschedule-object obj . recurse)=0Drewriting =
define-method (process-events obj time start func)=0Drewriting =
define-method (process-events (head <pair>) time start func)=0Drewriting =
define *qstart*=0Drewriting define *qtime*=0Drewriting define *qnext*=0D=
rewriting define *process*=0Drewriting define *handler*=0Drewriting =
define-method (process-events (func <procedure>) qtime qstart handler)=0D=
rewriting define (output event . args)=0Drewriting define (now . args)=0D=
rewriting defmacro stop=0Drewriting define (wait delta)=0Drewriting =
define (wait-until time)=0Drewriting define-method (sprout (obj =
<object>) time)=0Drewriting define-method (sprout (obj <procedure>) =
time)=0Drewriting define-method (sprout (obj <pair>) time)=0Drewriting =
define (sco-par-print par objv filv timv)=0Drewriting define =
(make-sco-writer objclassname objclassvar pars supers sdecl)=0Drewriting =
define-class <sco-stream>=0Drewriting define-method (io-handler-args? =
(io <sco-stream>))=0Drewriting define-method (io-handler-args (io =
<sco-stream>))=0Drewriting define-method (set-io-handler-args! (io =
<sco-stream>) args)=0Drewriting define (set-sco-output-hook! fn)=0D=
rewriting define *csound*=0Drewriting define (play-sco-file file . args)=0D=
rewriting define (set-sco-file-versions! val)=0Drewriting define-method =
(initialize-io (io <sco-stream>))=0Drewriting defobject i=0Drewriting =
define-method (object-name (obj <i>))=0Drewriting defobject f=0D=
rewriting define-method (object-name (obj <f>))=0Drewriting define =
(clm-print-par-value v s)=0Drewriting define (clm-par-print par objv =
filv timv)=0Drewriting define (clm-writer objclassname objclassvar pars =
supers sdecl)=0Drewriting define-class <clm-stream>=0Drewriting define =
(set-clm-output-hook! fn)=0Drewriting define (set-clm-file-versions! =
val)=0Drewriting define-method (io-handler-args? (io <clm-stream>))=0D=
rewriting define-method (io-handler-args (io <clm-stream>))=0Drewriting =
define-method (set-io-handler-args! (io <clm-stream>) args)=0Drewriting =
define-method (initialize-io (io <clm-stream>))=0Drewriting define =
(play-clm-file file . args)=0Drewriting define (snd-writer objclassname =
objclassvar pars supers sdecl)=0Drewriting define-class =
<clm-audio-stream>=0Drewriting define (set-audio-output-hook! fn)=0D=
rewriting define (set-audio-file-versions! val)=0Drewriting =
define-method (io-handler-args? (io <clm-audio-stream>))=0Drewriting =
define-method (io-handler-args (io <clm-audio-stream>))=0Drewriting =
define-method (set-io-handler-args! (io <clm-audio-stream>) args)=0D=
rewriting define (formals->defobject form . args)=0Drewriting =
define-method (open-io (io <clm-audio-stream>) dir . args)=0Drewriting =
define-method (close-io (io <clm-audio-stream>) . mode)=0Drewriting =
define (tell-snd file . args)=0Dskipping define definstrument=0D=
rewriting defmacro definstrument=0Drewriting define-class <cmn-stream>=0D=
rewriting define (set-cmn-output-hook! fn)=0Drewriting define =
(set-cmn-stream-versions! val)=0Drewriting define-method =
(io-handler-args? (io <cmn-stream>))=0Drewriting define-method =
(io-handler-args (io <cmn-stream>))=0Drewriting define-method =
(set-io-handler-args! (io <cmn-stream>) args)=0Drewriting define =
*cmn-staves*=0Drewriting define (make-staffing id . args)=0Drewriting =
define-method (close-io (io <cmn-stream>) . mode)=0Drewriting =
define-method (open-io (io <cmn-stream>) dir . args)=0Drewriting =
define-method (initialize-io (io <cmn-stream>))=0Drewriting define =
(set-staff-meter staff meter)=0Drewriting define-method (deinitialize-io =
(io <cmn-stream>))=0Drewriting define (cmn-eval form)=0Drewriting define =
(add-default-staff id score)=0Drewriting define-method (write-event (obj =
<standard-object>) (io <cmn-stream>)=0D               scoretime)=0D=
rewriting define-method (object->cmn (obj <midi>))=0Drewriting define =
+enc-route-byte+=0Drewriting define +enc-lower-status-byte+=0Drewriting =
define +enc-upper-status-byte+=0Drewriting define =
+enc-swapped-status-byte+=0Drewriting define +enc-logical-channel-byte+=0D=
rewriting define +enc-opcode-byte+=0Drewriting define +enc-data-1-byte+=0D=
rewriting define +enc-data-2-byte+=0Drewriting define +enc-route-offs+=0D=
rewriting define +enc-lower-status-offs+=0Drewriting define =
+enc-upper-status-offs+=0Drewriting define +enc-swapped-status-offs+=0D=
rewriting define +enc-logical-channel-offs+=0Drewriting define =
+enc-opcode-offs+=0Drewriting define +enc-data-1-offs+=0Drewriting =
define +enc-data-2-offs+=0Drewriting define +enc-note-off-mask+=0D=
rewriting define +ml-note-off-opcode+=0Drewriting define =
+ml-note-on-opcode+=0Drewriting define +ml-key-pressure-opcode+=0D=
rewriting define +ml-control-change-opcode+=0Drewriting define =
+ml-program-change-opcode+=0Drewriting define =
+ml-channel-pressure-opcode+=0Drewriting define +ml-pitch-bend-opcode+=0D=
rewriting define +ml-default-note-on-velocity+=0Drewriting define =
+ml-default-note-off-velocity+=0Drewriting define +ml-msg-sysex-type+=0D=
rewriting define +ml-msg-mtc-quarter-frame-type+=0Drewriting define =
+ml-msg-song-position-type+=0Drewriting define +ml-msg-song-select-type+=0D=
rewriting define +ml-msg-cable-select-type+=0Drewriting define =
+ml-msg-tune-request-type+=0Drewriting define +ml-msg-eox-type+=0D=
rewriting define +ml-msg-timing-clock-type+=0Drewriting define =
+ml-msg-timing-tick-type+=0Drewriting define +ml-msg-start-type+=0D=
rewriting define +ml-msg-continue-type+=0Drewriting define =
+ml-msg-stop-type+=0Drewriting define +ml-msg-active-sensing-type+=0D=
rewriting define +ml-msg-system-reset-type+=0Drewriting define =
+ml-meta-type+=0Drewriting define +ml-file-meta-marker+=0Drewriting =
define +ml-file-sequence-number-opcode+=0Drewriting define =
+ml-file-text-event-opcode+=0Drewriting define =
+ml-file-copyright-note-opcode+=0Drewriting define =
+ml-file-sequence/track-name-opcode+=0Drewriting define =
+ml-file-instrument-name-opcode+=0Drewriting define =
+ml-file-lyric-opcode+=0Drewriting define +ml-file-marker-opcode+=0D=
rewriting define +ml-file-cue-point-opcode+=0Drewriting define =
+ml-file-midi-channel-opcode+=0Drewriting define =
+ml-file-midi-port-opcode+=0Drewriting define +ml-file-eot-opcode+=0D=
rewriting define +ml-file-tempo-change-opcode+=0Drewriting define =
+ml-file-smpte-offset-opcode+=0Drewriting define =
+ml-file-time-signature-opcode+=0Drewriting define =
+ml-file-key-signature-opcode+=0Drewriting define =
+ml-file-sequencer-event-opcode+=0Drewriting define (midimsg-data1 =
message)=0Drewriting define (midimsg-data2 message)=0Drewriting define =
(midi-channel-message-p message)=0Drewriting define =
(midi-system-message-p message)=0Drewriting define (midi-meta-message-p =
message)=0Drewriting define +channel-message-sizes+=0Drewriting define =
+system-message-sizes+=0Drewriting define +ml-channel-msg-type-strings+=0D=
rewriting define +ml-msg-type-strings+=0Drewriting define =
+ml-meta-msg-type-strings+=0Drewriting define (get-meta-msg-type-string =
type)=0Drewriting define (midimsg-logical-channel m)=0Drewriting define =
(midimsg-route m)=0Drewriting define (midimsg-opcode m)=0Drewriting =
define (midimsg-upper-status m)=0Drewriting define (midimsg-lower-status =
m)=0Drewriting define (midimsg-status m)=0Drewriting define =
(midimsg-size m)=0Drewriting define (channel-note-hash m)=0Drewriting =
define (%midi-encode-channel-message bytes size)=0Drewriting define =
*midi-open*=0Drewriting define *midi-time*=0Drewriting defmacro =
define-message-set!=0Drewriting define (make-channel-message opcode =
channel data1 . args)=0Drewriting define (channel-message-p message)=0D=
rewriting define (channel-message-channel message)=0Drewriting define =
(channel-message-opcode message)=0Drewriting define =
(channel-message-data1 message)=0Drewriting define =
(channel-message-data2 message)=0Drewriting define-message-set! =
channel-message-channel=0Drewriting define-message-set! =
channel-message-opcode=0Drewriting define-message-set! =
channel-message-data1=0Drewriting define-message-set! =
channel-message-data2=0Drewriting define (make-note-off channel key =
velocity)=0Drewriting define (note-off-p message)=0Drewriting define =
(note-off-channel message)=0Drewriting define (note-off-key message)=0D=
rewriting define (note-off-velocity message)=0Drewriting =
define-message-set! note-off-channel=0Drewriting define-message-set! =
note-off-key=0Drewriting define-message-set! note-off-velocity=0D=
rewriting define (make-note-on channel key velocity)=0Drewriting define =
(note-on-p message)=0Drewriting define (note-on-channel message)=0D=
rewriting define (note-on-key message)=0Drewriting define =
(note-on-velocity message)=0Drewriting define-message-set! =
note-on-channel=0Drewriting define-message-set! note-on-key=0Drewriting =
define-message-set! note-on-velocity=0Drewriting define =
(make-key-pressure channel key pressure)=0Drewriting define =
(key-pressure-p message)=0Drewriting define (key-pressure-channel =
message)=0Drewriting define (key-pressure-key message)=0Drewriting =
define (key-pressure-pressure message)=0Drewriting define-message-set! =
key-pressure-channel=0Drewriting define-message-set! key-pressure-key=0D=
rewriting define-message-set! key-pressure-pressure=0Drewriting define =
(make-control-change channel controller value)=0Drewriting define =
(control-change-p message)=0Drewriting define (control-change-channel =
message)=0Drewriting define (control-change-controller message)=0D=
rewriting define (control-change-value message)=0Drewriting =
define-message-set! control-change-channel=0Drewriting =
define-message-set! control-change-controller=0Drewriting =
define-message-set! control-change-value=0Drewriting define =
(make-program-change channel program)=0Drewriting define =
(program-change-p message)=0Drewriting define (program-change-channel =
message)=0Drewriting define (program-change-program message)=0Drewriting =
define-message-set! program-change-channel=0Drewriting =
define-message-set! program-change-program=0Drewriting define =
(make-channel-pressure channel pressure)=0Drewriting define =
(channel-pressure-p message)=0Drewriting define =
(channel-pressure-channel message)=0Drewriting define =
(channel-pressure-pressure message)=0Drewriting define-message-set! =
channel-pressure-channel=0Drewriting define-message-set! =
channel-pressure-pressure=0Drewriting define (make-pitch-bend channel =
value . args)=0Drewriting define (pitch-bend-p message)=0Drewriting =
define (pitch-bend-channel message)=0Drewriting define (pitch-bend-lsb =
message)=0Drewriting define (pitch-bend-msb message)=0Drewriting =
define-message-set! pitch-bend-channel=0Drewriting define-message-set! =
pitch-bend-lsb=0Drewriting define-message-set! pitch-bend-msb=0D=
rewriting define (make-system-message type route . args)=0Drewriting =
define (system-message-p message)=0Drewriting define =
(system-message-route message)=0Drewriting define (system-message-status =
message)=0Drewriting define (system-message-data1 message)=0Drewriting =
define (system-message-data2 message)=0Drewriting define-message-set! =
system-message-route=0Drewriting define-message-set! =
system-message-status=0Drewriting define-message-set! =
system-message-data1=0Drewriting define-message-set! =
system-message-data2=0Drewriting define (make-sysex-data . args)=0D=
rewriting define (make-sysex route data)=0Drewriting define (sysex-p =
message)=0Drewriting define (sysex-route message)=0Drewriting =
define-message-set! sysex-route=0Drewriting define =
(make-mtc-quarter-frame route tag nibble)=0Drewriting define =
(mtc-quarter-frame-p message)=0Drewriting define =
(mtc-quarter-frame-route message)=0Drewriting define =
(mtc-quarter-frame-tag message)=0Drewriting define =
(mtc-quarter-frame-nibble message)=0Drewriting define-message-set! =
mtc-quarter-frame-route=0Drewriting define (make-song-position route lsb =
msb)=0Drewriting define (song-position-p message)=0Drewriting define =
(song-position-route message)=0Drewriting define (song-position-lsb =
message)=0Drewriting define (song-position-msb message)=0Drewriting =
define-message-set! song-position-route=0Drewriting define-message-set! =
song-position-lsb=0Drewriting define-message-set! song-position-msb=0D=
rewriting define (make-song-select route song)=0Drewriting define =
(song-select-p message)=0Drewriting define (song-select-route message)=0D=
rewriting define (song-select-song message)=0Drewriting =
define-message-set! song-select-route=0Drewriting define-message-set! =
song-select-song=0Drewriting define (make-cable-select route cable)=0D=
rewriting define (cable-select-p message)=0Drewriting define =
(cable-select-route message)=0Drewriting define (cable-select-cable =
message)=0Drewriting define-message-set! cable-select-route=0Drewriting =
define-message-set! cable-select-cable=0Drewriting define =
(make-tune-request route)=0Drewriting define (tune-request-p message)=0D=
rewriting define (tune-request-route message)=0Drewriting =
define-message-set! tune-request-route=0Drewriting define (make-eox =
route)=0Drewriting define (eox-p message)=0Drewriting define (eox-route =
message)=0Drewriting define-message-set! eox-route=0Drewriting define =
(make-timing-clock route)=0Drewriting define (timing-clock-p message)=0D=
rewriting define (timing-clock-route message)=0Drewriting =
define-message-set! timing-clock-route=0Drewriting define =
(make-timing-tick route)=0Drewriting define (timing-tick-p message)=0D=
rewriting define (timing-tick-route message)=0Drewriting =
define-message-set! timing-tick-route=0Drewriting define (make-start =
route)=0Drewriting define (start-p message)=0Drewriting define =
(start-route message)=0Drewriting define-message-set! start-route=0D=
rewriting define (make-continue route)=0Drewriting define (continue-p =
message)=0Drewriting define (continue-route message)=0Drewriting =
define-message-set! continue-route=0Drewriting define (make-stop route)=0D=
rewriting define (stop-p message)=0Drewriting define (stop-route =
message)=0Drewriting define-message-set! stop-route=0Drewriting define =
(make-active-sensing route)=0Drewriting define (active-sensing-p =
message)=0Drewriting define (active-sensing-route message)=0Drewriting =
define-message-set! active-sensing-route=0Drewriting define =
(make-system-reset route)=0Drewriting define (system-reset-p message)=0D=
rewriting define (system-reset-route message)=0Drewriting =
define-message-set! system-reset-route=0Drewriting define =
(make-meta-message type . data-bytes)=0Drewriting define (meta-message-p =
message)=0Drewriting define (meta-message-type message)=0Drewriting =
define-message-set! meta-message-type=0Drewriting define =
(make-sequence-number num)=0Drewriting define (sequence-number-p =
message)=0Drewriting define (make-text-event string . args)=0Drewriting =
define (text-event-p message)=0Drewriting define +text-meta-event-types+=0D=
rewriting define (text-meta-event-p message)=0Drewriting define =
(text-meta-event-data-to-string data)=0Drewriting define =
(make-copyright-note string)=0Drewriting define (copyright-note-p =
message)=0Drewriting define (make-sequence/track-name string)=0D=
rewriting define (sequence/track-name-p message)=0Drewriting define =
(make-instrument-name string)=0Drewriting define (instrument-name-p =
message)=0Drewriting define (make-lyric string)=0Drewriting define =
(lyric-p message)=0Drewriting define (make-marker string)=0Drewriting =
define (marker-p message)=0Drewriting define (make-cue-point string)=0D=
rewriting define (cue-point-p message)=0Drewriting define =
(make-midi-channel channel)=0Drewriting define (midi-channel-p message)=0D=
rewriting define (make-midi-port port)=0Drewriting define (midi-port-p =
message)=0Drewriting define (make-eot)=0Drewriting define (eot-p =
message)=0Drewriting define (make-tempo-change usecs-per-beat)=0D=
rewriting define (tempo-change-p message)=0Drewriting define =
(make-smpte-offset hours mins secs frames fractional-frames)=0Drewriting =
define (smpte-offset-p message)=0Drewriting define (make-time-signature =
numerator denominator . args)=0Drewriting define (time-signature-p =
message)=0Drewriting define (make-key-signature key . args)=0Drewriting =
define (key-signature-p message)=0Drewriting define =
(make-sequencer-event . data)=0Drewriting define (sequencer-event-p =
message)=0Drewriting define (midi-print-channel-message stream gm? size =
type channel data1=0D        data2 time-string)=0Drewriting define =
*midi-gm-mode*=0Drewriting define (%print-sysex-aux stream data bytes =
rest indent)=0Drewriting define (print-sysex-data stream string lines =
data length)=0Drewriting define (midi-print-message msg . args)=0D=
rewriting define %deflabelvar%=0Drewriting defmacro deflabel=0Drewriting =
define +midi-controller-strings+=0Drewriting defmacro defcontroller=0D=
rewriting define (midi-opcode-name vec code lb ub delta)=0Drewriting =
define (midi-controller-name c)=0Drewriting defcontroller +bank-select+=0D=
rewriting defcontroller +modulation-wheel+=0Drewriting defcontroller =
+breath-control+=0Drewriting defcontroller +foot-controller+=0Drewriting =
defcontroller +portamento-time+=0Drewriting defcontroller +data-entry+=0D=
rewriting defcontroller +channel-volume+=0Drewriting define +volume+=0D=
rewriting defcontroller +balance+=0Drewriting defcontroller +pan+=0D=
rewriting defcontroller +expression-controller+=0Drewriting =
defcontroller +effect-control-1+=0Drewriting defcontroller =
+effect-control-2+=0Drewriting defcontroller =
+general-purpose-controller-1+=0Drewriting defcontroller =
+general-purpose-controller-2+=0Drewriting defcontroller =
+general-purpose-controller-3+=0Drewriting defcontroller =
+general-purpose-controller-4+=0Drewriting defcontroller =
+bank-select-fine+=0Drewriting defcontroller +modulation-wheel-fine+=0D=
rewriting defcontroller +breath-control-fine+=0Drewriting defcontroller =
+foot-controller-fine+=0Drewriting defcontroller +portamento-time-fine+=0D=
rewriting defcontroller +data-entry-fine+=0Drewriting defcontroller =
+channel-volume-fine+=0Drewriting define +volume-fine+=0Drewriting =
defcontroller +balance-fine+=0Drewriting defcontroller +pan-fine+=0D=
rewriting defcontroller +expression-controller-fine+=0Drewriting =
defcontroller +effect-control-1-fine+=0Drewriting defcontroller =
+effect-control-2-fine+=0Drewriting defcontroller =
+general-purpose-controller-1-fine+=0Drewriting defcontroller =
+general-purpose-controller-2-fine+=0Drewriting defcontroller =
+general-purpose-controller-3-fine+=0Drewriting defcontroller =
+general-purpose-controller-4-fine+=0Drewriting defcontroller +hold-1+=0D=
rewriting define +sustain+=0Drewriting define +damper-pedal+=0Drewriting =
defcontroller +portamento+=0Drewriting defcontroller +sostenuto+=0D=
rewriting defcontroller +soft-pedal+=0Drewriting defcontroller =
+legato-footswitch+=0Drewriting defcontroller +hold-2+=0Drewriting =
defcontroller +sound-control-1+=0Drewriting define +sound-variation+=0D=
rewriting defcontroller +sound-control-2+=0Drewriting define =
+sound-timbre+=0Drewriting defcontroller +sound-control-3+=0Drewriting =
define +sound-release-time+=0Drewriting defcontroller +sound-control-4+=0D=
rewriting define +sound-attack-time+=0Drewriting defcontroller =
+sound-control-5+=0Drewriting define +sound-brightness+=0Drewriting =
defcontroller +sound-control-6+=0Drewriting defcontroller =
+sound-control-7+=0Drewriting defcontroller +sound-control-8+=0D=
rewriting defcontroller +sound-control-9+=0Drewriting defcontroller =
+sound-control-10+=0Drewriting defcontroller =
+general-purpose-controller-5+=0Drewriting defcontroller =
+general-purpose-controller-6+=0Drewriting defcontroller =
+general-purpose-controller-7+=0Drewriting defcontroller =
+general-purpose-controller-8+=0Drewriting defcontroller =
+portamento-control+=0Drewriting defcontroller +effects-1-depth+=0D=
rewriting define +effects-level+=0Drewriting defcontroller =
+effects-2-depth+=0Drewriting define +tremolo-level+=0Drewriting =
defcontroller +effects-3-depth+=0Drewriting define +chorus-level+=0D=
rewriting defcontroller +effects-4-depth+=0Drewriting define =
+detune-level+=0Drewriting defcontroller +effects-5-depth+=0Drewriting =
define +phasor-level+=0Drewriting defcontroller +data-entry-+1+=0D=
rewriting define +data-entry-increment+=0Drewriting defcontroller =
+data-entry--1+=0Drewriting define +data-entry-decrement+=0Drewriting =
defcontroller +non-registered-parameter-number-fine+=0Drewriting =
defcontroller +non-registered-parameter-number+=0Drewriting =
defcontroller +registered-parameter-number-fine+=0Drewriting =
defcontroller +registered-parameter-number+=0Drewriting defcontroller =
+all-sound-off+=0Drewriting defcontroller +reset-all-controllers+=0D=
rewriting defcontroller +local-control+=0Drewriting defcontroller =
+all-notes-off+=0Drewriting defcontroller +omni-mode-off+=0Drewriting =
defcontroller +omni-mode-on+=0Drewriting defcontroller =
+poly-mode-on/off+=0Drewriting defcontroller +poly-mode-on+=0Drewriting =
define +rpn-pitch-bend-sensitivity+=0Drewriting define +rpn-fine-tuning+=0D=
rewriting define +rpn-coarse-tuning+=0Drewriting define +rpn-reset+=0D=
rewriting define +gm-patch-strings+=0Drewriting define =
+gm-drum-kit-strings+=0Drewriting defmacro defgmpatch=0Drewriting =
defmacro defgmdrum=0Drewriting define (gm-patch-name patch)=0Drewriting =
define (gm-drum-kit-name key)=0Drewriting defgmpatch =
+acoustic-grand-piano+=0Drewriting defgmpatch +bright-acoustic-piano+=0D=
rewriting defgmpatch +electric-grand-piano+=0Drewriting defgmpatch =
+honky-tonk-piano+=0Drewriting defgmpatch +electric-piano-1+=0Drewriting =
defgmpatch +electric-piano-2+=0Drewriting defgmpatch +harpsichord+=0D=
rewriting defgmpatch +clavi+=0Drewriting defgmpatch +celesta+=0D=
rewriting defgmpatch +glockenspiel+=0Drewriting defgmpatch +music-box+=0D=
rewriting defgmpatch +vibraphone+=0Drewriting defgmpatch +marimba+=0D=
rewriting defgmpatch +xylophone+=0Drewriting defgmpatch +tubular-bells+=0D=
rewriting defgmpatch +dulcimer+=0Drewriting defgmpatch +drawbar-organ+=0D=
rewriting defgmpatch +percussive-organ+=0Drewriting defgmpatch =
+rock-organ+=0Drewriting defgmpatch +church-organ+=0Drewriting =
defgmpatch +reed-organ+=0Drewriting defgmpatch +accordion+=0Drewriting =
defgmpatch +harmonica+=0Drewriting defgmpatch +tango-accordion+=0D=
rewriting defgmpatch +acoustic-guitar-nylon+=0Drewriting defgmpatch =
+acoustic-guitar-steel+=0Drewriting defgmpatch +electric-guitar-jazz+=0D=
rewriting defgmpatch +electric-guitar-clean+=0Drewriting defgmpatch =
+electric-guitar-muted+=0Drewriting defgmpatch +overdriven-guitar+=0D=
rewriting defgmpatch +distortion-guitar+=0Drewriting defgmpatch =
+guitar-harmonics+=0Drewriting defgmpatch +acoustic-bass+=0Drewriting =
defgmpatch +electric-bass-finger+=0Drewriting defgmpatch =
+electric-bass-pick+=0Drewriting defgmpatch +fretless-bass+=0Drewriting =
defgmpatch +slap-bass-1+=0Drewriting defgmpatch +slap-bass-2+=0D=
rewriting defgmpatch +synth-bass-1+=0Drewriting defgmpatch =
+synth-bass-2+=0Drewriting defgmpatch +violin+=0Drewriting defgmpatch =
+viola+=0Drewriting defgmpatch +cello+=0Drewriting defgmpatch =
+contrabass+=0Drewriting defgmpatch +tremolo-strings+=0Drewriting =
defgmpatch +pizzicato-strings+=0Drewriting defgmpatch =
+orchestral-strings+=0Drewriting defgmpatch +timpani+=0Drewriting =
defgmpatch +string-ensemble-1+=0Drewriting defgmpatch =
+string-ensemble-2+=0Drewriting defgmpatch +synthstrings-1+=0Drewriting =
defgmpatch +synthstrings-2+=0Drewriting defgmpatch +choir-aahs+=0D=
rewriting defgmpatch +voice-oohs+=0Drewriting defgmpatch +synth-voice+=0D=
rewriting defgmpatch +orchestra-hit+=0Drewriting defgmpatch +trumpet+=0D=
rewriting defgmpatch +trombone+=0Drewriting defgmpatch +tuba+=0D=
rewriting defgmpatch +muted-trumpet+=0Drewriting defgmpatch =
+french-horn+=0Drewriting defgmpatch +brass-section+=0Drewriting =
defgmpatch +synthbrass-1+=0Drewriting defgmpatch +synthbrass-2+=0D=
rewriting defgmpatch +soprano-sax+=0Drewriting defgmpatch +alto-sax+=0D=
rewriting defgmpatch +tenor-sax+=0Drewriting defgmpatch +baritone-sax+=0D=
rewriting defgmpatch +oboe+=0Drewriting defgmpatch +english-horn+=0D=
rewriting defgmpatch +bassoon+=0Drewriting defgmpatch +clarinet+=0D=
rewriting defgmpatch +piccolo+=0Drewriting defgmpatch +flute+=0D=
rewriting defgmpatch +recorder+=0Drewriting defgmpatch +pan-flute+=0D=
rewriting defgmpatch +blown-bottle+=0Drewriting defgmpatch +skakuhachi+=0D=
rewriting defgmpatch +whistle+=0Drewriting defgmpatch +ocarina+=0D=
rewriting defgmpatch +lead-1-square+=0Drewriting define +lead-1+=0D=
rewriting define +square-lead+=0Drewriting define +square+=0Drewriting =
defgmpatch +lead-2-sawtooth+=0Drewriting define +lead-2+=0Drewriting =
define +sawtooth-lead+=0Drewriting define +sawtooth+=0Drewriting =
defgmpatch +lead-3-calliope+=0Drewriting define +lead-3+=0Drewriting =
define +calliope-lead+=0Drewriting define +calliope+=0Drewriting =
defgmpatch +lead-4-chiff+=0Drewriting define +lead-4+=0Drewriting define =
+chiff-lead+=0Drewriting define +chiff+=0Drewriting defgmpatch =
+lead-5-charang+=0Drewriting define +lead-5+=0Drewriting define =
+charang-lead+=0Drewriting define +charang+=0Drewriting defgmpatch =
+lead-6-voice+=0Drewriting define +lead-6+=0Drewriting define =
+voice-lead+=0Drewriting define +voice+=0Drewriting defgmpatch =
+lead-7-fifths+=0Drewriting define +lead-7+=0Drewriting define =
+fifths-lead+=0Drewriting define +fifths+=0Drewriting defgmpatch =
+lead-8-bass+lead+=0Drewriting define +lead-8+=0Drewriting define =
+bass+lead-lead+=0Drewriting define +bass+lead+=0Drewriting defgmpatch =
+pad-1-new-age+=0Drewriting define +pad-1+=0Drewriting define =
+new-age-pad+=0Drewriting define +new-age+=0Drewriting defgmpatch =
+pad-2-warm+=0Drewriting define +pad-2+=0Drewriting define +warm-pad+=0D=
rewriting define +warm+=0Drewriting defgmpatch +pad-3-polysynth+=0D=
rewriting define +pad-3+=0Drewriting define +polysynth-pad+=0Drewriting =
define +polysynth+=0Drewriting defgmpatch +pad-4-choir+=0Drewriting =
define +pad-4+=0Drewriting define +choir-pad+=0Drewriting define +choir+=0D=
rewriting defgmpatch +pad-5-bowed+=0Drewriting define +pad-5+=0D=
rewriting define +bowed-pad+=0Drewriting define +bowed+=0Drewriting =
defgmpatch +pad-6-metallic+=0Drewriting define +pad-6+=0Drewriting =
define +metallic-pad+=0Drewriting define +metallic+=0Drewriting =
defgmpatch +pad-7-halo+=0Drewriting define +pad-7+=0Drewriting define =
+halo-pad+=0Drewriting define +halo+=0Drewriting defgmpatch =
+pad-8-sweep+=0Drewriting define +pad-8+=0Drewriting define +sweep-pad+=0D=
rewriting define +sweep+=0Drewriting defgmpatch +fx-1-rain+=0Drewriting =
define +fx-1+=0Drewriting define +rain-fx+=0Drewriting define +rain+=0D=
rewriting defgmpatch +fx-2-soundtrack+=0Drewriting define +fx-2+=0D=
rewriting define +soundtrack-fx+=0Drewriting define +soundtrack+=0D=
rewriting defgmpatch +fx-3-crystal+=0Drewriting define +fx-3+=0D=
rewriting define +crystal-fx+=0Drewriting define +crystal+=0Drewriting =
defgmpatch +fx-4-atmosphere+=0Drewriting define +fx-4+=0Drewriting =
define +atmosphere-fx+=0Drewriting define +atmosphere+=0Drewriting =
defgmpatch +fx-5-brightness+=0Drewriting define +fx-5+=0Drewriting =
define +brightness-fx+=0Drewriting define +brightness+=0Drewriting =
defgmpatch +fx-6-goblins+=0Drewriting define +fx-6+=0Drewriting define =
+goblins-fx+=0Drewriting define +goblins+=0Drewriting defgmpatch =
+fx-7-echoes+=0Drewriting define +fx-7+=0Drewriting define +echoes-fx+=0D=
rewriting define +echoes+=0Drewriting defgmpatch +fx-8-sci-fi+=0D=
rewriting define +fx-8+=0Drewriting define +sci-fi-fx+=0Drewriting =
define +sci-fi+=0Drewriting defgmpatch +sitar+=0Drewriting defgmpatch =
+banjo+=0Drewriting defgmpatch +shamisen+=0Drewriting defgmpatch +koto+=0D=
rewriting defgmpatch +kalimba+=0Drewriting defgmpatch +bagpipe+=0D=
rewriting defgmpatch +fiddle+=0Drewriting defgmpatch +shanai+=0D=
rewriting defgmpatch +tinkle-bell+=0Drewriting defgmpatch +agogo+=0D=
rewriting defgmpatch +steel-drums+=0Drewriting defgmpatch +woodblock+=0D=
rewriting defgmpatch +taiko-drum+=0Drewriting defgmpatch +melodic-tom+=0D=
rewriting defgmpatch +synth-drum+=0Drewriting defgmpatch =
+reverse-cymbal+=0Drewriting defgmpatch +guitar-fret-noise+=0Drewriting =
defgmpatch +breath-noise+=0Drewriting defgmpatch +seashore+=0Drewriting =
defgmpatch +bird-tweet+=0Drewriting defgmpatch +telephone-ring+=0D=
rewriting defgmpatch +helicopter+=0Drewriting defgmpatch +applause+=0D=
rewriting defgmpatch +gunshot+=0Drewriting define =
*gm-percussion-channels*=0Drewriting define (gm-percussion-channel-p =
chan)=0Drewriting defgmdrum +acoustic-bass-drum+=0Drewriting defgmdrum =
+bass-drum-1+=0Drewriting defgmdrum +side-stick+=0Drewriting defgmdrum =
+acoustic-snare+=0Drewriting defgmdrum +hand-clap+=0Drewriting defgmdrum =
+electric-snare+=0Drewriting defgmdrum +low-floor-tom+=0Drewriting =
defgmdrum +closed-hi-hat+=0Drewriting defgmdrum +high-floor-tom+=0D=
rewriting defgmdrum +pedal-hi-hat+=0Drewriting defgmdrum +low-tom+=0D=
rewriting defgmdrum +open-hi-hat+=0Drewriting defgmdrum +low-mid-tom+=0D=
rewriting defgmdrum +hi-mid-tom+=0Drewriting defgmdrum +crash-cymbal-1+=0D=
rewriting defgmdrum +high-tom+=0Drewriting defgmdrum +ride-cymbal-1+=0D=
rewriting defgmdrum +chinese-cymbal+=0Drewriting defgmdrum +ride-bell+=0D=
rewriting defgmdrum +tambourine+=0Drewriting defgmdrum +splash-cymbal+=0D=
rewriting defgmdrum +cowbell+=0Drewriting defgmdrum +crash-cymbal-2+=0D=
rewriting defgmdrum +vibraslap+=0Drewriting defgmdrum +ride-cymbal-2+=0D=
rewriting defgmdrum +hi-bongo+=0Drewriting defgmdrum +low-bongo+=0D=
rewriting defgmdrum +mute-hi-conga+=0Drewriting defgmdrum =
+open-hi-conga+=0Drewriting defgmdrum +low-conga+=0Drewriting defgmdrum =
+high-timbale+=0Drewriting defgmdrum +low-timbale+=0Drewriting defgmdrum =
+high-agogo+=0Drewriting defgmdrum +low-agogo+=0Drewriting defgmdrum =
+cabasa+=0Drewriting defgmdrum +maracas+=0Drewriting defgmdrum =
+short-whistle+=0Drewriting defgmdrum +long-whistle+=0Drewriting =
defgmdrum +short-guiro+=0Drewriting defgmdrum +long-guiro+=0Drewriting =
defgmdrum +claves+=0Drewriting defgmdrum +hi-wood-block+=0Drewriting =
defgmdrum +low-wood-block+=0Drewriting defgmdrum +mute-cuica+=0D=
rewriting defgmdrum +open-cuica+=0Drewriting defgmdrum +mute-triangle+=0D=
rewriting defgmdrum +open-triangle+=0Drewriting define =
+sequential-circuits-id+=0Drewriting define +idp-id+=0Drewriting define =
+voyetra-id+=0Drewriting define +moog-id+=0Drewriting define =
+passport-id+=0Drewriting define +lexicon-id+=0Drewriting define =
+kurzweil-id+=0Drewriting define +fender-id+=0Drewriting define =
+gulbransen-id+=0Drewriting define +akg-id+=0Drewriting define =
+voyce-id+=0Drewriting define +waveframe-id+=0Drewriting define +ada-id+=0D=
rewriting define +garfield-id+=0Drewriting define +ensoniq-id+=0D=
rewriting define +oberheim-id+=0Drewriting define +apple-id+=0Drewriting =
define +grey-matter-id+=0Drewriting define +digidesign-id+=0Drewriting =
define +palm-tree-id+=0Drewriting define +jl-cooper-id+=0Drewriting =
define +lowrey-id+=0Drewriting define +adams-smith-id+=0Drewriting =
define +e-mu-id+=0Drewriting define +harmony-id+=0Drewriting define =
+art-id+=0Drewriting define +baldwin-id+=0Drewriting define =
+eventide-id+=0Drewriting define +inventronics-id+=0Drewriting define =
+key-concepts-id+=0Drewriting define +clarity-id+=0Drewriting define =
+passac-id+=0Drewriting define +siel-id+=0Drewriting define =
+synthaxe-id+=0Drewriting define +stepp-id+=0Drewriting define =
+hohner-id+=0Drewriting define +twister-id+=0Drewriting define =
+solton-id+=0Drewriting define +jellinghaus-id+=0Drewriting define =
+southworth-id+=0Drewriting define +ppg-id+=0Drewriting define +jen-id+=0D=
rewriting define +solid-state-id+=0Drewriting define +audio-vertrieb-id+=0D=
rewriting define +hinton-id+=0Drewriting define +soundtracs-id+=0D=
rewriting define +elka-id+=0Drewriting define +dynachord-id+=0Drewriting =
define +clavia-id+=0Drewriting define +audio-architecture-id+=0D=
rewriting define +soundcraft-id+=0Drewriting define +wersi-id+=0D=
rewriting define +avab-id+=0Drewriting define +digigram-id+=0Drewriting =
define +waldorf-id+=0Drewriting define +quasimidi-id+=0Drewriting define =
+kawai-id+=0Drewriting define +roland-id+=0Drewriting define +korg-id+=0D=
rewriting define +yamaha-id+=0Drewriting define +casio-id+=0Drewriting =
define +moridaira-id+=0Drewriting define +kamiya-id+=0Drewriting define =
+akai-id+=0Drewriting define +japan-victor-id+=0Drewriting define =
+meisosha-id+=0Drewriting define +hoshino-gakki-id+=0Drewriting define =
+fujitsu-id+=0Drewriting define +sony-id+=0Drewriting define =
+nishin-onpa-id+=0Drewriting define +teac-id+=0Drewriting define =
+matsushita-electric-id+=0Drewriting define +fostex-id+=0Drewriting =
define +zoom-id+=0Drewriting define +midori-id+=0Drewriting define =
+matsushita-communication-id+=0Drewriting define +suzuki-id+=0Drewriting =
define +warner-id+=0Drewriting define +digital-music-id+=0Drewriting =
define +iota-id+=0Drewriting define +new-england-id+=0Drewriting define =
+artisyn-id+=0Drewriting define +ivl-id+=0Drewriting define =
+southern-music-id+=0Drewriting define +lake-butler-id+=0Drewriting =
define +alesis-id+=0Drewriting define +dod-id+=0Drewriting define =
+studer-id+=0Drewriting define +perfect-fretworks-id+=0Drewriting define =
+kat-id+=0Drewriting define +opcode-id+=0Drewriting define +rane-id+=0D=
rewriting define +spatial-sound-id+=0Drewriting define +kmx-id+=0D=
rewriting define +allen-&-heath-id+=0Drewriting define +peavey-id+=0D=
rewriting define +360-id+=0Drewriting define +spectrum-id+=0Drewriting =
define +marquis-musi-id+=0Drewriting define +zeta-id+=0Drewriting define =
+axxes-id+=0Drewriting define +orban-id+=0Drewriting define +kti-id+=0D=
rewriting define +breakaway-id+=0Drewriting define +cae-id+=0Drewriting =
define +rocktron-id+=0Drewriting define +pianodisc-id+=0Drewriting =
define +cannon-id+=0Drewriting define +rogers-id+=0Drewriting define =
+blue-sky-id+=0Drewriting define +encore-id+=0Drewriting define =
+uptown-id+=0Drewriting define +voce-id+=0Drewriting define +cti-id+=0D=
rewriting define +s&s-id+=0Drewriting define +broderbund-id+=0Drewriting =
define +allen-organ-id+=0Drewriting define +music-quest-id+=0Drewriting =
define +aphex-id+=0Drewriting define +gallien-krueger-id+=0Drewriting =
define +ibm-id+=0Drewriting define +hotz-id+=0Drewriting define +eta-id+=0D=
rewriting define +nsi-id+=0Drewriting define +ad-lib-id+=0Drewriting =
define +richmond-id+=0Drewriting define +microsoft-id+=0Drewriting =
define +software-toolworks-id+=0Drewriting define +rjmg/niche-id+=0D=
rewriting define +intone-id+=0Drewriting define +gt-electronics-id+=0D=
rewriting define +intermidi-id+=0Drewriting define +lone-wolf-id+=0D=
rewriting define +musonix-id+=0Drewriting define +sgi-id+=0Drewriting =
define +dream-id+=0Drewriting define +strand-id+=0Drewriting define =
+amek-id+=0Drewriting define +dr.boehm-id+=0Drewriting define =
+trident-id+=0Drewriting define +real-world-id+=0Drewriting define =
+yes-id+=0Drewriting define +audiomatica-id+=0Drewriting define =
+bontempi-id+=0Drewriting define +fbt-id+=0Drewriting define =
+larking-id+=0Drewriting define +zero-88-id+=0Drewriting define =
+micon-id+=0Drewriting define +forefront-id+=0Drewriting define =
+kenton-id+=0Drewriting define +adb-id+=0Drewriting define +marshall-id+=0D=
rewriting define +dda-id+=0Drewriting define +tc-id+=0Drewriting define =
+non-commercial-id+=0Drewriting define +non-real-time-id+=0Drewriting =
define +sample-dump-header-sub-id+=0Drewriting define =
+sample-dump-packet-sub-id+=0Drewriting define +dump-request-sub-id+=0D=
rewriting define +midi-time-code-setup-sub-id+=0Drewriting define =
+sample-dump-extensions-sub-id+=0Drewriting define =
+inquiry-message-sub-id+=0Drewriting define +file-dump-sub-id+=0D=
rewriting define +midi-tuning-standard-sub-id+=0Drewriting define =
+general-midi-message-sub-id+=0Drewriting define +end-of-file-sub-id+=0D=
rewriting define +wait-sub-id+=0Drewriting define +cancel-sub-id+=0D=
rewriting define +nak-sub-id+=0Drewriting define +ack-sub-id+=0D=
rewriting define +real-time-id+=0Drewriting define =
+long-form-mtc-sub-id+=0Drewriting define +midi-show-control-sub-id+=0D=
rewriting define +notation-information-sub-id+=0Drewriting define =
+device-control-sub-id+=0Drewriting define +real-time-mtc-cueing-sub-id+=0D=
rewriting define +midi-machine-control-command-sub-id+=0Drewriting =
define +midi-machine-control-response-sub-id+=0Drewriting define =
+single-note-retune-sub-id+=0Drewriting define (n-bit-twoscomp-p num =
bits signed? . args)=0Drewriting define (n-bit-twoscomp num bits =
signed?)=0Drewriting define (n-bit-bytes num bytes bits lsb-first?)=0D=
rewriting define (nibblize lsb-first? . data)=0Drewriting define =
+all-device-ids+=0Drewriting define (make-gm-mode-sysex-data gm-on? . =
args)=0Drewriting define +master-volume-sub-id-2+=0Drewriting define =
(make-master-volume-sysex-data . args)=0Drewriting define =
+smpte-full-frame-sub-id-2+=0Drewriting define =
+smpte-user-bits-sub-id-2+=0Drewriting define +smpte-format-24fps+=0D=
rewriting define +smpte-format-25fps+=0Drewriting define =
+smpte-format-30fps-drop+=0Drewriting define +smpte-format-30fps+=0D=
rewriting define (encode-smpte-data hr mn sc fr . args)=0Drewriting =
define (make-smpte-full-frame-sysex-data hr mn sc fr . args)=0Drewriting =
define +smpte-user-bits-raw+=0Drewriting define +smpte-user-bits-chars+=0D=
rewriting define (make-smpte-user-bits-sysex-data format data . args)=0D=
rewriting define +bar-marker-sub-id-2+=0Drewriting define =
(make-measure-number-sysex-data num . args)=0Drewriting define =
+time-signature-now-sub-id-2+=0Drewriting define =
+time-signature-next-measure-sub-id-2+=0Drewriting define =
(make-time-signature-sysex-data numerators denominators . args)=0D=
rewriting define +setup-special-sub-id-2+=0Drewriting define =
+setup-punch-in-point-sub-id-2+=0Drewriting define =
+setup-punch-out-point-sub-id-2+=0Drewriting define =
+setup-delete-punch-in-point-sub-id-2+=0Drewriting define =
+setup-delete-punch-out-point-sub-id-2+=0Drewriting define =
+setup-event-start-point-sub-id-2+=0Drewriting define =
+setup-event-stop-point-sub-id-2+=0Drewriting define =
+setup-xtnd-event-start-point-sub-id-2+=0Drewriting define =
+setup-xtnd-event-stop-point-sub-id-2+=0Drewriting define =
+setup-delete-event-start-point-sub-id-2+=0Drewriting define =
+setup-delete-event-stop-point-sub-id-2+=0Drewriting define =
+setup-cue-point-sub-id-2+=0Drewriting define =
+setup-xtnd-cue-point-sub-id-2+=0Drewriting define =
+setup-delete-cue-point-sub-id-2+=0Drewriting define =
+setup-event-name-sub-id-2+=0Drewriting define (%make-setup-data dev =
subid2 fmt hr mn sc fr ff num . args)=0Drewriting define =
+setup-special-time-code-offset-type+=0Drewriting define =
+setup-special-enable-event-list-type+=0Drewriting define =
+setup-special-disable-event-list-type+=0Drewriting define =
+setup-special-clear-event-list-type+=0Drewriting define =
+setup-special-system-stop-type+=0Drewriting define =
+setup-special-event-list-request-type+=0Drewriting define =
(make-time-code-offset-sysex-data hr mn sc fr ff . args)=0Drewriting =
define (make-enable-event-list-sysex-data . args)=0Drewriting define =
(make-disable-event-list-sysex-data . args)=0Drewriting define =
(make-clear-event-list-sysex-data . args)=0Drewriting define =
(make-system-stop-sysex-data hr mn sc fr ff . args)=0Drewriting define =
(make-event-list-request-sysex-data hr mn sc fr ff . args)=0Drewriting =
define (make-punch-in-point-sysex-data track hr mn sc fr ff . args)=0D=
rewriting define (make-punch-out-point-sysex-data track hr mn sc fr ff . =
args)=0Drewriting define (make-delete-punch-in-point-sysex-data track hr =
mn sc fr ff=0D        . args)=0Drewriting define =
(make-delete-punch-out-point-sysex-data track hr mn sc fr ff=0D        . =
args)=0Drewriting define (make-event-start-point-sysex-data event-nr hr =
mn sc fr ff=0D        . arg)=0Drewriting define =
(make-event-stop-point-sysex-data event-nr hr mn sc fr ff=0D        . =
arg)=0Drewriting define (make-xtnd-event-start-point-sysex-data event-nr =
hr mn sc fr=0D        ff data . arg)=0Drewriting define =
(make-xtnd-event-stop-point-sysex-data event-nr hr mn sc fr ff=0D        =
data . arg)=0Drewriting define (make-delete-event-start-point-sysex-data =
event-nr hr mn sc fr=0D        ff . arg)=0Drewriting define =
(make-delete-event-stop-point-sysex-data event-nr hr mn sc fr=0D        =
ff . arg)=0Drewriting define (make-cue-point-sysex-data cue-nr hr mn sc =
fr ff . args)=0Drewriting define (make-xtnd-cue-point-sysex-data cue-nr =
hr mn sc fr ff data=0D        . args)=0Drewriting define =
(make-delete-cue-point-sysex-data cue-nr hr mn sc fr ff . args)=0D=
rewriting define (make-event-name-sysex-data event-nr hr mn sc fr ff =
name=0D        . args)=0Drewriting define *midi-pitch-bend-width*=0D=
rewriting define *midi-channel-map*=0Drewriting define (logical-channel =
chan map)=0Drewriting define %midituningtypes=0Drewriting define-class =
<midi-stream>=0Drewriting define *midi-file-default-tempo*=0Drewriting =
define-class <midi-file-stream>=0Drewriting define =
(set-midi-output-hook! fn)=0Drewriting define (set-midi-file-versions! =
val)=0Drewriting define +midi-file-header-length+=0Drewriting define =
+miditrack-header-length+=0Drewriting define +mthd+=0Drewriting define =
+mtrk+=0Dskipping define (read-byte fp)=0Dskipping define (write-byte by =
fp)=0Drewriting define (read-bytes fp n)=0Drewriting define (write-bytes =
fp byts n)=0Drewriting define (read-variable-quantity fp)=0Drewriting =
define (write-variable-quantity n fp)=0Drewriting define =
(variable-quantity-length n)=0Drewriting define (midi-file-read-header =
mf)=0Drewriting define (midi-file-write-header mf fmat tracks division . =
resolution)=0Drewriting define (midi-file-read-track-header mf)=0D=
rewriting define (midi-file-write-track-header mf len)=0Drewriting =
define (midi-file-read-message mf)=0Drewriting define =
(midi-file-unread-message mf msg . args)=0Drewriting define-method =
(midi-write-message (msg <number>)=0D               (mf =
<midi-file-stream>) time data)=0Drewriting define (midi-file-map-track =
fn mf . args)=0Drewriting define (midi-file-set-track mf track)=0D=
rewriting define (channel-tuning-init io)=0Drewriting define =
(microtune-channels io divisions . args)=0Drewriting define %offs=0D=
rewriting dotimes=0Drewriting define-method (open-io (mf =
<midi-file-stream>) dir . args)=0Drewriting define-method (initialize-io =
(mf <midi-file-stream>))=0Drewriting define-method (deinitialize-io (mf =
<midi-file-stream>))=0Drewriting define-method (close-io (mf =
<midi-file-stream>) . mode)=0Drewriting define (flush-pending-offs mf . =
args)=0Drewriting define (midi-file-print . args)=0Drewriting define =
(oss-play-midi-file file . args)=0Drewriting define (win-play-midi-file =
file . args)=0Drewriting defobject midimsg=0Drewriting defobject midi=0D=
rewriting defmacro ensure-microtuning=0Drewriting define-method =
(write-event (obj <midi>) (mf <midi-file-stream>) time)=0Drewriting =
define-method (write-event (obj <midimsg>) (mf <midi-file-stream>)=0D    =
           time)=0Drewriting define-method (object->midi obj)=0D=
rewriting define-method (write-event (obj <object>) (mf =
<midi-file-stream>)=0D               scoretime)=0Drewriting define =
midi-channel-names=0Drewriting define (midi-channel->name chan)=0D=
rewriting define-method (write-event (obj <midi>) (fil <clm-stream>) =
scoretime)=0Drewriting define-method (write-event (obj <midi>) (fil =
<sco-stream>) scoretime)=0Drewriting define-method (write-event (obj =
<midi>) (fil <clm-audio-stream>)=0D               scoretime)=0Drewriting =
define-list-struct tc=0Drewriting define-method (import-events (file =
<string>) . args)=0Drewriting define-method (import-events (io =
<midi-file-stream>) . args)=0Drewriting define (apply-tempo-scaler divs =
scaler track)=0Drewriting define (tempo-change->scaler msg data)=0D=
rewriting define (parse-tempo-map mf)=0Drewriting define =
(apply-tempo-map divs tmap track)=0Drewriting define =
(midi-file-import-track file track seq notefn note-off-stack=0D        =
channel-exclude meta-exclude)=0Drewriting define *midi-connections*=0D=
rewriting define-class <midishare-stream>=0Drewriting define-method =
(midishare-stream-refnum (obj <midishare-stream>))=0Drewriting =
define-method (open-midishare-client (obj <midishare-stream>) name)=0D=
rewriting define-method (close-midishare-client (obj =
<midishare-stream>))=0Drewriting define-method (open-io (obj =
<midishare-stream>) dir . args)=0Drewriting define =
(midishare-set-connections obj client)=0Drewriting define-method =
(close-io (obj <midishare-stream>) . mode)=0Drewriting define (midi-open =
. args)=0Drewriting define (midi-close)=0Drewriting define-method =
(initialize-io (obj <midishare-stream>))=0Drewriting define-method =
(deinitialize-io (obj <midishare-stream>))=0Drewriting define =
(make-midiev type prt chn a b c d)=0Drewriting define =
(midi-message->midiev m . args)=0Drewriting define-method =
(midi-write-message (m <number>)=0D               (ms =
<midishare-stream>) time data)=0Drewriting define *dbg*=0Drewriting =
define-method (write-event (obj <midi>) (stream <midishare-stream>)=0D   =
            scoretime)=0Drewriting define-class <player-stream>=0D=
rewriting define-method (open-midishare-client (obj <player-stream>) =
name)=0Drewriting define-method (close-midishare-client (obj =
<player-stream>))=0Drewriting define (player-stream-current-track obj)=0D=
rewriting define (player-stream-current-track-set! obj track)=0D=
rewriting define-method (initialize-io (obj <player-stream>))=0D=
rewriting define-method (deinitialize-io (obj <player-stream>))=0D=
rewriting define-method (midi-write-message (msg <number>)=0D            =
   (obj <player-stream>) time data)=0Drewriting define-method =
(write-event (obj <midi>) (stream <player-stream>)=0D               =
scoretime)=0Drewriting define-method (player-play (obj <player-stream>))=0D=
rewriting define-method (player-set-sync (obj <player-stream>) sync)=0D=
rewriting define-method (player-set-tempo (obj <player-stream>) bpm)=0D=
rewriting define-method (player-start (obj <player-stream>))=0Drewriting =
define-method (player-stop (obj <player-stream>))=0Drewriting =
define-method (player-pause (obj <player-stream>))=0Drewriting =
define-method (player-cont (obj <player-stream>))=0Drewriting =
define-method (player-mute (obj <player-stream>) track)=0Drewriting =
define-method (player-unmute (obj <player-stream>) track)=0Drewriting =
define-method (player-solo (obj <player-stream>) track)=0Drewriting =
define-method (player-unsolo (obj <player-stream>) track)=0Drewriting =
define-method (player-load-midifile (obj <player-stream>) file)=0D=
rewriting define-method (player-save-midifile (obj <player-stream>) =
file)=0Drewriting define interval-semitones-byte=0Drewriting define =
interval-octaves-byte=0Drewriting define interval-letters-byte=0D=
rewriting define interval-direction-byte=0Drewriting define =
interval-type-byte=0Drewriting define interval-class-byte=0Drewriting =
define interval-meta-byte=0Drewriting define interval-meta-flag=0D=
rewriting define interval-down-flag=0Drewriting define interval-up-flag=0D=
rewriting define interval-perfect-flag=0Drewriting define =
interval-majmin-flag=0Drewriting define interval-data-mask=0Drewriting =
define interval-names=0Drewriting defmacro %interval-encoded?=0D=
rewriting defmacro %interval-class=0Drewriting defmacro %interval-type=0D=
rewriting defmacro %interval-direction=0Drewriting defmacro =
%interval-sign=0Drewriting defmacro %interval-letters=0Drewriting =
defmacro %interval-octaves=0Drewriting defmacro %interval-semitones=0D=
rewriting define (interval-quality-type int)=0Drewriting define =
(interval-quality int)=0Drewriting define (interval-letters int)=0D=
rewriting define (interval-semitones int . args)=0Drewriting define =
(interval-size int . args)=0Drewriting define (interval-sign int)=0D=
rewriting define (complement-interval int)=0Drewriting define =
(invert-interval int)=0Drewriting define (decode-interval int)=0D=
rewriting define (encode-interval interval . args)=0Drewriting define =
*tempo*=0Drewriting define *beat*=0Drewriting define *rhythms*=0D=
rewriting let=0Dskipping define-generic rhythm=0Drewriting define-method =
(rhythm (val <number>) . args)=0Drewriting define-method (rhythm (val =
<pair>) . args)=0Drewriting define-method (rhythm (val <symbol>) . args)=0D=
rewriting define (parse-rhythm-string rhythm)=0Drewriting define =
*softest*=0Drewriting define *loudest*=0Drewriting define *power*=0D=
rewriting define *logical-amplitudes*=0Dskipping define-generic =
amplitude=0Drewriting define-method (amplitude (amp <symbol>) . args)=0D=
rewriting define-method (amplitude (amp <number>) . args)=0Drewriting =
define (lookup num lst)=0Drewriting define (interp1 x coords base)=0D=
rewriting define (interpl x coords . args)=0Drewriting define (interp x =
. coords)=0Drewriting define (tendency x low high . args)=0Drewriting =
define (rescale-envelope env . args)=0Drewriting define (quantize value =
step)=0Drewriting define (rescale value oldmin oldmax newmin newmax)=0D=
rewriting define (mymod num div)=0Drewriting define (fit number lb ub . =
args)=0Drewriting define (cents->scaler cents)=0Drewriting define =
(scaler->cents scaler)=0Drewriting define (between lb ub . args)=0D=
rewriting define (pick . args)=0Drewriting define (pickl seq . args)=0D=
rewriting define (vary value variance . args)=0Drewriting define (drunk =
n width . args)=0Drewriting define (odds n . args)=0Drewriting define =
(shuffle seq . args)=0Drewriting define (ran . args)=0Drewriting define =
(expl power . args)=0Drewriting define (explsegs len sum power)=0D=
rewriting define (explseg i len num power)=0Drewriting define (geosegs =
len sum base)=0Drewriting define (geoseg i len sum base)=0Drewriting =
defmacro doeach=0Drewriting define (encode-set notes)=0Drewriting define =
(decode-set set)=0Drewriting define (encode-inverse-set notes)=0D=
rewriting define (best-normal-form set)=0Drewriting define (prime-form =
notes . args)=0Drewriting define (markov-analyze seq . args)=0Drewriting =
define (histogram numbers lo hi slots)=0Drewriting define =
*chromatic-scale*=0Drewriting define *scale*=0Drewriting define (rest? =
f)=0Drewriting define-class <scale>=0Drewriting define-class <tuning>=0D=
rewriting define-class <mode>=0Drewriting define-list-struct sd=0D=
rewriting define-method (initialize (obj <tuning>) args)=0Drewriting =
define (fill-tuning-table tuning degrees octaves)=0Drewriting define =
(equal-tuning? tuning)=0Drewriting define-method (mode-owner (obj =
<scale>))=0Drewriting define-method (scale-default-octave (obj <mode>))=0D=
rewriting define-method (scale-table (obj <mode>))=0Drewriting define =
(octave-equivalent note . args)=0Drewriting define-method (initialize =
(obj <mode>) args)=0Drewriting define-method (print-object (obj <mode>) =
stream)=0Drewriting define-method (tuning->mode (tuning <tuning>) keynum =
mode return)=0Drewriting define-method (mode->tuning (mode <mode>) =
keynum scale return)=0Drewriting define-method (tuning-hertz->keynum =
(obj <tuning>) hz)=0Drewriting define-method (tuning-hertz->note (scale =
<tuning>) hz acci err?)=0Drewriting define-method (tuning-keynum->hertz =
(obj <tuning>) knum)=0Drewriting define-method (tuning-keynum->note (obj =
<tuning>) knum acci err?)=0Drewriting define %oct=0Drewriting =
define-method (tuning-note->hertz (obj <tuning>) note err?)=0Drewriting =
define-method (tuning-note->keynum (obj <tuning>) note err?)=0Drewriting =
define-method (tuning-note->note (obj <tuning>) note acci err?)=0D=
rewriting define %hertz=0Drewriting define (mode? x)=0Drewriting define =
(tuning? x)=0Drewriting defmacro %scale-usage=0Drewriting define =
(modal-lookup mode note type tuning error? return)=0Drewriting defmacro =
with-default-octave=0Drewriting define (hertz freq . args)=0Drewriting =
define (keynum freq . args)=0Drewriting define (note freq . args)=0D=
rewriting define (pitch-class note . args)=0Drewriting define =
(octave-number note . args)=0Drewriting define (note-name note . args)=0D=
rewriting define (note-accidental note . args)=0Drewriting define =
(scale< a b . args)=0Drewriting define (scale<=3D a b . args)=0D=
rewriting define (scale=3D a b . args)=0Drewriting define (scale>=3D a b =
. args)=0Drewriting define (scale> a b . args)=0Drewriting define =
(scale-min a b . args)=0Drewriting define (scale-max a b . args)=0D=
rewriting define-method (scale-mod (freq <number>) modulus . args)=0D=
rewriting define-method (scale-mod (freq <symbol>) modulus . args)=0D=
rewriting define-method (scale-mod (freq <pair>) modulus . args)=0D=
rewriting define-method (note-in-scale? note (scale <scale>))=0D=
rewriting define (scale-order lis . args)=0Drewriting define-method =
(transpose (note <pair>) int . args)=0Drewriting define-method =
(transpose (note <symbol>) int . args)=0Drewriting define-method =
(transpose (note <number>) int . args)=0Drewriting define-method =
(transpose (note <mode>) int . args)=0Drewriting define-method (invert =
(lst <pair>) . args)=0Drewriting define-method (interval (ref <pair>) . =
args)=0Drewriting define-method (interval (ref <integer>) . args)=0D=
rewriting define-method (interval (ref <symbol>) . args)=0Drewriting =
set!=0Drewriting set!=0Drewriting define (fm-spectrum carrier mratio =
index . args)=0Drewriting define (sidebands-to-cm low high lb ub)=0D=
rewriting defmacro bes-jn=0Drewriting define (fm-spectrum1 carrier =
mratio index neg-freq? pos-amp?=0D        sideband-scaler)=0Drewriting =
define (hz-ify x)=0Drewriting define (hz-invert f1 f2)=0Drewriting =
define (bes-j0 x)=0Dskipping define (signum x)=0Drewriting define =
(bes-j1 x)=0Drewriting define +constant-data+=0Drewriting define =
+constant-weights+=0Drewriting define +count-periods+=0Drewriting define =
+count-values+=0Drewriting define +depth-first+=0Drewriting define =
+breadth-first+=0Drewriting define +coerce-to-note+=0Drewriting define =
+coerce-to-pitch+=0Drewriting define +parallel-offsets+=0Drewriting =
define +range-stepping+=0Drewriting define +range-initially+=0Drewriting =
define +range-unbounded+=0Drewriting define +range-dynamic+=0Drewriting =
define +constant-minmax+=0Drewriting define +default-period+=0Drewriting =
define +range-random+=0Drewriting define +nad+=0Drewriting define +eop+=0D=
rewriting define +eod+=0Drewriting define-list-struct period=0Drewriting =
define-class <pattern>=0Drewriting define (maybeparse fn val)=0D=
rewriting define-method (canonicalize-pattern-data (obj <pattern>) data =
parser=0D               inits)=0Drewriting define-method (make-load-form =
(obj <pattern>))=0Drewriting define-method (pattern-external-inits (obj =
<pattern>))=0Drewriting define (expand-pattern-value val)=0Drewriting =
define-method (pattern-period-length (obj <pattern>))=0Drewriting =
define-method (default-period-length (obj <pattern>))=0Drewriting =
define-method (initialize (obj <pattern>) args)=0Drewriting =
define-method (pattern? obj)=0Drewriting define-method (pattern? (obj =
<pattern>))=0Drewriting define-method (eop? x)=0Drewriting define-method =
(eop? (x <pattern>))=0Drewriting define-method (eod? x)=0Drewriting =
define-method (eod? (x <pattern>))=0Drewriting define-method =
(pattern-state obj)=0Drewriting define (next obj . args)=0Drewriting =
define-method (next-1 obj)=0Drewriting define-method (next-1 (obj =
<pattern>))=0Drewriting define-method (skip-datum? (obj <pattern>))=0D=
rewriting define-method (skip-datum? obj)=0Drewriting define-method =
(reset-period obj)=0Drewriting define-method (reset-period (obj =
<pattern>))=0Drewriting define-class <cycle>=0Drewriting define-method =
(pattern-external-inits (obj <cycle>))=0Drewriting define-method =
(initialize (obj <cycle>) args)=0Drewriting define-method =
(next-in-pattern (obj <cycle>))=0Drewriting define-method =
(map-pattern-data fn (obj <cycle>))=0Drewriting define-class =
<palindrome>=0Drewriting define-method (pattern-external-inits (obj =
<palindrome>))=0Drewriting define-method (map-pattern-data fn (obj =
<palindrome>))=0Drewriting define-method (default-period-length (obj =
<palindrome>))=0Drewriting define-method (initialize (obj <palindrome>) =
args)=0Drewriting define-method (next-in-pattern (obj <palindrome>))=0D=
rewriting define-class <line>=0Drewriting define-method =
(pattern-external-inits (obj <line>))=0Drewriting define-method =
(initialize (obj <line>) args)=0Drewriting define-method =
(next-in-pattern (obj <line>))=0Drewriting define-method (reset-period =
(obj <line>))=0Drewriting define-method (map-pattern-data fn (obj =
<line>))=0Drewriting define-class <heap>=0Drewriting define-method =
(pattern-external-inits (obj <heap>))=0Drewriting define-method =
(initialize (obj <heap>) args)=0Drewriting define-method =
(next-in-pattern (obj <heap>))=0Drewriting define *random-range*=0D=
rewriting define-list-struct random-item=0Drewriting define-class =
<random>=0Drewriting define-method (pattern-external-inits (obj =
<random>))=0Drewriting define-method (initialize (obj <random>) args)=0D=
rewriting define-method (canonicalize-pattern-data (obj <random>) data =
parser=0D               inits)=0Drewriting define-method (reset-period =
(obj <random>))=0Drewriting define-method (next-in-pattern (obj =
<random>))=0Drewriting define-method (map-pattern-data fn (obj =
<random>))=0Drewriting define-class <markov>=0Drewriting define-method =
(pattern-external-inits (obj <markov>))=0Drewriting define-method =
(canonicalize-pattern-data (obj <markov>) data parser=0D               =
inits)=0Drewriting define-method (initialize (obj <markov>) args)=0D=
rewriting define-method (next-in-pattern (obj <markov>))=0Drewriting =
define-list-struct graph-node=0Drewriting define-class <graph>=0D=
rewriting define-method (pattern-external-inits (obj <graph>))=0D=
rewriting define-method (initialize (obj <graph>) args)=0Drewriting =
define-method (canonicalize-pattern-data (obj <graph>) data parser=0D    =
           inits)=0Drewriting define (default-graph-node-select obj node =
lastids)=0Drewriting define (markov-select obj node table lastids)=0D=
rewriting define (match-ids user last)=0Drewriting define-method =
(next-in-pattern (obj <graph>))=0Drewriting define-method =
(map-pattern-data fn (obj <graph>))=0Drewriting define-class =
<accumulation>=0Drewriting define-method (next-in-pattern (obj =
<accumulation>))=0Drewriting define-method (map-pattern-data fn (obj =
<accumulation>))=0Drewriting define-method (default-period-length (obj =
<accumulation>))=0Drewriting define-class <funcall>=0Drewriting =
define-method (pattern-external-inits (obj <funcall>))=0Drewriting =
define-method (default-period-length (obj <funcall>))=0Drewriting =
define-method (initialize (obj <funcall>) args)=0Drewriting =
define-method (next-in-pattern (obj <funcall>))=0Drewriting =
define-method (map-pattern-data fn (obj <funcall>))=0Drewriting =
define-class <rotation>=0Drewriting define-method =
(pattern-external-inits (obj <rotation>))=0Drewriting define-method =
(initialize (obj <rotation>) args)=0Drewriting define-method =
(next-in-pattern (obj <rotation>))=0Drewriting define (rotate-items =
items start end step width)=0Drewriting define-list-struct rewrite-node=0D=
rewriting define-list-struct rewrite-rule=0Drewriting define-class =
<rewrite>=0Drewriting define-method (pattern-external-inits (obj =
<rewrite>))=0Drewriting define-method (initialize (obj <rewrite>) args)=0D=
rewriting define-method (canonicalize-pattern-data (obj <rewrite>) data =
parser=0D               inits)=0Drewriting define-method =
(map-pattern-data fn (obj <rewrite>))=0Drewriting define (parse-rules =
rules table)=0Drewriting define (lookup-successors successor table)=0D=
rewriting define-method (next-in-pattern (obj <rewrite>))=0Drewriting =
define (node-rewrite gen table)=0Drewriting define (rule-rewrite =
generation rules)=0Drewriting defmacro %range-stepping?=0Drewriting =
defmacro %range-unbounded?=0Drewriting defmacro %range-initially?=0D=
rewriting defmacro %range-dynamic?=0Drewriting defmacro %range-random?=0D=
rewriting define-class <range>=0Drewriting define-method =
(pattern-external-inits (obj <range>))=0Drewriting define-method =
(initialize (obj <range>) args)=0Drewriting define-method =
(canonicalize-pattern-data (obj <range>) data parser=0D               =
inits)=0Drewriting define (reset-range? data test)=0Drewriting =
define-method (next-in-pattern (obj <range>))=0Drewriting define-method =
(reset-period (obj <range>))=0Drewriting define-class <transposer>=0D=
rewriting define-method (pattern? (obj <transposer>))=0Drewriting =
define-method (make-load-form (obj <transposer>))=0Drewriting =
define-method (initialize (obj <transposer>) args)=0Drewriting =
define-method (eop? (obj <transposer>))=0Drewriting define-method =
(next-1 (obj <transposer>))=0Drewriting define-class <chord>=0Drewriting =
define-method (pattern-external-inits (obj <chord>))=0Drewriting =
define-method (canonicalize-pattern-data (pat <chord>) data parser=0D    =
           inits)=0Drewriting define-method (default-period-length (obj =
<chord>))=0Drewriting define-method (next-in-pattern (obj <chord>))=0D=
rewriting define-class <pval>=0Drewriting define-method (make-load-form =
(obj <pval>))=0Drewriting define-method (pattern? (obj <pval>))=0D=
rewriting defmacro pval=0Drewriting define-method (next-1 (obj <pval>))=0D=
rewriting define-class <join>=0Drewriting define-method =
(pattern-external-inits (obj <join>))=0Drewriting define-method =
(initialize (obj <join>) args)=0Drewriting define-method =
(canonicalize-pattern-data (obj <join>) data parser=0D               =
inits)=0Drewriting define-method (reset-period (obj <join>))=0Drewriting =
define (join-eop? data fmat)=0Drewriting define-method (next-in-pattern =
(obj <join>))=0Drewriting define-class <copier>=0Drewriting =
define-method (pattern-external-inits (obj <copier>))=0Drewriting =
define-method (initialize (obj <copier>) args)=0Drewriting define-method =
(next-in-pattern (obj <copier>))=0D? (load "/Lisp/clm-2/all.lisp")=0D=
;Loading #P"/Lisp/clm-2/walk.dfsl"...=0D;Loading =
#P"/Lisp/clm-2/clm-package.dfsl"...=0D;Loading =
#P"/Lisp/clm-2/initmus.dfsl"...=0D;Loading =
#P"/Lisp/clm-2/sndlib2clm.dfsl"...=0D;Loading =
#P"/Lisp/clm-2/defaults.dfsl"...=0D;Loading =
#P"/Lisp/clm-2/mcl-doubles.dfsl"...=0D;Loading =
#P"/Lisp/clm-2/ffi.dfsl"...=0D;Loading #P"/Lisp/clm-2/io.dfsl"...=0D=
;Loading #P"/Lisp/clm-2/mus.dfsl"...=0D;Loading =
#P"/Lisp/clm-2/run.dfsl"...=0D;Loading #P"/Lisp/clm-2/cmus.dfsl"...=0D=
;Loading #P"/Lisp/clm-2/sound.dfsl"...=0D;Loading =
#P"/Lisp/clm-2/clm-help.dfsl"...=0D;Loading =
#P"/Lisp/clm-2/defins.dfsl"...=0D;Loading #P"/Lisp/clm-2/env.dfsl"...=0D=
;Loading #P"/Lisp/clm-2/clm-snd.dfsl"...=0D;Loading =
#P"/Lisp/clm-2/rt.dfsl"...=0D;Loading #P"/Lisp/clm-2/export.dfsl"...=0D=
;Loading #P"/Lisp/clm-2/clm1.dfsl"...=0D> Error: Using #<Package "CLM"> =
in #<Package "COMMON-LISP-USER"> =0D>        would cause name conflicts =
with symbols already present in that package: =0D>        ENV  CLM:ENV=0D=
>        GRAPH  CLM:GRAPH=0D>        =0D> While executing: =
CCL::USE-PACKAGE-1=0D> Type :GO to continue, :POP to abort.=0D> If =
continued: Try again to use #<Package "CLM"> in #<Package =
"COMMON-LISP-USER">=0DType :? for other options.=0D1 > :POP=0D=0D? exit=0D=
> Error: Unbound variable: EXIT=0D> While executing: "Unknown"=0D> Type =
:GO to continue, :POP to abort.=0D> If continued: Retry getting the =
value of EXIT.=0DType :? for other options.=0D1 > :POP=0D=0D? (quit)=0D=
bash-2.05a$ openmcl=0DWelcome to OpenMCL Version (Beta: Darwin) 0.13.6!=0D=
? (load "/Lisp/cm-2.4.0/src/stocl")=0D#P"/Lisp/cm-2.4.0/src/stocl.lisp"=0D=
? (gencm)=0D=0Dskipping defmacro loop=0Dskipping defmacro when=0D=
skipping defmacro unless=0Dskipping defmacro push=0Dskipping defmacro =
pop=0Dskipping defmacro function=0Drewriting define (loop-operator c)=0D=
rewriting define (loop-operator-set! c x)=0Drewriting define =
(loop-bindings c)=0Drewriting define (loop-bindings-set! c x)=0D=
rewriting define (loop-collectors c)=0Drewriting define =
(loop-collectors-set! c x)=0Drewriting define (loop-initially c)=0D=
rewriting define (loop-initially-set! c x)=0Drewriting define =
(loop-end-tests c)=0Drewriting define (loop-end-tests-set! c x)=0D=
rewriting define (loop-looping c)=0Drewriting define (loop-looping-set! =
c x)=0Drewriting define (loop-stepping c)=0Drewriting define =
(loop-stepping-set! c x)=0Drewriting define (loop-finally c)=0Drewriting =
define (loop-finally-set! c x)=0Drewriting define (loop-returning c)=0D=
rewriting define (loop-returning-set! c x)=0Drewriting define =
(make-loop-clause . args)=0Drewriting define (gather-clauses caller =
clauses)=0Drewriting define (loop-op? x ops)=0Drewriting define =
(loop-variable? x)=0Drewriting define (make-binding var val)=0Drewriting =
define (loop-error ops forms . args)=0Drewriting define (parse-for forms =
clauses ops)=0Drewriting define (parse-numerical-for forms clauses ops)=0D=
rewriting define (parse-repeat forms clauses ops)=0Drewriting define =
(parse-sequence-iteration forms clauses ops)=0Drewriting define =
(parse-general-iteration forms clauses ops)=0Drewriting define =
(parse-with forms clauses ops)=0Drewriting define (parse-do forms =
clauses ops)=0Drewriting define (parse-finally forms clauses ops)=0D=
rewriting define (parse-initially forms clauses ops)=0Drewriting define =
(lookup-collector var clauses)=0Drewriting define =
(compatible-accumulation? typ1 typ2)=0Drewriting define =
(parse-accumulation forms clauses ops)=0Drewriting define (loop-return =
expr)=0Drewriting define (parse-while-until forms clauses ops)=0D=
rewriting define (parse-thereis forms clauses ops)=0Drewriting define =
(parse-return forms clauses ops)=0Drewriting define =
(legal-in-conditional? x ops)=0Drewriting define =
(parse-then-else-dependents forms clauses ops)=0Drewriting define =
(parse-conditional forms clauses ops)=0Drewriting define (parse-clauses =
forms cond? ops)=0Drewriting define (parse-iteration caller forms ops)=0D=
rewriting define *loop-operators*=0Dskipping define (scheme-loop forms)=0D=
rewriting defmacro iter=0Drewriting define (cltl2-loop forms)=0D=
rewriting define %months=0Drewriting define (date-and-time)=0Drewriting =
define (listify x)=0Drewriting define (end list)=0Drewriting defmacro =
dopairs=0Drewriting defmacro make-cycl=0Drewriting defmacro cycl-data=0D=
rewriting defmacro cycl-data-set!=0Drewriting defmacro cycl-last=0D=
rewriting defmacro cycl-last-set!=0Drewriting defmacro cycl-tail=0D=
rewriting defmacro cycl-tail-set!=0Drewriting defmacro pop-cycl=0D=
rewriting defmacro reset-cycl=0Drewriting define (tell-user . args)=0D=
rewriting define (warning . args)=0Drewriting define (format-integer int =
field pad)=0Drewriting define (address->string w)=0Drewriting define =
(quotify token)=0Drewriting define (quote-if-necessary x)=0Drewriting =
define (parse-lambda-list pars)=0Drewriting define %cm-version%=0D=
rewriting define (cm-version-number)=0Drewriting define (cm-version)=0D=
rewriting define (string-forms string . args)=0Drewriting define =
(balanced-form? string . args)=0Drewriting define (decimals value =
places)=0Drewriting defmacro sv=0Drewriting define (write-cm-script os =
path command)=0Drewriting define (write-xcm-script os impl path command =
listener)=0Drewriting define-class <parameterized-class>=0Drewriting =
define-method (class-parameters (obj <top>))=0Drewriting define =
(object-parameters obj)=0Drewriting define-class <io-class>=0Drewriting =
define-method (io-class-file-types x)=0Drewriting define-method =
(io-class-output-hook x)=0Drewriting define-method (io-class-definer x)=0D=
rewriting define-method (io-class-file-versions x)=0Drewriting define =
(expand-inits class args inits? other?)=0Drewriting define =
(slot-init-forms o . args)=0Drewriting define-method (make-load-form =
(obj <class>))=0Dskipping define-method (describe-object (x <object>))=0D=
rewriting define-method (copy-object (obj <object>))=0Drewriting =
define-method (fill-object (new <object>) (old <object>))=0Drewriting =
define *print-instance*=0Drewriting define (print-instance obj port)=0D=
rewriting define (i-reader form)=0Drewriting read-macro-set!=0Drewriting =
read-macro-set!=0Drewriting define (save-object obj file)=0Drewriting =
define *dictionary*=0Dskipping define-accessor object-name=0Drewriting =
define-class <container>=0Drewriting define-method (print-object (obj =
<container>) port)=0Drewriting define-method (initialize (obj =
<container>) args)=0Drewriting define-method (make-load-form (obj =
<container>))=0Dskipping define-generic rename-object=0Drewriting =
define-method (rename-object (obj <container>) newname . args)=0D=
rewriting define (list-named-objects . args)=0Drewriting define =
(find-object string . args)=0Drewriting read-macro-set!=0Drewriting =
define-class <seq>=0Drewriting define-method (object-name (obj =
<object>))=0Drewriting define-method (object-time (obj <object>))=0D=
rewriting define-method (subcontainers (obj <object>))=0Drewriting =
define-method (subcontainers (obj <seq>))=0Drewriting define =
(map-subobjects fn container . args)=0Drewriting define =
(map-subcontainers fn container . args)=0Dskipping define-generic =
insert-object=0Dskipping define-generic append-object=0Dskipping =
define-generic remove-object=0Drewriting define-method (insert-object =
(sub <object>) (obj <seq>))=0Drewriting define-method (append-object =
(sub <object>) (obj <seq>))=0Drewriting define-method (remove-object sub =
(obj <seq>))=0Drewriting define-method (remove-subobjects (obj <seq>))=0D=
rewriting define-method (list-subobjects (obj <seq>) . args)=0Drewriting =
define-class <event>=0Drewriting defmacro new=0Drewriting define =
(class-name->class-var sym)=0Drewriting define (class-var->class-name =
sym)=0Drewriting define-list-struct parameter=0Drewriting define =
(parse-parameters decl)=0Drewriting define (insure-parameters pars decl =
supers)=0Drewriting define *time-slots*=0Drewriting define =
(find-time-parameter pars decl supers)=0Drewriting defmacro defobject=0D=
rewriting define (process-code-terminates? code stop)=0Drewriting define =
(parse-process-clause forms clauses ops)=0Drewriting define =
(parse-set-clause forms clauses ops)=0Drewriting define =
(process-while-until forms clauses ops)=0Drewriting define =
*each-operators*=0Drewriting define (parse-each forms clauses ops)=0D=
rewriting define *process-operators*=0Drewriting defmacro process=0D=
rewriting defmacro defprocess=0Drewriting define-class <event-stream>=0D=
rewriting define (io-classes)=0Drewriting define (io-filename io)=0D=
skipping define-generic insure-io=0Dskipping define-generic open-io=0D=
skipping define-generic close-io=0Dskipping define-generic initialize-io=0D=
skipping define-generic deinitialize-io=0Dskipping define-generic play=0D=
skipping define-generic write-event=0Dskipping define-generic =
import-events=0Drewriting define (file-versions? stream)=0Drewriting =
define (io-stream-classes)=0Drewriting define (filename->io-class path)=0D=
skipping define-generic io-handler-args?=0Dskipping define-generic =
set-io-handler-args!=0Dskipping define-generic io-handler-args=0D=
rewriting define-method (io-handler-args? (io <event-stream>))=0D=
rewriting define-method (set-io-handler-args! (io <event-stream>) args)=0D=
rewriting define-method (io-handler-args (io <event-stream>))=0D=
rewriting defmacro io=0Drewriting define-method (insure-io io . inits)=0D=
rewriting define-method (insure-io (string <string>) . inits)=0D=
rewriting define-method (insure-io (io <event-stream>) . inits)=0D=
rewriting define (file-output-filename file)=0Drewriting define-method =
(open-io (obj <string>) dir . args)=0Drewriting define-method (open-io =
(obj <event-stream>) dir . args)=0Drewriting define-method (open-io (obj =
<seq>) dir . args)=0Drewriting define-method (close-io io . mode)=0D=
rewriting define-method (close-io (io <event-stream>) . mode)=0D=
rewriting define-method (initialize-io obj)=0Drewriting define-method =
(deinitialize-io obj)=0Drewriting define (io-open? io)=0Drewriting =
defmacro with-open-io=0Drewriting define *in*=0Drewriting define *out*=0D=
rewriting define *last-output-file*=0Drewriting define (events object to =
. args)=0Drewriting define-method (write-event obj io time)=0Drewriting =
define-method (write-event obj (io <seq>) time)=0Drewriting =
define-method (import-events (file <string>) . args)=0Drewriting =
defmacro %qe-time=0Drewriting defmacro %qe-time-set!=0Drewriting =
defmacro %qe-start=0Drewriting defmacro %qe-start-set!=0Drewriting =
defmacro %qe-object=0Drewriting defmacro %qe-object-set!=0Drewriting =
defmacro %qe-next=0Drewriting defmacro %qe-next-set!=0Drewriting =
defmacro %q-head=0Drewriting defmacro %q-head-set!=0Drewriting defmacro =
%q-last=0Drewriting defmacro %q-last-set!=0Drewriting defmacro %q-peek=0D=
rewriting defmacro %q-pop=0Drewriting defmacro %qe-alloc=0Drewriting =
defmacro %qe-dealloc=0Drewriting define %q=0Drewriting dotimes=0D=
rewriting defmacro %q-insert=0Drewriting define (pq . args)=0Drewriting =
define (%q-flush q)=0Drewriting define *queue*=0Drewriting define =
(schedule-events function object . args)=0Drewriting define (enqueue =
object time start)=0Drewriting define (early? tim)=0Drewriting =
define-method (schedule-object (obj <object>) start)=0Drewriting =
define-method (schedule-object (obj <procedure>) start)=0Drewriting =
define-method (schedule-object (obj <pair>) start)=0Drewriting =
define-method (schedule-object (obj <seq>) start)=0Drewriting =
define-method (unschedule-object obj . recurse)=0Drewriting =
define-method (process-events obj time start func)=0Drewriting =
define-method (process-events (head <pair>) time start func)=0Drewriting =
define *qstart*=0Drewriting define *qtime*=0Drewriting define *qnext*=0D=
rewriting define *process*=0Drewriting define *handler*=0Drewriting =
define-method (process-events (func <procedure>) qtime qstart handler)=0D=
rewriting define (output event . args)=0Drewriting define (now . args)=0D=
rewriting defmacro stop=0Drewriting define (wait delta)=0Drewriting =
define (wait-until time)=0Drewriting define-method (sprout (obj =
<object>) time)=0Drewriting define-method (sprout (obj <procedure>) =
time)=0Drewriting define-method (sprout (obj <pair>) time)=0Drewriting =
define (sco-par-print par objv filv timv)=0Drewriting define =
(make-sco-writer objclassname objclassvar pars supers sdecl)=0Drewriting =
define-class <sco-stream>=0Drewriting define-method (io-handler-args? =
(io <sco-stream>))=0Drewriting define-method (io-handler-args (io =
<sco-stream>))=0Drewriting define-method (set-io-handler-args! (io =
<sco-stream>) args)=0Drewriting define (set-sco-output-hook! fn)=0D=
rewriting define *csound*=0Drewriting define (play-sco-file file . args)=0D=
rewriting define (set-sco-file-versions! val)=0Drewriting define-method =
(initialize-io (io <sco-stream>))=0Drewriting defobject i=0Drewriting =
define-method (object-name (obj <i>))=0Drewriting defobject f=0D=
rewriting define-method (object-name (obj <f>))=0Drewriting define =
(clm-print-par-value v s)=0Drewriting define (clm-par-print par objv =
filv timv)=0Drewriting define (clm-writer objclassname objclassvar pars =
supers sdecl)=0Drewriting define-class <clm-stream>=0Drewriting define =
(set-clm-output-hook! fn)=0Drewriting define (set-clm-file-versions! =
val)=0Drewriting define-method (io-handler-args? (io <clm-stream>))=0D=
rewriting define-method (io-handler-args (io <clm-stream>))=0Drewriting =
define-method (set-io-handler-args! (io <clm-stream>) args)=0Drewriting =
define-method (initialize-io (io <clm-stream>))=0Drewriting define =
(play-clm-file file . args)=0Drewriting define (snd-writer objclassname =
objclassvar pars supers sdecl)=0Drewriting define-class =
<clm-audio-stream>=0Drewriting define (set-audio-output-hook! fn)=0D=
rewriting define (set-audio-file-versions! val)=0Drewriting =
define-method (io-handler-args? (io <clm-audio-stream>))=0Drewriting =
define-method (io-handler-args (io <clm-audio-stream>))=0Drewriting =
define-method (set-io-handler-args! (io <clm-audio-stream>) args)=0D=
rewriting define (formals->defobject form . args)=0Drewriting =
define-method (open-io (io <clm-audio-stream>) dir . args)=0Drewriting =
define-method (close-io (io <clm-audio-stream>) . mode)=0Drewriting =
define (tell-snd file . args)=0Dskipping define definstrument=0D=
rewriting defmacro definstrument=0Drewriting define-class <cmn-stream>=0D=
rewriting define (set-cmn-output-hook! fn)=0Drewriting define =
(set-cmn-stream-versions! val)=0Drewriting define-method =
(io-handler-args? (io <cmn-stream>))=0Drewriting define-method =
(io-handler-args (io <cmn-stream>))=0Drewriting define-method =
(set-io-handler-args! (io <cmn-stream>) args)=0Drewriting define =
*cmn-staves*=0Drewriting define (make-staffing id . args)=0Drewriting =
define-method (close-io (io <cmn-stream>) . mode)=0Drewriting =
define-method (open-io (io <cmn-stream>) dir . args)=0Drewriting =
define-method (initialize-io (io <cmn-stream>))=0Drewriting define =
(set-staff-meter staff meter)=0Drewriting define-method (deinitialize-io =
(io <cmn-stream>))=0Drewriting define (cmn-eval form)=0Drewriting define =
(add-default-staff id score)=0Drewriting define-method (write-event (obj =
<standard-object>) (io <cmn-stream>)=0D               scoretime)=0D=
rewriting define-method (object->cmn (obj <midi>))=0Drewriting define =
+enc-route-byte+=0Drewriting define +enc-lower-status-byte+=0Drewriting =
define +enc-upper-status-byte+=0Drewriting define =
+enc-swapped-status-byte+=0Drewriting define +enc-logical-channel-byte+=0D=
rewriting define +enc-opcode-byte+=0Drewriting define +enc-data-1-byte+=0D=
rewriting define +enc-data-2-byte+=0Drewriting define +enc-route-offs+=0D=
rewriting define +enc-lower-status-offs+=0Drewriting define =
+enc-upper-status-offs+=0Drewriting define +enc-swapped-status-offs+=0D=
rewriting define +enc-logical-channel-offs+=0Drewriting define =
+enc-opcode-offs+=0Drewriting define +enc-data-1-offs+=0Drewriting =
define +enc-data-2-offs+=0Drewriting define +enc-note-off-mask+=0D=
rewriting define +ml-note-off-opcode+=0Drewriting define =
+ml-note-on-opcode+=0Drewriting define +ml-key-pressure-opcode+=0D=
rewriting define +ml-control-change-opcode+=0Drewriting define =
+ml-program-change-opcode+=0Drewriting define =
+ml-channel-pressure-opcode+=0Drewriting define +ml-pitch-bend-opcode+=0D=
rewriting define +ml-default-note-on-velocity+=0Drewriting define =
+ml-default-note-off-velocity+=0Drewriting define +ml-msg-sysex-type+=0D=
rewriting define +ml-msg-mtc-quarter-frame-type+=0Drewriting define =
+ml-msg-song-position-type+=0Drewriting define +ml-msg-song-select-type+=0D=
rewriting define +ml-msg-cable-select-type+=0Drewriting define =
+ml-msg-tune-request-type+=0Drewriting define +ml-msg-eox-type+=0D=
rewriting define +ml-msg-timing-clock-type+=0Drewriting define =
+ml-msg-timing-tick-type+=0Drewriting define +ml-msg-start-type+=0D=
rewriting define +ml-msg-continue-type+=0Drewriting define =
+ml-msg-stop-type+=0Drewriting define +ml-msg-active-sensing-type+=0D=
rewriting define +ml-msg-system-reset-type+=0Drewriting define =
+ml-meta-type+=0Drewriting define +ml-file-meta-marker+=0Drewriting =
define +ml-file-sequence-number-opcode+=0Drewriting define =
+ml-file-text-event-opcode+=0Drewriting define =
+ml-file-copyright-note-opcode+=0Drewriting define =
+ml-file-sequence/track-name-opcode+=0Drewriting define =
+ml-file-instrument-name-opcode+=0Drewriting define =
+ml-file-lyric-opcode+=0Drewriting define +ml-file-marker-opcode+=0D=
rewriting define +ml-file-cue-point-opcode+=0Drewriting define =
+ml-file-midi-channel-opcode+=0Drewriting define =
+ml-file-midi-port-opcode+=0Drewriting define +ml-file-eot-opcode+=0D=
rewriting define +ml-file-tempo-change-opcode+=0Drewriting define =
+ml-file-smpte-offset-opcode+=0Drewriting define =
+ml-file-time-signature-opcode+=0Drewriting define =
+ml-file-key-signature-opcode+=0Drewriting define =
+ml-file-sequencer-event-opcode+=0Drewriting define (midimsg-data1 =
message)=0Drewriting define (midimsg-data2 message)=0Drewriting define =
(midi-channel-message-p message)=0Drewriting define =
(midi-system-message-p message)=0Drewriting define (midi-meta-message-p =
message)=0Drewriting define +channel-message-sizes+=0Drewriting define =
+system-message-sizes+=0Drewriting define +ml-channel-msg-type-strings+=0D=
rewriting define +ml-msg-type-strings+=0Drewriting define =
+ml-meta-msg-type-strings+=0Drewriting define (get-meta-msg-type-string =
type)=0Drewriting define (midimsg-logical-channel m)=0Drewriting define =
(midimsg-route m)=0Drewriting define (midimsg-opcode m)=0Drewriting =
define (midimsg-upper-status m)=0Drewriting define (midimsg-lower-status =
m)=0Drewriting define (midimsg-status m)=0Drewriting define =
(midimsg-size m)=0Drewriting define (channel-note-hash m)=0Drewriting =
define (%midi-encode-channel-message bytes size)=0Drewriting define =
*midi-open*=0Drewriting define *midi-time*=0Drewriting defmacro =
define-message-set!=0Drewriting define (make-channel-message opcode =
channel data1 . args)=0Drewriting define (channel-message-p message)=0D=
rewriting define (channel-message-channel message)=0Drewriting define =
(channel-message-opcode message)=0Drewriting define =
(channel-message-data1 message)=0Drewriting define =
(channel-message-data2 message)=0Drewriting define-message-set! =
channel-message-channel=0Drewriting define-message-set! =
channel-message-opcode=0Drewriting define-message-set! =
channel-message-data1=0Drewriting define-message-set! =
channel-message-data2=0Drewriting define (make-note-off channel key =
velocity)=0Drewriting define (note-off-p message)=0Drewriting define =
(note-off-channel message)=0Drewriting define (note-off-key message)=0D=
rewriting define (note-off-velocity message)=0Drewriting =
define-message-set! note-off-channel=0Drewriting define-message-set! =
note-off-key=0Drewriting define-message-set! note-off-velocity=0D=
rewriting define (make-note-on channel key velocity)=0Drewriting define =
(note-on-p message)=0Drewriting define (note-on-channel message)=0D=
rewriting define (note-on-key message)=0Drewriting define =
(note-on-velocity message)=0Drewriting define-message-set! =
note-on-channel=0Drewriting define-message-set! note-on-key=0Drewriting =
define-message-set! note-on-velocity=0Drewriting define =
(make-key-pressure channel key pressure)=0Drewriting define =
(key-pressure-p message)=0Drewriting define (key-pressure-channel =
message)=0Drewriting define (key-pressure-key message)=0Drewriting =
define (key-pressure-pressure message)=0Drewriting define-message-set! =
key-pressure-channel=0Drewriting define-message-set! key-pressure-key=0D=
rewriting define-message-set! key-pressure-pressure=0Drewriting define =
(make-control-change channel controller value)=0Drewriting define =
(control-change-p message)=0Drewriting define (control-change-channel =
message)=0Drewriting define (control-change-controller message)=0D=
rewriting define (control-change-value message)=0Drewriting =
define-message-set! control-change-channel=0Drewriting =
define-message-set! control-change-controller=0Drewriting =
define-message-set! control-change-value=0Drewriting define =
(make-program-change channel program)=0Drewriting define =
(program-change-p message)=0Drewriting define (program-change-channel =
message)=0Drewriting define (program-change-program message)=0Drewriting =
define-message-set! program-change-channel=0Drewriting =
define-message-set! program-change-program=0Drewriting define =
(make-channel-pressure channel pressure)=0Drewriting define =
(channel-pressure-p message)=0Drewriting define =
(channel-pressure-channel message)=0Drewriting define =
(channel-pressure-pressure message)=0Drewriting define-message-set! =
channel-pressure-channel=0Drewriting define-message-set! =
channel-pressure-pressure=0Drewriting define (make-pitch-bend channel =
value . args)=0Drewriting define (pitch-bend-p message)=0Drewriting =
define (pitch-bend-channel message)=0Drewriting define (pitch-bend-lsb =
message)=0Drewriting define (pitch-bend-msb message)=0Drewriting =
define-message-set! pitch-bend-channel=0Drewriting define-message-set! =
pitch-bend-lsb=0Drewriting define-message-set! pitch-bend-msb=0D=
rewriting define (make-system-message type route . args)=0Drewriting =
define (system-message-p message)=0Drewriting define =
(system-message-route message)=0Drewriting define (system-message-status =
message)=0Drewriting define (system-message-data1 message)=0Drewriting =
define (system-message-data2 message)=0Drewriting define-message-set! =
system-message-route=0Drewriting define-message-set! =
system-message-status=0Drewriting define-message-set! =
system-message-data1=0Drewriting define-message-set! =
system-message-data2=0Drewriting define (make-sysex-data . args)=0D=
rewriting define (make-sysex route data)=0Drewriting define (sysex-p =
message)=0Drewriting define (sysex-route message)=0Drewriting =
define-message-set! sysex-route=0Drewriting define =
(make-mtc-quarter-frame route tag nibble)=0Drewriting define =
(mtc-quarter-frame-p message)=0Drewriting define =
(mtc-quarter-frame-route message)=0Drewriting define =
(mtc-quarter-frame-tag message)=0Drewriting define =
(mtc-quarter-frame-nibble message)=0Drewriting define-message-set! =
mtc-quarter-frame-route=0Drewriting define (make-song-position route lsb =
msb)=0Drewriting define (song-position-p message)=0Drewriting define =
(song-position-route message)=0Drewriting define (song-position-lsb =
message)=0Drewriting define (song-position-msb message)=0Drewriting =
define-message-set! song-position-route=0Drewriting define-message-set! =
song-position-lsb=0Drewriting define-message-set! song-position-msb=0D=
rewriting define (make-song-select route song)=0Drewriting define =
(song-select-p message)=0Drewriting define (song-select-route message)=0D=
rewriting define (song-select-song message)=0Drewriting =
define-message-set! song-select-route=0Drewriting define-message-set! =
song-select-song=0Drewriting define (make-cable-select route cable)=0D=
rewriting define (cable-select-p message)=0Drewriting define =
(cable-select-route message)=0Drewriting define (cable-select-cable =
message)=0Drewriting define-message-set! cable-select-route=0Drewriting =
define-message-set! cable-select-cable=0Drewriting define =
(make-tune-request route)=0Drewriting define (tune-request-p message)=0D=
rewriting define (tune-request-route message)=0Drewriting =
define-message-set! tune-request-route=0Drewriting define (make-eox =
route)=0Drewriting define (eox-p message)=0Drewriting define (eox-route =
message)=0Drewriting define-message-set! eox-route=0Drewriting define =
(make-timing-clock route)=0Drewriting define (timing-clock-p message)=0D=
rewriting define (timing-clock-route message)=0Drewriting =
define-message-set! timing-clock-route=0Drewriting define =
(make-timing-tick route)=0Drewriting define (timing-tick-p message)=0D=
rewriting define (timing-tick-route message)=0Drewriting =
define-message-set! timing-tick-route=0Drewriting define (make-start =
route)=0Drewriting define (start-p message)=0Drewriting define =
(start-route message)=0Drewriting define-message-set! start-route=0D=
rewriting define (make-continue route)=0Drewriting define (continue-p =
message)=0Drewriting define (continue-route message)=0Drewriting =
define-message-set! continue-route=0Drewriting define (make-stop route)=0D=
rewriting define (stop-p message)=0Drewriting define (stop-route =
message)=0Drewriting define-message-set! stop-route=0Drewriting define =
(make-active-sensing route)=0Drewriting define (active-sensing-p =
message)=0Drewriting define (active-sensing-route message)=0Drewriting =
define-message-set! active-sensing-route=0Drewriting define =
(make-system-reset route)=0Drewriting define (system-reset-p message)=0D=
rewriting define (system-reset-route message)=0Drewriting =
define-message-set! system-reset-route=0Drewriting define =
(make-meta-message type . data-bytes)=0Drewriting define (meta-message-p =
message)=0Drewriting define (meta-message-type message)=0Drewriting =
define-message-set! meta-message-type=0Drewriting define =
(make-sequence-number num)=0Drewriting define (sequence-number-p =
message)=0Drewriting define (make-text-event string . args)=0Drewriting =
define (text-event-p message)=0Drewriting define +text-meta-event-types+=0D=
rewriting define (text-meta-event-p message)=0Drewriting define =
(text-meta-event-data-to-string data)=0Drewriting define =
(make-copyright-note string)=0Drewriting define (copyright-note-p =
message)=0Drewriting define (make-sequence/track-name string)=0D=
rewriting define (sequence/track-name-p message)=0Drewriting define =
(make-instrument-name string)=0Drewriting define (instrument-name-p =
message)=0Drewriting define (make-lyric string)=0Drewriting define =
(lyric-p message)=0Drewriting define (make-marker string)=0Drewriting =
define (marker-p message)=0Drewriting define (make-cue-point string)=0D=
rewriting define (cue-point-p message)=0Drewriting define =
(make-midi-channel channel)=0Drewriting define (midi-channel-p message)=0D=
rewriting define (make-midi-port port)=0Drewriting define (midi-port-p =
message)=0Drewriting define (make-eot)=0Drewriting define (eot-p =
message)=0Drewriting define (make-tempo-change usecs-per-beat)=0D=
rewriting define (tempo-change-p message)=0Drewriting define =
(make-smpte-offset hours mins secs frames fractional-frames)=0Drewriting =
define (smpte-offset-p message)=0Drewriting define (make-time-signature =
numerator denominator . args)=0Drewriting define (time-signature-p =
message)=0Drewriting define (make-key-signature key . args)=0Drewriting =
define (key-signature-p message)=0Drewriting define =
(make-sequencer-event . data)=0Drewriting define (sequencer-event-p =
message)=0Drewriting define (midi-print-channel-message stream gm? size =
type channel data1=0D        data2 time-string)=0Drewriting define =
*midi-gm-mode*=0Drewriting define (%print-sysex-aux stream data bytes =
rest indent)=0Drewriting define (print-sysex-data stream string lines =
data length)=0Drewriting define (midi-print-message msg . args)=0D=
rewriting define %deflabelvar%=0Drewriting defmacro deflabel=0Drewriting =
define +midi-controller-strings+=0Drewriting defmacro defcontroller=0D=
rewriting define (midi-opcode-name vec code lb ub delta)=0Drewriting =
define (midi-controller-name c)=0Drewriting defcontroller +bank-select+=0D=
rewriting defcontroller +modulation-wheel+=0Drewriting defcontroller =
+breath-control+=0Drewriting defcontroller +foot-controller+=0Drewriting =
defcontroller +portamento-time+=0Drewriting defcontroller +data-entry+=0D=
rewriting defcontroller +channel-volume+=0Drewriting define +volume+=0D=
rewriting defcontroller +balance+=0Drewriting defcontroller +pan+=0D=
rewriting defcontroller +expression-controller+=0Drewriting =
defcontroller +effect-control-1+=0Drewriting defcontroller =
+effect-control-2+=0Drewriting defcontroller =
+general-purpose-controller-1+=0Drewriting defcontroller =
+general-purpose-controller-2+=0Drewriting defcontroller =
+general-purpose-controller-3+=0Drewriting defcontroller =
+general-purpose-controller-4+=0Drewriting defcontroller =
+bank-select-fine+=0Drewriting defcontroller +modulation-wheel-fine+=0D=
rewriting defcontroller +breath-control-fine+=0Drewriting defcontroller =
+foot-controller-fine+=0Drewriting defcontroller +portamento-time-fine+=0D=
rewriting defcontroller +data-entry-fine+=0Drewriting defcontroller =
+channel-volume-fine+=0Drewriting define +volume-fine+=0Drewriting =
defcontroller +balance-fine+=0Drewriting defcontroller +pan-fine+=0D=
rewriting defcontroller +expression-controller-fine+=0Drewriting =
defcontroller +effect-control-1-fine+=0Drewriting defcontroller =
+effect-control-2-fine+=0Drewriting defcontroller =
+general-purpose-controller-1-fine+=0Drewriting defcontroller =
+general-purpose-controller-2-fine+=0Drewriting defcontroller =
+general-purpose-controller-3-fine+=0Drewriting defcontroller =
+general-purpose-controller-4-fine+=0Drewriting defcontroller +hold-1+=0D=
rewriting define +sustain+=0Drewriting define +damper-pedal+=0Drewriting =
defcontroller +portamento+=0Drewriting defcontroller +sostenuto+=0D=
rewriting defcontroller +soft-pedal+=0Drewriting defcontroller =
+legato-footswitch+=0Drewriting defcontroller +hold-2+=0Drewriting =
defcontroller +sound-control-1+=0Drewriting define +sound-variation+=0D=
rewriting defcontroller +sound-control-2+=0Drewriting define =
+sound-timbre+=0Drewriting defcontroller +sound-control-3+=0Drewriting =
define +sound-release-time+=0Drewriting defcontroller +sound-control-4+=0D=
rewriting define +sound-attack-time+=0Drewriting defcontroller =
+sound-control-5+=0Drewriting define +sound-brightness+=0Drewriting =
defcontroller +sound-control-6+=0Drewriting defcontroller =
+sound-control-7+=0Drewriting defcontroller +sound-control-8+=0D=
rewriting defcontroller +sound-control-9+=0Drewriting defcontroller =
+sound-control-10+=0Drewriting defcontroller =
+general-purpose-controller-5+=0Drewriting defcontroller =
+general-purpose-controller-6+=0Drewriting defcontroller =
+general-purpose-controller-7+=0Drewriting defcontroller =
+general-purpose-controller-8+=0Drewriting defcontroller =
+portamento-control+=0Drewriting defcontroller +effects-1-depth+=0D=
rewriting define +effects-level+=0Drewriting defcontroller =
+effects-2-depth+=0Drewriting define +tremolo-level+=0Drewriting =
defcontroller +effects-3-depth+=0Drewriting define +chorus-level+=0D=
rewriting defcontroller +effects-4-depth+=0Drewriting define =
+detune-level+=0Drewriting defcontroller +effects-5-depth+=0Drewriting =
define +phasor-level+=0Drewriting defcontroller +data-entry-+1+=0D=
rewriting define +data-entry-increment+=0Drewriting defcontroller =
+data-entry--1+=0Drewriting define +data-entry-decrement+=0Drewriting =
defcontroller +non-registered-parameter-number-fine+=0Drewriting =
defcontroller +non-registered-parameter-number+=0Drewriting =
defcontroller +registered-parameter-number-fine+=0Drewriting =
defcontroller +registered-parameter-number+=0Drewriting defcontroller =
+all-sound-off+=0Drewriting defcontroller +reset-all-controllers+=0D=
rewriting defcontroller +local-control+=0Drewriting defcontroller =
+all-notes-off+=0Drewriting defcontroller +omni-mode-off+=0Drewriting =
defcontroller +omni-mode-on+=0Drewriting defcontroller =
+poly-mode-on/off+=0Drewriting defcontroller +poly-mode-on+=0Drewriting =
define +rpn-pitch-bend-sensitivity+=0Drewriting define +rpn-fine-tuning+=0D=
rewriting define +rpn-coarse-tuning+=0Drewriting define +rpn-reset+=0D=
rewriting define +gm-patch-strings+=0Drewriting define =
+gm-drum-kit-strings+=0Drewriting defmacro defgmpatch=0Drewriting =
defmacro defgmdrum=0Drewriting define (gm-patch-name patch)=0Drewriting =
define (gm-drum-kit-name key)=0Drewriting defgmpatch =
+acoustic-grand-piano+=0Drewriting defgmpatch +bright-acoustic-piano+=0D=
rewriting defgmpatch +electric-grand-piano+=0Drewriting defgmpatch =
+honky-tonk-piano+=0Drewriting defgmpatch +electric-piano-1+=0Drewriting =
defgmpatch +electric-piano-2+=0Drewriting defgmpatch +harpsichord+=0D=
rewriting defgmpatch +clavi+=0Drewriting defgmpatch +celesta+=0D=
rewriting defgmpatch +glockenspiel+=0Drewriting defgmpatch +music-box+=0D=
rewriting defgmpatch +vibraphone+=0Drewriting defgmpatch +marimba+=0D=
rewriting defgmpatch +xylophone+=0Drewriting defgmpatch +tubular-bells+=0D=
rewriting defgmpatch +dulcimer+=0Drewriting defgmpatch +drawbar-organ+=0D=
rewriting defgmpatch +percussive-organ+=0Drewriting defgmpatch =
+rock-organ+=0Drewriting defgmpatch +church-organ+=0Drewriting =
defgmpatch +reed-organ+=0Drewriting defgmpatch +accordion+=0Drewriting =
defgmpatch +harmonica+=0Drewriting defgmpatch +tango-accordion+=0D=
rewriting defgmpatch +acoustic-guitar-nylon+=0Drewriting defgmpatch =
+acoustic-guitar-steel+=0Drewriting defgmpatch +electric-guitar-jazz+=0D=
rewriting defgmpatch +electric-guitar-clean+=0Drewriting defgmpatch =
+electric-guitar-muted+=0Drewriting defgmpatch +overdriven-guitar+=0D=
rewriting defgmpatch +distortion-guitar+=0Drewriting defgmpatch =
+guitar-harmonics+=0Drewriting defgmpatch +acoustic-bass+=0Drewriting =
defgmpatch +electric-bass-finger+=0Drewriting defgmpatch =
+electric-bass-pick+=0Drewriting defgmpatch +fretless-bass+=0Drewriting =
defgmpatch +slap-bass-1+=0Drewriting defgmpatch +slap-bass-2+=0D=
rewriting defgmpatch +synth-bass-1+=0Drewriting defgmpatch =
+synth-bass-2+=0Drewriting defgmpatch +violin+=0Drewriting defgmpatch =
+viola+=0Drewriting defgmpatch +cello+=0Drewriting defgmpatch =
+contrabass+=0Drewriting defgmpatch +tremolo-strings+=0Drewriting =
defgmpatch +pizzicato-strings+=0Drewriting defgmpatch =
+orchestral-strings+=0Drewriting defgmpatch +timpani+=0Drewriting =
defgmpatch +string-ensemble-1+=0Drewriting defgmpatch =
+string-ensemble-2+=0Drewriting defgmpatch +synthstrings-1+=0Drewriting =
defgmpatch +synthstrings-2+=0Drewriting defgmpatch +choir-aahs+=0D=
rewriting defgmpatch +voice-oohs+=0Drewriting defgmpatch +synth-voice+=0D=
rewriting defgmpatch +orchestra-hit+=0Drewriting defgmpatch +trumpet+=0D=
rewriting defgmpatch +trombone+=0Drewriting defgmpatch +tuba+=0D=
rewriting defgmpatch +muted-trumpet+=0Drewriting defgmpatch =
+french-horn+=0Drewriting defgmpatch +brass-section+=0Drewriting =
defgmpatch +synthbrass-1+=0Drewriting defgmpatch +synthbrass-2+=0D=
rewriting defgmpatch +soprano-sax+=0Drewriting defgmpatch +alto-sax+=0D=
rewriting defgmpatch +tenor-sax+=0Drewriting defgmpatch +baritone-sax+=0D=
rewriting defgmpatch +oboe+=0Drewriting defgmpatch +english-horn+=0D=
rewriting defgmpatch +bassoon+=0Drewriting defgmpatch +clarinet+=0D=
rewriting defgmpatch +piccolo+=0Drewriting defgmpatch +flute+=0D=
rewriting defgmpatch +recorder+=0Drewriting defgmpatch +pan-flute+=0D=
rewriting defgmpatch +blown-bottle+=0Drewriting defgmpatch +skakuhachi+=0D=
rewriting defgmpatch +whistle+=0Drewriting defgmpatch +ocarina+=0D=
rewriting defgmpatch +lead-1-square+=0Drewriting define +lead-1+=0D=
rewriting define +square-lead+=0Drewriting define +square+=0Drewriting =
defgmpatch +lead-2-sawtooth+=0Drewriting define +lead-2+=0Drewriting =
define +sawtooth-lead+=0Drewriting define +sawtooth+=0Drewriting =
defgmpatch +lead-3-calliope+=0Drewriting define +lead-3+=0Drewriting =
define +calliope-lead+=0Drewriting define +calliope+=0Drewriting =
defgmpatch +lead-4-chiff+=0Drewriting define +lead-4+=0Drewriting define =
+chiff-lead+=0Drewriting define +chiff+=0Drewriting defgmpatch =
+lead-5-charang+=0Drewriting define +lead-5+=0Drewriting define =
+charang-lead+=0Drewriting define +charang+=0Drewriting defgmpatch =
+lead-6-voice+=0Drewriting define +lead-6+=0Drewriting define =
+voice-lead+=0Drewriting define +voice+=0Drewriting defgmpatch =
+lead-7-fifths+=0Drewriting define +lead-7+=0Drewriting define =
+fifths-lead+=0Drewriting define +fifths+=0Drewriting defgmpatch =
+lead-8-bass+lead+=0Drewriting define +lead-8+=0Drewriting define =
+bass+lead-lead+=0Drewriting define +bass+lead+=0Drewriting defgmpatch =
+pad-1-new-age+=0Drewriting define +pad-1+=0Drewriting define =
+new-age-pad+=0Drewriting define +new-age+=0Drewriting defgmpatch =
+pad-2-warm+=0Drewriting define +pad-2+=0Drewriting define +warm-pad+=0D=
rewriting define +warm+=0Drewriting defgmpatch +pad-3-polysynth+=0D=
rewriting define +pad-3+=0Drewriting define +polysynth-pad+=0Drewriting =
define +polysynth+=0Drewriting defgmpatch +pad-4-choir+=0Drewriting =
define +pad-4+=0Drewriting define +choir-pad+=0Drewriting define +choir+=0D=
rewriting defgmpatch +pad-5-bowed+=0Drewriting define +pad-5+=0D=
rewriting define +bowed-pad+=0Drewriting define +bowed+=0Drewriting =
defgmpatch +pad-6-metallic+=0Drewriting define +pad-6+=0Drewriting =
define +metallic-pad+=0Drewriting define +metallic+=0Drewriting =
defgmpatch +pad-7-halo+=0Drewriting define +pad-7+=0Drewriting define =
+halo-pad+=0Drewriting define +halo+=0Drewriting defgmpatch =
+pad-8-sweep+=0Drewriting define +pad-8+=0Drewriting define +sweep-pad+=0D=
rewriting define +sweep+=0Drewriting defgmpatch +fx-1-rain+=0Drewriting =
define +fx-1+=0Drewriting define +rain-fx+=0Drewriting define +rain+=0D=
rewriting defgmpatch +fx-2-soundtrack+=0Drewriting define +fx-2+=0D=
rewriting define +soundtrack-fx+=0Drewriting define +soundtrack+=0D=
rewriting defgmpatch +fx-3-crystal+=0Drewriting define +fx-3+=0D=
rewriting define +crystal-fx+=0Drewriting define +crystal+=0Drewriting =
defgmpatch +fx-4-atmosphere+=0Drewriting define +fx-4+=0Drewriting =
define +atmosphere-fx+=0Drewriting define +atmosphere+=0Drewriting =
defgmpatch +fx-5-brightness+=0Drewriting define +fx-5+=0Drewriting =
define +brightness-fx+=0Drewriting define +brightness+=0Drewriting =
defgmpatch +fx-6-goblins+=0Drewriting define +fx-6+=0Drewriting define =
+goblins-fx+=0Drewriting define +goblins+=0Drewriting defgmpatch =
+fx-7-echoes+=0Drewriting define +fx-7+=0Drewriting define +echoes-fx+=0D=
rewriting define +echoes+=0Drewriting defgmpatch +fx-8-sci-fi+=0D=
rewriting define +fx-8+=0Drewriting define +sci-fi-fx+=0Drewriting =
define +sci-fi+=0Drewriting defgmpatch +sitar+=0Drewriting defgmpatch =
+banjo+=0Drewriting defgmpatch +shamisen+=0Drewriting defgmpatch +koto+=0D=
rewriting defgmpatch +kalimba+=0Drewriting defgmpatch +bagpipe+=0D=
rewriting defgmpatch +fiddle+=0Drewriting defgmpatch +shanai+=0D=
rewriting defgmpatch +tinkle-bell+=0Drewriting defgmpatch +agogo+=0D=
rewriting defgmpatch +steel-drums+=0Drewriting defgmpatch +woodblock+=0D=
rewriting defgmpatch +taiko-drum+=0Drewriting defgmpatch +melodic-tom+=0D=
rewriting defgmpatch +synth-drum+=0Drewriting defgmpatch =
+reverse-cymbal+=0Drewriting defgmpatch +guitar-fret-noise+=0Drewriting =
defgmpatch +breath-noise+=0Drewriting defgmpatch +seashore+=0Drewriting =
defgmpatch +bird-tweet+=0Drewriting defgmpatch +telephone-ring+=0D=
rewriting defgmpatch +helicopter+=0Drewriting defgmpatch +applause+=0D=
rewriting defgmpatch +gunshot+=0Drewriting define =
*gm-percussion-channels*=0Drewriting define (gm-percussion-channel-p =
chan)=0Drewriting defgmdrum +acoustic-bass-drum+=0Drewriting defgmdrum =
+bass-drum-1+=0Drewriting defgmdrum +side-stick+=0Drewriting defgmdrum =
+acoustic-snare+=0Drewriting defgmdrum +hand-clap+=0Drewriting defgmdrum =
+electric-snare+=0Drewriting defgmdrum +low-floor-tom+=0Drewriting =
defgmdrum +closed-hi-hat+=0Drewriting defgmdrum +high-floor-tom+=0D=
rewriting defgmdrum +pedal-hi-hat+=0Drewriting defgmdrum +low-tom+=0D=
rewriting defgmdrum +open-hi-hat+=0Drewriting defgmdrum +low-mid-tom+=0D=
rewriting defgmdrum +hi-mid-tom+=0Drewriting defgmdrum +crash-cymbal-1+=0D=
rewriting defgmdrum +high-tom+=0Drewriting defgmdrum +ride-cymbal-1+=0D=
rewriting defgmdrum +chinese-cymbal+=0Drewriting defgmdrum +ride-bell+=0D=
rewriting defgmdrum +tambourine+=0Drewriting defgmdrum +splash-cymbal+=0D=
rewriting defgmdrum +cowbell+=0Drewriting defgmdrum +crash-cymbal-2+=0D=
rewriting defgmdrum +vibraslap+=0Drewriting defgmdrum +ride-cymbal-2+=0D=
rewriting defgmdrum +hi-bongo+=0Drewriting defgmdrum +low-bongo+=0D=
rewriting defgmdrum +mute-hi-conga+=0Drewriting defgmdrum =
+open-hi-conga+=0Drewriting defgmdrum +low-conga+=0Drewriting defgmdrum =
+high-timbale+=0Drewriting defgmdrum +low-timbale+=0Drewriting defgmdrum =
+high-agogo+=0Drewriting defgmdrum +low-agogo+=0Drewriting defgmdrum =
+cabasa+=0Drewriting defgmdrum +maracas+=0Drewriting defgmdrum =
+short-whistle+=0Drewriting defgmdrum +long-whistle+=0Drewriting =
defgmdrum +short-guiro+=0Drewriting defgmdrum +long-guiro+=0Drewriting =
defgmdrum +claves+=0Drewriting defgmdrum +hi-wood-block+=0Drewriting =
defgmdrum +low-wood-block+=0Drewriting defgmdrum +mute-cuica+=0D=
rewriting defgmdrum +open-cuica+=0Drewriting defgmdrum +mute-triangle+=0D=
rewriting defgmdrum +open-triangle+=0Drewriting define =
+sequential-circuits-id+=0Drewriting define +idp-id+=0Drewriting define =
+voyetra-id+=0Drewriting define +moog-id+=0Drewriting define =
+passport-id+=0Drewriting define +lexicon-id+=0Drewriting define =
+kurzweil-id+=0Drewriting define +fender-id+=0Drewriting define =
+gulbransen-id+=0Drewriting define +akg-id+=0Drewriting define =
+voyce-id+=0Drewriting define +waveframe-id+=0Drewriting define +ada-id+=0D=
rewriting define +garfield-id+=0Drewriting define +ensoniq-id+=0D=
rewriting define +oberheim-id+=0Drewriting define +apple-id+=0Drewriting =
define +grey-matter-id+=0Drewriting define +digidesign-id+=0Drewriting =
define +palm-tree-id+=0Drewriting define +jl-cooper-id+=0Drewriting =
define +lowrey-id+=0Drewriting define +adams-smith-id+=0Drewriting =
define +e-mu-id+=0Drewriting define +harmony-id+=0Drewriting define =
+art-id+=0Drewriting define +baldwin-id+=0Drewriting define =
+eventide-id+=0Drewriting define +inventronics-id+=0Drewriting define =
+key-concepts-id+=0Drewriting define +clarity-id+=0Drewriting define =
+passac-id+=0Drewriting define +siel-id+=0Drewriting define =
+synthaxe-id+=0Drewriting define +stepp-id+=0Drewriting define =
+hohner-id+=0Drewriting define +twister-id+=0Drewriting define =
+solton-id+=0Drewriting define +jellinghaus-id+=0Drewriting define =
+southworth-id+=0Drewriting define +ppg-id+=0Drewriting define +jen-id+=0D=
rewriting define +solid-state-id+=0Drewriting define +audio-vertrieb-id+=0D=
rewriting define +hinton-id+=0Drewriting define +soundtracs-id+=0D=
rewriting define +elka-id+=0Drewriting define +dynachord-id+=0Drewriting =
define +clavia-id+=0Drewriting define +audio-architecture-id+=0D=
rewriting define +soundcraft-id+=0Drewriting define +wersi-id+=0D=
rewriting define +avab-id+=0Drewriting define +digigram-id+=0Drewriting =
define +waldorf-id+=0Drewriting define +quasimidi-id+=0Drewriting define =
+kawai-id+=0Drewriting define +roland-id+=0Drewriting define +korg-id+=0D=
rewriting define +yamaha-id+=0Drewriting define +casio-id+=0Drewriting =
define +moridaira-id+=0Drewriting define +kamiya-id+=0Drewriting define =
+akai-id+=0Drewriting define +japan-victor-id+=0Drewriting define =
+meisosha-id+=0Drewriting define +hoshino-gakki-id+=0Drewriting define =
+fujitsu-id+=0Drewriting define +sony-id+=0Drewriting define =
+nishin-onpa-id+=0Drewriting define +teac-id+=0Drewriting define =
+matsushita-electric-id+=0Drewriting define +fostex-id+=0Drewriting =
define +zoom-id+=0Drewriting define +midori-id+=0Drewriting define =
+matsushita-communication-id+=0Drewriting define +suzuki-id+=0Drewriting =
define +warner-id+=0Drewriting define +digital-music-id+=0Drewriting =
define +iota-id+=0Drewriting define +new-england-id+=0Drewriting define =
+artisyn-id+=0Drewriting define +ivl-id+=0Drewriting define =
+southern-music-id+=0Drewriting define +lake-butler-id+=0Drewriting =
define +alesis-id+=0Drewriting define +dod-id+=0Drewriting define =
+studer-id+=0Drewriting define +perfect-fretworks-id+=0Drewriting define =
+kat-id+=0Drewriting define +opcode-id+=0Drewriting define +rane-id+=0D=
rewriting define +spatial-sound-id+=0Drewriting define +kmx-id+=0D=
rewriting define +allen-&-heath-id+=0Drewriting define +peavey-id+=0D=
rewriting define +360-id+=0Drewriting define +spectrum-id+=0Drewriting =
define +marquis-musi-id+=0Drewriting define +zeta-id+=0Drewriting define =
+axxes-id+=0Drewriting define +orban-id+=0Drewriting define +kti-id+=0D=
rewriting define +breakaway-id+=0Drewriting define +cae-id+=0Drewriting =
define +rocktron-id+=0Drewriting define +pianodisc-id+=0Drewriting =
define +cannon-id+=0Drewriting define +rogers-id+=0Drewriting define =
+blue-sky-id+=0Drewriting define +encore-id+=0Drewriting define =
+uptown-id+=0Drewriting define +voce-id+=0Drewriting define +cti-id+=0D=
rewriting define +s&s-id+=0Drewriting define +broderbund-id+=0Drewriting =
define +allen-organ-id+=0Drewriting define +music-quest-id+=0Drewriting =
define +aphex-id+=0Drewriting define +gallien-krueger-id+=0Drewriting =
define +ibm-id+=0Drewriting define +hotz-id+=0Drewriting define +eta-id+=0D=
rewriting define +nsi-id+=0Drewriting define +ad-lib-id+=0Drewriting =
define +richmond-id+=0Drewriting define +microsoft-id+=0Drewriting =
define +software-toolworks-id+=0Drewriting define +rjmg/niche-id+=0D=
rewriting define +intone-id+=0Drewriting define +gt-electronics-id+=0D=
rewriting define +intermidi-id+=0Drewriting define +lone-wolf-id+=0D=
rewriting define +musonix-id+=0Drewriting define +sgi-id+=0Drewriting =
define +dream-id+=0Drewriting define +strand-id+=0Drewriting define =
+amek-id+=0Drewriting define +dr.boehm-id+=0Drewriting define =
+trident-id+=0Drewriting define +real-world-id+=0Drewriting define =
+yes-id+=0Drewriting define +audiomatica-id+=0Drewriting define =
+bontempi-id+=0Drewriting define +fbt-id+=0Drewriting define =
+larking-id+=0Drewriting define +zero-88-id+=0Drewriting define =
+micon-id+=0Drewriting define +forefront-id+=0Drewriting define =
+kenton-id+=0Drewriting define +adb-id+=0Drewriting define +marshall-id+=0D=
rewriting define +dda-id+=0Drewriting define +tc-id+=0Drewriting define =
+non-commercial-id+=0Drewriting define +non-real-time-id+=0Drewriting =
define +sample-dump-header-sub-id+=0Drewriting define =
+sample-dump-packet-sub-id+=0Drewriting define +dump-request-sub-id+=0D=
rewriting define +midi-time-code-setup-sub-id+=0Drewriting define =
+sample-dump-extensions-sub-id+=0Drewriting define =
+inquiry-message-sub-id+=0Drewriting define +file-dump-sub-id+=0D=
rewriting define +midi-tuning-standard-sub-id+=0Drewriting define =
+general-midi-message-sub-id+=0Drewriting define +end-of-file-sub-id+=0D=
rewriting define +wait-sub-id+=0Drewriting define +cancel-sub-id+=0D=
rewriting define +nak-sub-id+=0Drewriting define +ack-sub-id+=0D=
rewriting define +real-time-id+=0Drewriting define =
+long-form-mtc-sub-id+=0Drewriting define +midi-show-control-sub-id+=0D=
rewriting define +notation-information-sub-id+=0Drewriting define =
+device-control-sub-id+=0Drewriting define +real-time-mtc-cueing-sub-id+=0D=
rewriting define +midi-machine-control-command-sub-id+=0Drewriting =
define +midi-machine-control-response-sub-id+=0Drewriting define =
+single-note-retune-sub-id+=0Drewriting define (n-bit-twoscomp-p num =
bits signed? . args)=0Drewriting define (n-bit-twoscomp num bits =
signed?)=0Drewriting define (n-bit-bytes num bytes bits lsb-first?)=0D=
rewriting define (nibblize lsb-first? . data)=0Drewriting define =
+all-device-ids+=0Drewriting define (make-gm-mode-sysex-data gm-on? . =
args)=0Drewriting define +master-volume-sub-id-2+=0Drewriting define =
(make-master-volume-sysex-data . args)=0Drewriting define =
+smpte-full-frame-sub-id-2+=0Drewriting define =
+smpte-user-bits-sub-id-2+=0Drewriting define +smpte-format-24fps+=0D=
rewriting define +smpte-format-25fps+=0Drewriting define =
+smpte-format-30fps-drop+=0Drewriting define +smpte-format-30fps+=0D=
rewriting define (encode-smpte-data hr mn sc fr . args)=0Drewriting =
define (make-smpte-full-frame-sysex-data hr mn sc fr . args)=0Drewriting =
define +smpte-user-bits-raw+=0Drewriting define +smpte-user-bits-chars+=0D=
rewriting define (make-smpte-user-bits-sysex-data format data . args)=0D=
rewriting define +bar-marker-sub-id-2+=0Drewriting define =
(make-measure-number-sysex-data num . args)=0Drewriting define =
+time-signature-now-sub-id-2+=0Drewriting define =
+time-signature-next-measure-sub-id-2+=0Drewriting define =
(make-time-signature-sysex-data numerators denominators . args)=0D=
rewriting define +setup-special-sub-id-2+=0Drewriting define =
+setup-punch-in-point-sub-id-2+=0Drewriting define =
+setup-punch-out-point-sub-id-2+=0Drewriting define =
+setup-delete-punch-in-point-sub-id-2+=0Drewriting define =
+setup-delete-punch-out-point-sub-id-2+=0Drewriting define =
+setup-event-start-point-sub-id-2+=0Drewriting define =
+setup-event-stop-point-sub-id-2+=0Drewriting define =
+setup-xtnd-event-start-point-sub-id-2+=0Drewriting define =
+setup-xtnd-event-stop-point-sub-id-2+=0Drewriting define =
+setup-delete-event-start-point-sub-id-2+=0Drewriting define =
+setup-delete-event-stop-point-sub-id-2+=0Drewriting define =
+setup-cue-point-sub-id-2+=0Drewriting define =
+setup-xtnd-cue-point-sub-id-2+=0Drewriting define =
+setup-delete-cue-point-sub-id-2+=0Drewriting define =
+setup-event-name-sub-id-2+=0Drewriting define (%make-setup-data dev =
subid2 fmt hr mn sc fr ff num . args)=0Drewriting define =
+setup-special-time-code-offset-type+=0Drewriting define =
+setup-special-enable-event-list-type+=0Drewriting define =
+setup-special-disable-event-list-type+=0Drewriting define =
+setup-special-clear-event-list-type+=0Drewriting define =
+setup-special-system-stop-type+=0Drewriting define =
+setup-special-event-list-request-type+=0Drewriting define =
(make-time-code-offset-sysex-data hr mn sc fr ff . args)=0Drewriting =
define (make-enable-event-list-sysex-data . args)=0Drewriting define =
(make-disable-event-list-sysex-data . args)=0Drewriting define =
(make-clear-event-list-sysex-data . args)=0Drewriting define =
(make-system-stop-sysex-data hr mn sc fr ff . args)=0Drewriting define =
(make-event-list-request-sysex-data hr mn sc fr ff . args)=0Drewriting =
define (make-punch-in-point-sysex-data track hr mn sc fr ff . args)=0D=
rewriting define (make-punch-out-point-sysex-data track hr mn sc fr ff . =
args)=0Drewriting define (make-delete-punch-in-point-sysex-data track hr =
mn sc fr ff=0D        . args)=0Drewriting define =
(make-delete-punch-out-point-sysex-data track hr mn sc fr ff=0D        . =
args)=0Drewriting define (make-event-start-point-sysex-data event-nr hr =
mn sc fr ff=0D        . arg)=0Drewriting define =
(make-event-stop-point-sysex-data event-nr hr mn sc fr ff=0D        . =
arg)=0Drewriting define (make-xtnd-event-start-point-sysex-data event-nr =
hr mn sc fr=0D        ff data . arg)=0Drewriting define =
(make-xtnd-event-stop-point-sysex-data event-nr hr mn sc fr ff=0D        =
data . arg)=0Drewriting define (make-delete-event-start-point-sysex-data =
event-nr hr mn sc fr=0D        ff . arg)=0Drewriting define =
(make-delete-event-stop-point-sysex-data event-nr hr mn sc fr=0D        =
ff . arg)=0Drewriting define (make-cue-point-sysex-data cue-nr hr mn sc =
fr ff . args)=0Drewriting define (make-xtnd-cue-point-sysex-data cue-nr =
hr mn sc fr ff data=0D        . args)=0Drewriting define =
(make-delete-cue-point-sysex-data cue-nr hr mn sc fr ff . args)=0D=
rewriting define (make-event-name-sysex-data event-nr hr mn sc fr ff =
name=0D        . args)=0Drewriting define *midi-pitch-bend-width*=0D=
rewriting define *midi-channel-map*=0Drewriting define (logical-channel =
chan map)=0Drewriting define %midituningtypes=0Drewriting define-class =
<midi-stream>=0Drewriting define *midi-file-default-tempo*=0Drewriting =
define-class <midi-file-stream>=0Drewriting define =
(set-midi-output-hook! fn)=0Drewriting define (set-midi-file-versions! =
val)=0Drewriting define +midi-file-header-length+=0Drewriting define =
+miditrack-header-length+=0Drewriting define +mthd+=0Drewriting define =
+mtrk+=0Dskipping define (read-byte fp)=0Dskipping define (write-byte by =
fp)=0Drewriting define (read-bytes fp n)=0Drewriting define (write-bytes =
fp byts n)=0Drewriting define (read-variable-quantity fp)=0Drewriting =
define (write-variable-quantity n fp)=0Drewriting define =
(variable-quantity-length n)=0Drewriting define (midi-file-read-header =
mf)=0Drewriting define (midi-file-write-header mf fmat tracks division . =
resolution)=0Drewriting define (midi-file-read-track-header mf)=0D=
rewriting define (midi-file-write-track-header mf len)=0Drewriting =
define (midi-file-read-message mf)=0Drewriting define =
(midi-file-unread-message mf msg . args)=0Drewriting define-method =
(midi-write-message (msg <number>)=0D               (mf =
<midi-file-stream>) time data)=0Drewriting define (midi-file-map-track =
fn mf . args)=0Drewriting define (midi-file-set-track mf track)=0D=
rewriting define (channel-tuning-init io)=0Drewriting define =
(microtune-channels io divisions . args)=0Drewriting define %offs=0D=
rewriting dotimes=0Drewriting define-method (open-io (mf =
<midi-file-stream>) dir . args)=0Drewriting define-method (initialize-io =
(mf <midi-file-stream>))=0Drewriting define-method (deinitialize-io (mf =
<midi-file-stream>))=0Drewriting define-method (close-io (mf =
<midi-file-stream>) . mode)=0Drewriting define (flush-pending-offs mf . =
args)=0Drewriting define (midi-file-print . args)=0Drewriting define =
(oss-play-midi-file file . args)=0Drewriting define (win-play-midi-file =
file . args)=0Drewriting defobject midimsg=0Drewriting defobject midi=0D=
rewriting defmacro ensure-microtuning=0Drewriting define-method =
(write-event (obj <midi>) (mf <midi-file-stream>) time)=0Drewriting =
define-method (write-event (obj <midimsg>) (mf <midi-file-stream>)=0D    =
           time)=0Drewriting define-method (object->midi obj)=0D=
rewriting define-method (write-event (obj <object>) (mf =
<midi-file-stream>)=0D               scoretime)=0Drewriting define =
midi-channel-names=0Drewriting define (midi-channel->name chan)=0D=
rewriting define-method (write-event (obj <midi>) (fil <clm-stream>) =
scoretime)=0Drewriting define-method (write-event (obj <midi>) (fil =
<sco-stream>) scoretime)=0Drewriting define-method (write-event (obj =
<midi>) (fil <clm-audio-stream>)=0D               scoretime)=0Drewriting =
define-list-struct tc=0Drewriting define-method (import-events (file =
<string>) . args)=0Drewriting define-method (import-events (io =
<midi-file-stream>) . args)=0Drewriting define (apply-tempo-scaler divs =
scaler track)=0Drewriting define (tempo-change->scaler msg data)=0D=
rewriting define (parse-tempo-map mf)=0Drewriting define =
(apply-tempo-map divs tmap track)=0Drewriting define =
(midi-file-import-track file track seq notefn note-off-stack=0D        =
channel-exclude meta-exclude)=0Drewriting define *midi-connections*=0D=
rewriting define-class <midishare-stream>=0Drewriting define-method =
(midishare-stream-refnum (obj <midishare-stream>))=0Drewriting =
define-method (open-midishare-client (obj <midishare-stream>) name)=0D=
rewriting define-method (close-midishare-client (obj =
<midishare-stream>))=0Drewriting define-method (open-io (obj =
<midishare-stream>) dir . args)=0Drewriting define =
(midishare-set-connections obj client)=0Drewriting define-method =
(close-io (obj <midishare-stream>) . mode)=0Drewriting define (midi-open =
. args)=0Drewriting define (midi-close)=0Drewriting define-method =
(initialize-io (obj <midishare-stream>))=0Drewriting define-method =
(deinitialize-io (obj <midishare-stream>))=0Drewriting define =
(make-midiev type prt chn a b c d)=0Drewriting define =
(midi-message->midiev m . args)=0Drewriting define-method =
(midi-write-message (m <number>)=0D               (ms =
<midishare-stream>) time data)=0Drewriting define *dbg*=0Drewriting =
define-method (write-event (obj <midi>) (stream <midishare-stream>)=0D   =
            scoretime)=0Drewriting define-class <player-stream>=0D=
rewriting define-method (open-midishare-client (obj <player-stream>) =
name)=0Drewriting define-method (close-midishare-client (obj =
<player-stream>))=0Drewriting define (player-stream-current-track obj)=0D=
rewriting define (player-stream-current-track-set! obj track)=0D=
rewriting define-method (initialize-io (obj <player-stream>))=0D=
rewriting define-method (deinitialize-io (obj <player-stream>))=0D=
rewriting define-method (midi-write-message (msg <number>)=0D            =
   (obj <player-stream>) time data)=0Drewriting define-method =
(write-event (obj <midi>) (stream <player-stream>)=0D               =
scoretime)=0Drewriting define-method (player-play (obj <player-stream>))=0D=
rewriting define-method (player-set-sync (obj <player-stream>) sync)=0D=
rewriting define-method (player-set-tempo (obj <player-stream>) bpm)=0D=
rewriting define-method (player-start (obj <player-stream>))=0Drewriting =
define-method (player-stop (obj <player-stream>))=0Drewriting =
define-method (player-pause (obj <player-stream>))=0Drewriting =
define-method (player-cont (obj <player-stream>))=0Drewriting =
define-method (player-mute (obj <player-stream>) track)=0Drewriting =
define-method (player-unmute (obj <player-stream>) track)=0Drewriting =
define-method (player-solo (obj <player-stream>) track)=0Drewriting =
define-method (player-unsolo (obj <player-stream>) track)=0Drewriting =
define-method (player-load-midifile (obj <player-stream>) file)=0D=
rewriting define-method (player-save-midifile (obj <player-stream>) =
file)=0Drewriting define interval-semitones-byte=0Drewriting define =
interval-octaves-byte=0Drewriting define interval-letters-byte=0D=
rewriting define interval-direction-byte=0Drewriting define =
interval-type-byte=0Drewriting define interval-class-byte=0Drewriting =
define interval-meta-byte=0Drewriting define interval-meta-flag=0D=
rewriting define interval-down-flag=0Drewriting define interval-up-flag=0D=
rewriting define interval-perfect-flag=0Drewriting define =
interval-majmin-flag=0Drewriting define interval-data-mask=0Drewriting =
define interval-names=0Drewriting defmacro %interval-encoded?=0D=
rewriting defmacro %interval-class=0Drewriting defmacro %interval-type=0D=
rewriting defmacro %interval-direction=0Drewriting defmacro =
%interval-sign=0Drewriting defmacro %interval-letters=0Drewriting =
defmacro %interval-octaves=0Drewriting defmacro %interval-semitones=0D=
rewriting define (interval-quality-type int)=0Drewriting define =
(interval-quality int)=0Drewriting define (interval-letters int)=0D=
rewriting define (interval-semitones int . args)=0Drewriting define =
(interval-size int . args)=0Drewriting define (interval-sign int)=0D=
rewriting define (complement-interval int)=0Drewriting define =
(invert-interval int)=0Drewriting define (decode-interval int)=0D=
rewriting define (encode-interval interval . args)=0Drewriting define =
*tempo*=0Drewriting define *beat*=0Drewriting define *rhythms*=0D=
rewriting let=0Dskipping define-generic rhythm=0Drewriting define-method =
(rhythm (val <number>) . args)=0Drewriting define-method (rhythm (val =
<pair>) . args)=0Drewriting define-method (rhythm (val <symbol>) . args)=0D=
rewriting define (parse-rhythm-string rhythm)=0Drewriting define =
*softest*=0Drewriting define *loudest*=0Drewriting define *power*=0D=
rewriting define *logical-amplitudes*=0Dskipping define-generic =
amplitude=0Drewriting define-method (amplitude (amp <symbol>) . args)=0D=
rewriting define-method (amplitude (amp <number>) . args)=0Drewriting =
define (lookup num lst)=0Drewriting define (interp1 x coords base)=0D=
rewriting define (interpl x coords . args)=0Drewriting define (interp x =
. coords)=0Drewriting define (tendency x low high . args)=0Drewriting =
define (rescale-envelope env . args)=0Drewriting define (quantize value =
step)=0Drewriting define (rescale value oldmin oldmax newmin newmax)=0D=
rewriting define (mymod num div)=0Drewriting define (fit number lb ub . =
args)=0Drewriting define (cents->scaler cents)=0Drewriting define =
(scaler->cents scaler)=0Drewriting define (between lb ub . args)=0D=
rewriting define (pick . args)=0Drewriting define (pickl seq . args)=0D=
rewriting define (vary value variance . args)=0Drewriting define (drunk =
n width . args)=0Drewriting define (odds n . args)=0Drewriting define =
(shuffle seq . args)=0Drewriting define (ran . args)=0Drewriting define =
(expl power . args)=0Drewriting define (explsegs len sum power)=0D=
rewriting define (explseg i len num power)=0Drewriting define (geosegs =
len sum base)=0Drewriting define (geoseg i len sum base)=0Drewriting =
defmacro doeach=0Drewriting define (encode-set notes)=0Drewriting define =
(decode-set set)=0Drewriting define (encode-inverse-set notes)=0D=
rewriting define (best-normal-form set)=0Drewriting define (prime-form =
notes . args)=0Drewriting define (markov-analyze seq . args)=0Drewriting =
define (histogram numbers lo hi slots)=0Drewriting define =
*chromatic-scale*=0Drewriting define *scale*=0Drewriting define (rest? =
f)=0Drewriting define-class <scale>=0Drewriting define-class <tuning>=0D=
rewriting define-class <mode>=0Drewriting define-list-struct sd=0D=
rewriting define-method (initialize (obj <tuning>) args)=0Drewriting =
define (fill-tuning-table tuning degrees octaves)=0Drewriting define =
(equal-tuning? tuning)=0Drewriting define-method (mode-owner (obj =
<scale>))=0Drewriting define-method (scale-default-octave (obj <mode>))=0D=
rewriting define-method (scale-table (obj <mode>))=0Drewriting define =
(octave-equivalent note . args)=0Drewriting define-method (initialize =
(obj <mode>) args)=0Drewriting define-method (print-object (obj <mode>) =
stream)=0Drewriting define-method (tuning->mode (tuning <tuning>) keynum =
mode return)=0Drewriting define-method (mode->tuning (mode <mode>) =
keynum scale return)=0Drewriting define-method (tuning-hertz->keynum =
(obj <tuning>) hz)=0Drewriting define-method (tuning-hertz->note (scale =
<tuning>) hz acci err?)=0Drewriting define-method (tuning-keynum->hertz =
(obj <tuning>) knum)=0Drewriting define-method (tuning-keynum->note (obj =
<tuning>) knum acci err?)=0Drewriting define %oct=0Drewriting =
define-method (tuning-note->hertz (obj <tuning>) note err?)=0Drewriting =
define-method (tuning-note->keynum (obj <tuning>) note err?)=0Drewriting =
define-method (tuning-note->note (obj <tuning>) note acci err?)=0D=
rewriting define %hertz=0Drewriting define (mode? x)=0Drewriting define =
(tuning? x)=0Drewriting defmacro %scale-usage=0Drewriting define =
(modal-lookup mode note type tuning error? return)=0Drewriting defmacro =
with-default-octave=0Drewriting define (hertz freq . args)=0Drewriting =
define (keynum freq . args)=0Drewriting define (note freq . args)=0D=
rewriting define (pitch-class note . args)=0Drewriting define =
(octave-number note . args)=0Drewriting define (note-name note . args)=0D=
rewriting define (note-accidental note . args)=0Drewriting define =
(scale< a b . args)=0Drewriting define (scale<=3D a b . args)=0D=
rewriting define (scale=3D a b . args)=0Drewriting define (scale>=3D a b =
. args)=0Drewriting define (scale> a b . args)=0Drewriting define =
(scale-min a b . args)=0Drewriting define (scale-max a b . args)=0D=
rewriting define-method (scale-mod (freq <number>) modulus . args)=0D=
rewriting define-method (scale-mod (freq <symbol>) modulus . args)=0D=
rewriting define-method (scale-mod (freq <pair>) modulus . args)=0D=
rewriting define-method (note-in-scale? note (scale <scale>))=0D=
rewriting define (scale-order lis . args)=0Drewriting define-method =
(transpose (note <pair>) int . args)=0Drewriting define-method =
(transpose (note <symbol>) int . args)=0Drewriting define-method =
(transpose (note <number>) int . args)=0Drewriting define-method =
(transpose (note <mode>) int . args)=0Drewriting define-method (invert =
(lst <pair>) . args)=0Drewriting define-method (interval (ref <pair>) . =
args)=0Drewriting define-method (interval (ref <integer>) . args)=0D=
rewriting define-method (interval (ref <symbol>) . args)=0Drewriting =
set!=0Drewriting set!=0Drewriting define (fm-spectrum carrier mratio =
index . args)=0Drewriting define (sidebands-to-cm low high lb ub)=0D=
rewriting defmacro bes-jn=0Drewriting define (fm-spectrum1 carrier =
mratio index neg-freq? pos-amp?=0D        sideband-scaler)=0Drewriting =
define (hz-ify x)=0Drewriting define (hz-invert f1 f2)=0Drewriting =
define (bes-j0 x)=0Dskipping define (signum x)=0Drewriting define =
(bes-j1 x)=0Drewriting define +constant-data+=0Drewriting define =
+constant-weights+=0Drewriting define +count-periods+=0Drewriting define =
+count-values+=0Drewriting define +depth-first+=0Drewriting define =
+breadth-first+=0Drewriting define +coerce-to-note+=0Drewriting define =
+coerce-to-pitch+=0Drewriting define +parallel-offsets+=0Drewriting =
define +range-stepping+=0Drewriting define +range-initially+=0Drewriting =
define +range-unbounded+=0Drewriting define +range-dynamic+=0Drewriting =
define +constant-minmax+=0Drewriting define +default-period+=0Drewriting =
define +range-random+=0Drewriting define +nad+=0Drewriting define +eop+=0D=
rewriting define +eod+=0Drewriting define-list-struct period=0Drewriting =
define-class <pattern>=0Drewriting define (maybeparse fn val)=0D=
rewriting define-method (canonicalize-pattern-data (obj <pattern>) data =
parser=0D               inits)=0Drewriting define-method (make-load-form =
(obj <pattern>))=0Drewriting define-method (pattern-external-inits (obj =
<pattern>))=0Drewriting define (expand-pattern-value val)=0Drewriting =
define-method (pattern-period-length (obj <pattern>))=0Drewriting =
define-method (default-period-length (obj <pattern>))=0Drewriting =
define-method (initialize (obj <pattern>) args)=0Drewriting =
define-method (pattern? obj)=0Drewriting define-method (pattern? (obj =
<pattern>))=0Drewriting define-method (eop? x)=0Drewriting define-method =
(eop? (x <pattern>))=0Drewriting define-method (eod? x)=0Drewriting =
define-method (eod? (x <pattern>))=0Drewriting define-method =
(pattern-state obj)=0Drewriting define (next obj . args)=0Drewriting =
define-method (next-1 obj)=0Drewriting define-method (next-1 (obj =
<pattern>))=0Drewriting define-method (skip-datum? (obj <pattern>))=0D=
rewriting define-method (skip-datum? obj)=0Drewriting define-method =
(reset-period obj)=0Drewriting define-method (reset-period (obj =
<pattern>))=0Drewriting define-class <cycle>=0Drewriting define-method =
(pattern-external-inits (obj <cycle>))=0Drewriting define-method =
(initialize (obj <cycle>) args)=0Drewriting define-method =
(next-in-pattern (obj <cycle>))=0Drewriting define-method =
(map-pattern-data fn (obj <cycle>))=0Drewriting define-class =
<palindrome>=0Drewriting define-method (pattern-external-inits (obj =
<palindrome>))=0Drewriting define-method (map-pattern-data fn (obj =
<palindrome>))=0Drewriting define-method (default-period-length (obj =
<palindrome>))=0Drewriting define-method (initialize (obj <palindrome>) =
args)=0Drewriting define-method (next-in-pattern (obj <palindrome>))=0D=
rewriting define-class <line>=0Drewriting define-method =
(pattern-external-inits (obj <line>))=0Drewriting define-method =
(initialize (obj <line>) args)=0Drewriting define-method =
(next-in-pattern (obj <line>))=0Drewriting define-method (reset-period =
(obj <line>))=0Drewriting define-method (map-pattern-data fn (obj =
<line>))=0Drewriting define-class <heap>=0Drewriting define-method =
(pattern-external-inits (obj <heap>))=0Drewriting define-method =
(initialize (obj <heap>) args)=0Drewriting define-method =
(next-in-pattern (obj <heap>))=0Drewriting define *random-range*=0D=
rewriting define-list-struct random-item=0Drewriting define-class =
<random>=0Drewriting define-method (pattern-external-inits (obj =
<random>))=0Drewriting define-method (initialize (obj <random>) args)=0D=
rewriting define-method (canonicalize-pattern-data (obj <random>) data =
parser=0D               inits)=0Drewriting define-method (reset-period =
(obj <random>))=0Drewriting define-method (next-in-pattern (obj =
<random>))=0Drewriting define-method (map-pattern-data fn (obj =
<random>))=0Drewriting define-class <markov>=0Drewriting define-method =
(pattern-external-inits (obj <markov>))=0Drewriting define-method =
(canonicalize-pattern-data (obj <markov>) data parser=0D               =
inits)=0Drewriting define-method (initialize (obj <markov>) args)=0D=
rewriting define-method (next-in-pattern (obj <markov>))=0Drewriting =
define-list-struct graph-node=0Drewriting define-class <graph>=0D=
rewriting define-method (pattern-external-inits (obj <graph>))=0D=
rewriting define-method (initialize (obj <graph>) args)=0Drewriting =
define-method (canonicalize-pattern-data (obj <graph>) data parser=0D    =
           inits)=0Drewriting define (default-graph-node-select obj node =
lastids)=0Drewriting define (markov-select obj node table lastids)=0D=
rewriting define (match-ids user last)=0Drewriting define-method =
(next-in-pattern (obj <graph>))=0Drewriting define-method =
(map-pattern-data fn (obj <graph>))=0Drewriting define-class =
<accumulation>=0Drewriting define-method (next-in-pattern (obj =
<accumulation>))=0Drewriting define-method (map-pattern-data fn (obj =
<accumulation>))=0Drewriting define-method (default-period-length (obj =
<accumulation>))=0Drewriting define-class <funcall>=0Drewriting =
define-method (pattern-external-inits (obj <funcall>))=0Drewriting =
define-method (default-period-length (obj <funcall>))=0Drewriting =
define-method (initialize (obj <funcall>) args)=0Drewriting =
define-method (next-in-pattern (obj <funcall>))=0Drewriting =
define-method (map-pattern-data fn (obj <funcall>))=0Drewriting =
define-class <rotation>=0Drewriting define-method =
(pattern-external-inits (obj <rotation>))=0Drewriting define-method =
(initialize (obj <rotation>) args)=0Drewriting define-method =
(next-in-pattern (obj <rotation>))=0Drewriting define (rotate-items =
items start end step width)=0Drewriting define-list-struct rewrite-node=0D=
rewriting define-list-struct rewrite-rule=0Drewriting define-class =
<rewrite>=0Drewriting define-method (pattern-external-inits (obj =
<rewrite>))=0Drewriting define-method (initialize (obj <rewrite>) args)=0D=
rewriting define-method (canonicalize-pattern-data (obj <rewrite>) data =
parser=0D               inits)=0Drewriting define-method =
(map-pattern-data fn (obj <rewrite>))=0Drewriting define (parse-rules =
rules table)=0Drewriting define (lookup-successors successor table)=0D=
rewriting define-method (next-in-pattern (obj <rewrite>))=0Drewriting =
define (node-rewrite gen table)=0Drewriting define (rule-rewrite =
generation rules)=0Drewriting defmacro %range-stepping?=0Drewriting =
defmacro %range-unbounded?=0Drewriting defmacro %range-initially?=0D=
rewriting defmacro %range-dynamic?=0Drewriting defmacro %range-random?=0D=
rewriting define-class <range>=0Drewriting define-method =
(pattern-external-inits (obj <range>))=0Drewriting define-method =
(initialize (obj <range>) args)=0Drewriting define-method =
(canonicalize-pattern-data (obj <range>) data parser=0D               =
inits)=0Drewriting define (reset-range? data test)=0Drewriting =
define-method (next-in-pattern (obj <range>))=0Drewriting define-method =
(reset-period (obj <range>))=0Drewriting define-class <transposer>=0D=
rewriting define-method (pattern? (obj <transposer>))=0Drewriting =
define-method (make-load-form (obj <transposer>))=0Drewriting =
define-method (initialize (obj <transposer>) args)=0Drewriting =
define-method (eop? (obj <transposer>))=0Drewriting define-method =
(next-1 (obj <transposer>))=0Drewriting define-class <chord>=0Drewriting =
define-method (pattern-external-inits (obj <chord>))=0Drewriting =
define-method (canonicalize-pattern-data (pat <chord>) data parser=0D    =
           inits)=0Drewriting define-method (default-period-length (obj =
<chord>))=0Drewriting define-method (next-in-pattern (obj <chord>))=0D=
rewriting define-class <pval>=0Drewriting define-method (make-load-form =
(obj <pval>))=0Drewriting define-method (pattern? (obj <pval>))=0D=
rewriting defmacro pval=0Drewriting define-method (next-1 (obj <pval>))=0D=
rewriting define-class <join>=0Drewriting define-method =
(pattern-external-inits (obj <join>))=0Drewriting define-method =
(initialize (obj <join>) args)=0Drewriting define-method =
(canonicalize-pattern-data (obj <join>) data parser=0D               =
inits)=0Drewriting define-method (reset-period (obj <join>))=0Drewriting =
define (join-eop? data fmat)=0Drewriting define-method (next-in-pattern =
(obj <join>))=0Drewriting define-class <copier>=0Drewriting =
define-method (pattern-external-inits (obj <copier>))=0Drewriting =
define-method (initialize (obj <copier>) args)=0Drewriting define-method =
(next-in-pattern (obj <copier>))=0D? (quit)=0Dbash-2.05a$ openmcl=0D=
Welcome to OpenMCL Version (Beta: Darwin) 0.13.6!=0D? (load =
"/Lisp/clm-2/all.lisp")=0D;Loading #P"/Lisp/clm-2/walk.dfsl"...=0D=
;Loading #P"/Lisp/clm-2/clm-package.dfsl"...=0D;Loading =
#P"/Lisp/clm-2/initmus.dfsl"...=0D;Loading =
#P"/Lisp/clm-2/sndlib2clm.dfsl"...=0D;Loading =
#P"/Lisp/clm-2/defaults.dfsl"...=0D;Loading =
#P"/Lisp/clm-2/mcl-doubles.dfsl"...=0D;Loading =
#P"/Lisp/clm-2/ffi.dfsl"...=0D;Loading #P"/Lisp/clm-2/io.dfsl"...=0D=
;Loading #P"/Lisp/clm-2/mus.dfsl"...=0D;Loading =
#P"/Lisp/clm-2/run.dfsl"...=0D;Loading #P"/Lisp/clm-2/cmus.dfsl"...=0D=
;Loading #P"/Lisp/clm-2/sound.dfsl"...=0D;Loading =
#P"/Lisp/clm-2/clm-help.dfsl"...=0D;Loading =
#P"/Lisp/clm-2/defins.dfsl"...=0D;Loading #P"/Lisp/clm-2/env.dfsl"...=0D=
;Loading #P"/Lisp/clm-2/clm-snd.dfsl"...=0D;Loading =
#P"/Lisp/clm-2/rt.dfsl"...=0D;Loading #P"/Lisp/clm-2/export.dfsl"...=0D=
;Loading #P"/Lisp/clm-2/clm1.dfsl"...=0D#P"/Lisp/clm-2/all.lisp"=0D? =
(load "/Lisp/cmn/cmn-all.lisp")=0D;Loading =
#P"/Lisp/cmn/cmn-init.dfsl"...=0D;Loading =
#P"/Lisp/cmn/cmn-utils.dfsl"...=0D;Loading =
#P"/Lisp/cmn/cmn-objects.dfsl"...=0D;Loading #P"/Lisp/cmn/cmn0.dfsl"...=0D=
;Loading #P"/Lisp/cmn/cmn-grfx.dfsl"...=0D;Loading =
#P"/Lisp/cmn/cmn-glyphs.dfsl"...=0D;Loading #P"/Lisp/cmn/cmn1.dfsl"...=0D=
;Loading #P"/Lisp/cmn/cmn2.dfsl"...=0D;Loading =
#P"/Lisp/cmn/cmn3.dfsl"...=0D;Loading #P"/Lisp/cmn/cmn4.dfsl"...=0D=
;Loading #P"/Lisp/cmn/rqq.dfsl"...=0D;Loading =
#P"/Lisp/cmn/wedge.dfsl"...=0D;Loading #P"/Lisp/cmn/accent.dfsl"...=0D=
;Loading #P"/Lisp/cmn/pedal.dfsl"...=0D;Loading =
#P"/Lisp/cmn/percussion.dfsl"...=0D;Loading #P"/Lisp/cmn/ring.dfsl"...=0D=
;Loading #P"/Lisp/cmn/rests.dfsl"...=0D;Loading =
#P"/Lisp/cmn/lyrics.dfsl"...=0D;Loading #P"/Lisp/cmn/transpose.dfsl"...=0D=
;Loading #P"/Lisp/cmn/pmn.dfsl"...=0D;Loading =
#P"/Lisp/cmn/quarter.dfsl"...=0D#P"/Lisp/cmn/cmn-all.lisp"=0D? (load =
"/Lisp/cm-2.4.0/src/cm.lisp")=0D; Warning: No real-time MIDI support: =
Midishare not installed.=0D; While executing: #<Anonymous Function =
#x56D84C6>=0D=0D; Loading "/Lisp/cm-2.4.0/bin/pkg.dfsl".=0D; Loading =
"/Lisp/cm-2.4.0/bin/openmcl.dfsl".=0D; Loading =
"/Lisp/cm-2.4.0/bin/clos.dfsl".=0D; Compiling =
"/Lisp/cm-2.4.0/src/iter.lisp".=0D; Loading =
"/Lisp/cm-2.4.0/bin/iter.dfsl".=0D; Loading =
"/Lisp/cm-2.4.0/bin/level1.dfsl".=0D; Compiling =
"/Lisp/cm-2.4.0/src/scheme.lisp".=0D; Loading =
"/Lisp/cm-2.4.0/bin/scheme.dfsl".=0D; Compiling =
"/Lisp/cm-2.4.0/src/utils.lisp".=0D; Loading =
"/Lisp/cm-2.4.0/bin/utils.dfsl".=0D; Compiling =
"/Lisp/cm-2.4.0/src/mop.lisp".=0D; Loading =
"/Lisp/cm-2.4.0/bin/mop.dfsl".=0D; Compiling =
"/Lisp/cm-2.4.0/src/objects.lisp".=0D; Loading =
"/Lisp/cm-2.4.0/bin/objects.dfsl".=0D; Compiling =
"/Lisp/cm-2.4.0/src/io.lisp".=0D; Loading "/Lisp/cm-2.4.0/bin/io.dfsl".=0D=
; Compiling "/Lisp/cm-2.4.0/src/scheduler.lisp".=0D; Loading =
"/Lisp/cm-2.4.0/bin/scheduler.dfsl".=0D; Compiling =
"/Lisp/cm-2.4.0/src/sco.lisp".=0D; Loading =
"/Lisp/cm-2.4.0/bin/sco.dfsl".=0D; Compiling =
"/Lisp/cm-2.4.0/src/clm.lisp".=0D; Loading =
"/Lisp/cm-2.4.0/bin/clm.dfsl".=0D; Compiling =
"/Lisp/cm-2.4.0/src/clm2.lisp".=0D; Loading =
"/Lisp/cm-2.4.0/bin/clm2.dfsl".=0D; Compiling =
"/Lisp/cm-2.4.0/src/midi1.lisp".=0D; Loading =
"/Lisp/cm-2.4.0/bin/midi1.dfsl".=0D; Compiling =
"/Lisp/cm-2.4.0/src/midi2.lisp".=0D; Loading =
"/Lisp/cm-2.4.0/bin/midi2.dfsl".=0D; Compiling =
"/Lisp/cm-2.4.0/src/midi3.lisp".=0D; Loading =
"/Lisp/cm-2.4.0/bin/midi3.dfsl".=0D; Compiling =
"/Lisp/cm-2.4.0/src/cmn.lisp".=0D; Loading =
"/Lisp/cm-2.4.0/bin/cmn.dfsl".=0D; Compiling =
"/Lisp/cm-2.4.0/src/data.lisp".=0D; Loading =
"/Lisp/cm-2.4.0/bin/data.dfsl".=0D; Compiling =
"/Lisp/cm-2.4.0/src/scales.lisp".=0D; Loading =
"/Lisp/cm-2.4.0/bin/scales.dfsl".=0D; Compiling =
"/Lisp/cm-2.4.0/src/spectral.lisp".=0D; Loading =
"/Lisp/cm-2.4.0/bin/spectral.dfsl".=0D; Compiling =
"/Lisp/cm-2.4.0/src/patterns.lisp".=0D; Loading =
"/Lisp/cm-2.4.0/bin/patterns.dfsl".=0D=0D; Sources were compiled. To =
save Common Music,=0D; quit and restart Lisp, then reload cm.lisp.=0D=
#P"/Lisp/cm-2.4.0/src/cm.lisp"=0D? (quit)=0Dbash-2.05a$ openmcl=0D=
Welcome to OpenMCL Version (Beta: Darwin) 0.13.6!=0D? (load =
"/Lisp/cm-2.4.0/src/cm.lisp")=0D; Warning: No real-time MIDI support: =
Midishare not installed.=0D; While executing: #<Anonymous Function =
#x52E6276>=0D=0D; Loading "/Lisp/cm-2.4.0/bin/pkg.dfsl".=0D> Error: =
There is no package named "CLM" .=0D> While executing: =
CCL::USE-PACKAGE-1=0D> Type :GO to continue, :POP to abort.=0D> If =
continued: Retry finding package with name "CLM".=0DType :? for other =
options.=0D1 > :GO=0D> Error: There is no package named "CLM" .=0D> =
While executing: "Unknown"=0D> Type :GO to continue, :POP to abort.=0D> =
If continued: Retry finding package with name "CLM".=0DType :? for other =
options.=0D1 > :POP=0D=0D? (quit)=0Dbash-2.05a$=20=

--Apple-Mail-8-824215583--

--Apple-Mail-7-824215583
Content-Transfer-Encoding: 7bit
Content-Type: text/plain;
	charset=US-ASCII;
	format=flowed




-- Best regards
	Per Bergqvist
	Stockholm, Sweden
--Apple-Mail-7-824215583--