[CM] pedal problems

[Ruven Gottlieb]

Hi,

I'm having trouble using pedal notation in CMN.  I'm using the 
"cmucl-cm-clm-cmn" package, 1.0-12 from CCRMA.
I used one of the examples in pedal.lisp to try to debug my trouble, but 
it fails.

Without pedal notation in the sample, it's OK:

------------------------ test.cmn ---------------------------------
;;;-*-lisp-*-
(in-package :cmn)
;;;(cmn  staff treble (c4 q pedal-) (d4 q -pedal-) (e4 q -pedal))
(cmn  staff treble (c4 q) (d4 q) (e4 q))
--------------------------------------------------------------------


------------------------ begin screendump ---------------------------
* (load "test")

; Loading #p"/home/gadget/test".
;; Loading #p"/home/gadget/music/cmn/test.cmn".
T
----------------------- end screendump --------------------------------

However, when I uncomment the line with pedal notation, it fails like this:

------------------------ test.cmn ---------------------------------
;;;-*-lisp-*-
(in-package :cmn)
(cmn  staff treble (c4 q pedal-) (d4 q -pedal-) (e4 q -pedal))
;;;(cmn  staff treble (c4 q) (d4 q) (e4 q))
--------------------------------------------------------------------



-------------------------- begin screendump ---------------------------
* (load "test")

; Loading #p"/home/gadget/test".
;; Loading #p"/home/gadget/music/cmn/test.cmn".
Warning:  -pedal- called, but no corresponding pedal- to connect to.:
   recently evaluated note:   (c4 q (setf pedal-2 (pedal- )))
                               #<SELF-ACTING {283F86F5}> in (d4 q)


No matching method for the generic-function #<Standard-Generic-Function 
CONTEXT-DATA (1)
                                              {28325C31}>,
when called with arguments (NIL).

Restarts:
  0: [CONTINUE] Retry call to :FUNCTION
  1:            Return NIL from load of "/home/gadget/music/cmn/test.cmn".
  2:            Return NIL from load of "test".
  3: [ABORT   ] Return to Top-Level.

Debug  (type H for help)

(PCL::|(FAST-METHOD NO-APPLICABLE-METHOD (T))| #<unused-arg>
                                               #<unused-arg>
                                               
#<Standard-Generic-Function CONTEXT-DATA (1)
                                                 {28325C31}>
                                               (NIL))
Source: Error finding source:
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM:  Source file no longer 
exists:  target:pcl/braid.lisp.

----------------------- end screendump ------------------------------------