USER(4): :ld /usr/src/cm-2.4.0/src/cm
; Loading /usr/src/cm-2.4.0/src/cm.lisp

; Compiling "/usr/src/cm-2.4.0/src/midishare/MidiShare-Interface.lisp".; While
                                                                       ; compiling
                                                                       ; (:TOP-LEVEL-FORM
                                                                       ;  "MidiShare-Interface.lisp"
                                                                       ;  11994)
                                                                       ; in
                                                                       ; /usr/src/cm-2.4.0/src/midishare/MidiShare-Interface.lisp:
Warning: Free reference to undeclared variable *LISP-STARTUP-FUNCTIONS*
         assumed special.
Warning: Free reference to undeclared variable *LISP-CLEANUP-FUNCTIONS*
         assumed special.
; While compiling ADD-STARTUP-ACTION in
;   /usr/src/cm-2.4.0/src/midishare/MidiShare-Interface.lisp:
Warning: Free reference to undeclared variable *LISP-STARTUP-FUNCTIONS*
         assumed special.
; While compiling ADD-QUIT-ACTION in
;   /usr/src/cm-2.4.0/src/midishare/MidiShare-Interface.lisp:
Warning: Free reference to undeclared variable *LISP-CLEANUP-FUNCTIONS*
         assumed special.
Error: No dispatch function defined for #\_.
  [condition type: SIMPLE-ERROR]

Restart actions (select using :continue):
 0: retry the compilation of /usr/src/cm-2.4.0/src/midishare/MidiShare-Interface.lisp
 1: continue compiling
    /usr/src/cm-2.4.0/src/midishare/MidiShare-Interface.lisp but
    generate no output file
 2: retry the load of /usr/src/cm-2.4.0/src/cm
 3: skip loading /usr/src/cm-2.4.0/src/cm

[changing package from "COMMON-LISP-USER" to "MIDISHARE"]
[1] MS(5): :zo
Evaluation stack:

   (ERROR SIMPLE-ERROR :FORMAT-CONTROL ...)
 ->(READ
      #<EXCL::CHARACTER-INPUT-FILE-STREAM
        #p"/usr/src/cm-2.4.0/src/midishare/MidiShare-Interface.lisp" pos 26825
        @ #x204b261a>
      NIL ...)
   ((FLET COMPILE-FILE COMP::CONTINUATION))
   (COMPILE-FILE
      "/usr/src/cm-2.4.0/src/midishare/MidiShare-Interface.lisp"
      :OUTPUT-FILE ...)
   (PROGN (FORMAT T "~%; Compiling ~s." ...)
          (COMPILE-FILE USER::SF :OUTPUT-FILE ...) ...)
   (LET (# #) (IF # #) ...)
   ((FLET () USER::CLOAD) "midishare" "MidiShare-Interface")
   (LET NIL (IF # #) ...)
   [... EXCL::%EVAL ]
   (FLET (#) (IF # #) ...)
   [... EXCL::EVAL-AS-PROGN ]

... more older frames ...
[1] MS(6):