[Morphologie-cvs] r25 - trunk/src

[ksprotte at common-lisp.net]

Author: ksprotte
Date: Fri Jul 20 11:17:04 2007
New Revision: 25

Modified:
   trunk/src/morphologie.lisp
Log:
I changed ES to DS


Modified: trunk/src/morphologie.lisp
==============================================================================
--- trunk/src/morphologie.lisp	(original)
+++ trunk/src/morphologie.lisp	Fri Jul 20 11:17:04 2007
@@ -601,7 +601,7 @@
 		    "~D~D"
 		    (nth note-number
 			 '("C" "CN+" "CS--" "CS-" "CS" "CS+" "CS++" "DN-" "D"
-			   "DN+" "DS--" "DS-" "ES" "DS+" "DS++" "EN-" "E" "EN+"
+			   "DN+" "DS--" "DS-" "DS" "DS+" "DS++" "EN-" "E" "EN+"
 			   "ES--" "ES-" "F" "FN+" "FS--" "FS-" "FS" "FS+" "FS++"
 			   "GN-" "G" "GN+" "GS--" "GS-" "GS" "GS+" "GS++" "AN-"
 			   "A" "AN+" "AS--" "AS-" "BF" "AS+" "AS++" "BN-" "B"