[CM] Re: update re: CM/Linux/MidiShare

[dlphillips@woh.rr.com]

Hi Rick:

  Here's the backtrace:

No matching method for the generic function
#<STANDARD-GENERIC-FUNCTION OBJECT-TIME (4) {59F783E9}>, when called with
arguments
(#<Alien (*
          (ALIEN:STRUCT MIDISHARE::TMIDIEV
           (MIDISHARE:LINK (* (ALIEN:STRUCT MIDISHARE::TMIDIEV)))
           (DATE (ALIEN:SIGNED 32)) (EVTYPE (ALIEN:SIGNED 8))
           (REF (ALIEN:SIGNED 8)) (PORT (ALIEN:SIGNED 8))
           (CHAN (ALIEN:SIGNED 8))
           (MIDISHARE::DATA
            (UNION MIDISHARE::EVDATA
                   (MIDISHARE::NOTE
                    (ALIEN:STRUCT MIDISHARE::PITCHVELDUR
                     (MIDISHARE:PITCH (ALIEN:SIGNED 8))
                     (MIDISHARE:VEL (ALIEN:SIGNED 8))
                     (MIDISHARE:DUR (ALIEN:SIGNED 16))))
                   (MIDISHARE::DATA
                    (ALIEN:STRUCT MIDISHARE::DATAS
                     (MIDISHARE::DATA0 (ALIEN:SIGNED 8))
                     (MIDISHARE::DATA1 (ALIEN:SIGNED 8))
                     (MIDISHARE::DATA2 (ALIEN:SIGNED 8))
                     (MIDISHARE::DATA3 (ALIEN:SIGNED 8))))
                   (MIDISHARE:INFO (ALIEN:SIGNED 32))
                   (MIDISHARE:LINKSE
                    (*
                     (ALIEN:STRUCT MIDISHARE::TMIDISEX
                      (MIDISHARE:LINK (* (ALIEN:STRUCT MIDISHARE::TMIDISEX)))
                      (MIDISHARE::DATA (ARRAY (ALIEN:SIGNED 8) 12)))))
                   (MIDISHARE:LINKST
                    (*
                     (ALIEN:STRUCT MIDISHARE::TMIDIST (MIDISHARE::PTR1 (* T))
                      (MIDISHARE::PTR2 (* T)) (MIDISHARE::PTR3 (* T))
                      (MIDISHARE::PTR4 (* T))))))))) at #x082129B4>).
   [Condition of type PCL::NO-APPLICABLE-METHOD-ERROR]

Restarts:
  0: [CONTINUE] Retry call to :FUNCTION.
  1: [ABORT   ] Return to Top-Level.

Debug  (type H for help)

("DEFMETHOD NO-APPLICABLE-METHOD (T)" #<unused-arg> #<unused-arg>
 #<STANDARD-GENERIC-FUNCTION OBJECT-TIME (4) {59F783E9}>
 (#<Alien # at #x082129B4>))
Source: Error finding source: 
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM:  Source file no longer exists:
  target:pcl/braid.lisp.
0] BACKTRACE
0: ("DEFMETHOD NO-APPLICABLE-METHOD (T)" #<unused-arg> #<unused-arg>
    #<STANDARD-GENERIC-FUNCTION OBJECT-TIME (4) {59F783E9}>
    (#<Alien # at #x082129B4>))
1: (OUTPUT #<Alien (* #) at #x082129B4> NIL)
2: (NIL)
3: ((METHOD PROCESS-EVENTS NIL (FUNCTION T T T)) #<unused-arg> #<unused-arg>
    #<Interpreted Function "LAMBDA NIL" {58F955D9}> 0 ...)
4: (SCHEDULE-EVENTS #<Function "DEFUN EVENTS" {59FAC391}>
                    #<Interpreted Function "LAMBDA NIL" {58F955D9}>
                    0)
5: (EVENTS #<Interpreted Function "LAMBDA NIL" {58F955D9}> "midi.port")
6: (EXTENSIONS:INTERACTIVE-EVAL (EVENTS (RANKEYS) "midi.port"))
7: (LISP::%TOP-LEVEL)
8: ((LABELS LISP::RESTART-LISP
      EXTENSIONS:SAVE-LISP))


HTH,

dp