# HG changeset patch # User c.rhodes # Date 1185353030 -3600 # Node ID 67f96832cfb016ab25ab54c44698b4bd67db498b # Parent 52433edc63e3a9688f1aee64ef40fa33ff009e81 fix indentation darcs-hash:20070725084350-dc3a5-b8ae7b5716535e5491a25877c14b9640c6cd0eac.gz diff -r 52433edc63e3 -r 67f96832cfb0 base/methods.lisp --- a/base/methods.lisp Thu Jul 26 10:36:03 2007 +0100 +++ b/base/methods.lisp Wed Jul 25 09:43:50 2007 +0100 @@ -328,7 +328,7 @@ (midi-pitch-number object2))) (defmethod interval> ((object1 pitch-interval) - (object2 pitch-interval)) + (object2 pitch-interval)) (> (span object1) (span object2)))