annotate implementations/gsharp/classes.lisp @ 193:c18f795f4463
rollback the amuse.asd generics/classes dependency fix
Ignore-this: be4e0351d31f24f5348cc8dc434477dc
Fix properly this time by moving the specialized get-constituents method from generics to methods.
rolling back:
Wed Jan 23 15:55:34 GMT 2008 Jamie Forth <j.forth@gold.ac.uk>
* Fixed amuse.asd dependency - generics depends on classes.
M ./amuse.asd -2 +2
darcs-hash:20090524164116-16a00-2b561eab1a5829a251eb5e9b40357945af13e6a6.gz
| author |
j.forth <j.forth@gold.ac.uk> |
| date |
Sun, 24 May 2009 17:41:16 +0100 |
| parents |
4a0e15e2829a |
| children |
22ac5ec1733c |
| rev |
line source |
|
csr21@59
|
1 (cl:in-package "AMUSE-GSHARP")
|
|
csr21@59
|
2
|
|
d@168
|
3 (defclass gsharp-object ()())
|
|
d@168
|
4
|
|
d@168
|
5 (defclass gsharp-composition (amuse:standard-composition gsharp-object)
|
|
csr21@59
|
6 ((buffer :initarg :buffer :reader buffer)
|
|
csr21@59
|
7 (tempi :initarg :tempi :reader tempi)))
|
|
csr21@59
|
8
|
|
d@168
|
9 (defclass gsharp-pitched-event (standard-chromatic-pitched-event gsharp-object)
|
|
c@61
|
10 ((note :initarg :note :reader note)
|
|
c@61
|
11 (slice-index :initarg :slice-index)))
|
|
d@162
|
12
|
|
d@169
|
13 (defclass gsharp-identifier (composition-identifier gsharp-object)
|
|
d@162
|
14 ((pathname :initarg :path
|
|
d@162
|
15 :reader %gsharp-identifier-pathname
|
|
d@162
|
16 :initform 'nil))
|
|
d@162
|
17 (:documentation "Identifier for files that can be read in GSharp,
|
|
d@162
|
18 containing pathname information"))
|
|
d@162
|
19
|
|
d@162
|
20 (defclass gsharp-gsh-identifier (gsharp-identifier)
|
|
d@162
|
21 ()
|
|
d@162
|
22 (:documentation "Identifier for .gsh files for gsharp"))
|
|
d@162
|
23
|
|
d@162
|
24 (defclass gsharp-mxml-identifier (gsharp-identifier)
|
|
d@162
|
25 ()
|
|
d@162
|
26 (:documentation "Identifier for MusicXML files for gsharp"))
|
|
d@162
|
27
|
