# HG changeset patch
# User Marcus Pearce <m.pearce@gold.ac.uk>
# Date 1185442563 -3600
# Node ID 52433edc63e3a9688f1aee64ef40fa33ff009e81
# Parent  59e69a32b8d927199f53ad2323af1390f7d14ba1
implementations/geerdes: fix geerdesl-pitched-event typo

darcs-hash:20070726093603-c0ce4-8113568d428af23d8df16ab242a8b92f285d7046.gz

diff -r 59e69a32b8d9 -r 52433edc63e3 implementations/geerdes/methods.lisp
--- a/implementations/geerdes/methods.lisp	Thu Jul 26 10:15:50 2007 +0100
+++ b/implementations/geerdes/methods.lisp	Thu Jul 26 10:36:03 2007 +0100
@@ -142,5 +142,5 @@
 
 (defgeneric lead-vocalp (event)
   (:method (e) (declare (ignore e)) nil))
-(defmethod lead-vocalp ((event geerdesl-pitched-event))
+(defmethod lead-vocalp ((event geerdes-pitched-event))
   (= (midi-channel event) 4))