[Morphologie-cvs] r24 - trunk/src

[ksprotte at common-lisp.net]

Author: ksprotte
Date: Fri Jul 20 10:46:59 2007
New Revision: 24

Modified:
   trunk/src/morphologie.lisp
Log:
small fix to mc->alpha; also (intern ... "MORPH")


Modified: trunk/src/morphologie.lisp
==============================================================================
--- trunk/src/morphologie.lisp	(original)
+++ trunk/src/morphologie.lisp	Fri Jul 20 10:46:59 2007
@@ -607,7 +607,7 @@
 			   "A" "AN+" "AS--" "AS-" "BF" "AS+" "AS++" "BN-" "B"
 			   "BN+" "BS--" "BS-"))
 		    octave-number)
-	    "MORPH2")))
+	    "MORPH")))
 
 
 (defun mc-to-name (midicents &optional (approx 0))
@@ -628,7 +628,7 @@
 
 (define-box mc->alpha ((midicents nil) approx)
   :non-generic t
-  (mc->alpha midicents approx))
+  (mc->alpha1 midicents approx))
 
 
 (define-box concatstrings ((lofstrings nil))