[fomus-cvs] CVS update: fomus/classes.lisp

[David Psenicka]

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))