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))