# HG changeset patch
# User David Lewis <d.lewis@gold.ac.uk>
# Date 1187621072 -3600
# Node ID bfe5afcad1837f26ff7dfab360b44a64371a9a50
# Parent  995819f3a1d03062a06023fccb3b009a371a3560
fix to monodiser

darcs-hash:20070820144432-f76cc-29675eafe225b078be656eef11a6bff9dba70b81.gz

diff -r 995819f3a1d0 -r bfe5afcad183 implementations/geerdes/classes.lisp
--- a/implementations/geerdes/classes.lisp	Mon Aug 20 15:43:56 2007 +0100
+++ b/implementations/geerdes/classes.lisp	Mon Aug 20 15:44:32 2007 +0100
@@ -1,7 +1,9 @@
 (cl:in-package #:amuse-geerdes)
 
 (defclass property-list-mixin ()
-  ((properties :initarg :properties :accessor properties :initform nil)))
+  ((properties :initarg :properties
+	       :accessor properties
+	       :initform 'nil)))
 
 (defclass geerdes-object (property-list-mixin) ())
 
diff -r 995819f3a1d0 -r bfe5afcad183 utils/utils.lisp
--- a/utils/utils.lisp	Mon Aug 20 15:43:56 2007 +0100
+++ b/utils/utils.lisp	Mon Aug 20 15:44:32 2007 +0100
@@ -238,6 +238,8 @@
 	    ;; only look at pairings for the shorter note. This can
 	    ;; have odd side effects, but means we never
 	    ;; under-represent an overlap (I think)
+	    (when (>= overlap 3/4)
+	      (return-from check-events-bag-for-polyphony T))
 	    (when (or (not (aref overlaps shorter))
 		      (>= overlap (aref overlaps shorter)))
 	      (setf (aref overlaps shorter) overlap)
@@ -249,13 +251,13 @@
       (loop for i from 0 to (1- (length events-bag))
 	 do (when (aref overlaps i)
 	      (incf total)
-	      (when (>= (aref overlaps i) 3/4)
+	      (when (>= (aref overlaps i) 1/2)
 		(incf overs))))
       (if (and (> total 0)
 	       (>= (/ overs total)
 		   1/4))
-	  'T
-	  'nil))))
+	  T
+	  nil))))
 
 (defgeneric inter-onset-intervals (composition &key rounding-divisor))
 (defmethod inter-onset-intervals ((composition composition) &key (rounding-divisor 1/4))