Mercurial > hg > amuse
comparison implementations/geerdes/constructors.lisp @ 154:edf2322ea33f
Added copy key and time sigs and tempo. Need to do general version. Only midi-type currently
darcs-hash:20071119173147-40ec0-779ffe4dc4bbc356cc6decf6d0f50cb42f943b83.gz
| author | d.lewis <d.lewis@gold.ac.uk> |
|---|---|
| date | Mon, 19 Nov 2007 17:31:47 +0000 |
| parents | fd85f52d9f9d |
| children | 305bf70fc017 be3d63b78054 |
comparison
equal
deleted
inserted
replaced
| 153:74fc4c6cbf6c | 154:edf2322ea33f |
|---|---|
| 170 :sound sound | 170 :sound sound |
| 171 :id id))) | 171 :id id))) |
| 172 | 172 |
| 173 ;; We want any function that generates a sequence from a geerdes | 173 ;; We want any function that generates a sequence from a geerdes |
| 174 ;; composition to preserve all slot values: | 174 ;; composition to preserve all slot values: |
| 175 #+nil | |
| 175 (defmethod sequence:make-sequence-like :around ((o geerdes-composition) | 176 (defmethod sequence:make-sequence-like :around ((o geerdes-composition) |
| 176 length | 177 length |
| 177 &key (initial-element nil iep) | 178 &key (initial-element nil iep) |
| 178 (initial-contents nil icp)) | 179 (initial-contents nil icp)) |
| 179 (declare (ignore iep icp length initial-element initial-contents)) | 180 (declare (ignore iep icp length initial-element initial-contents)) |