comparison base/constructors.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 5bec705db9d6
comparison
equal deleted inserted replaced
32:5e705b6f94b6 33:d1010755f507
9 ;; floating or anchored or some other subclass. 9 ;; floating or anchored or some other subclass.
10 10
11 (defun make-floating-period (interval) 11 (defun make-floating-period (interval)
12 (make-instance 'floating-period :interval interval)) 12 (make-instance 'floating-period :interval interval))
13 13
14
15 ;; Should this take a moment and/or a period too?
14 (defun make-anchored-period (onset interval) 16 (defun make-anchored-period (onset interval)
15 (make-instance 'anchored-period 17 (make-instance 'anchored-period
16 :time onset 18 :time onset
17 :interval interval)) 19 :interval interval))
18 20