Mercurial > hg > amuse
comparison base/classes.lisp @ 33:d1010755f507
Large upload of local changes. Many additions, such as harmony and piece-level objects
darcs-hash:20070413100909-f76cc-a8aa8dfc07f438dc0c1a7c45cee7ace2ecc1e6a5.gz
| author | David Lewis <d.lewis@gold.ac.uk> |
|---|---|
| date | Fri, 13 Apr 2007 11:09:09 +0100 |
| parents | 8d2b1662f658 |
| children | 1d757c33e00e |
comparison
equal
deleted
inserted
replaced
| 32:5e705b6f94b6 | 33:d1010755f507 |
|---|---|
| 1 (cl:in-package #:amuse) | 1 (cl:in-package #:amuse) |
| 2 | 2 |
| 3 ;; collections of more than one event | 3 ;; collections of more than one event |
| 4 | 4 |
| 5 (defclass constituent () ()) | 5 (defclass constituent (anchored-period) ()) |
| 6 (defclass composition (constituent) ()) | 6 (defclass time-ordered-constituent (constituent list-slot-sequence) |
| 7 (defclass monody (constituent) ()) | 7 ;; this won't work if lisp implementation doesn't support extensible |
| 8 ;; sequences. | |
| 9 ()) | |
| 10 (defclass composition (time-ordered-constituent) ()) | |
| 11 (defclass monody (time-ordered-constituent) ()) | |
| 8 | 12 |
| 9 ;; types of information-specifiers | 13 ;; types of information-specifiers |
| 10 | 14 |
| 11 (defclass moment-designator () ()) | 15 (defclass moment-designator () ()) |
| 12 (defclass period-designator () ()) | 16 (defclass period-designator () ()) |