Update of /project/fomus/cvsroot/fomus In directory common-lisp.net:/tmp/cvs-serv6856

Modified Files: classes.lisp Log Message: bug fix Date: Mon Aug 22 01:55:02 2005 Author: dpsenicka

Index: fomus/classes.lisp diff -u fomus/classes.lisp:1.7 fomus/classes.lisp:1.8 --- fomus/classes.lisp:1.7 Sun Aug 21 21:17:40 2005 +++ fomus/classes.lisp Mon Aug 22 01:55:01 2005 @@ -224,9 +224,8 @@ ,xx))))

;; aliases -(declaim (inline timesig-off part-meas meas-voices)) +(declaim (inline timesig-off meas-voices)) (defun timesig-off (ev) (declare (type event-base ev)) (event-off ev)) -(defun part-meas (ev) (declare (type partex ev)) (part-events ev)) (defun meas-voices (ev) (declare (type meas ev)) (meas-events ev))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -279,6 +278,9 @@ (loop for m in (part-meas p) do (loop for e in (meas-events m) when (restp e) do (setf (event-inv e) nil))))) + +(declaim (inline part-meas)) +(defun part-meas (ev) (declare (type partex ev)) (part-events ev))

(declaim (inline make-noteex make-restex make-partex)) (defun make-noteex (&rest args) (apply #'make-instance 'noteex args))