anchor.diff:    (midihelper:stop-midihelper))
   
   (defmethod backend-instrument-controls (instrument (backend (eql :alsa-midi)))
  -  (keys *alsa-midi-cc-table*))
  +  (keys *alsa-midi-cc-map*))
   
   (defmethod backend-all-nodes ((backend (eql :alsa-midi)))
     nil)
  
positive.code:                    (<= 0 num 127))
            (list num (format nil "CC ~s" num) key 'identity))))))
  
  (defun get-alsa-midi-cc-mapping (key)
    "Return the CC mapping parameters for a CC number or an event key."
    (let ((key-map (or (gethash key *alsa-midi-cc-table*)
                       (get-alsa-midi-auto-cc-mapping key))))
      (if (numberp key-map)
          (gethash key-map *alsa-midi-cc-table*)
          key-map)))
  
  (defun midi-remap-key-value (key value)
    "Remap KEY and VALUE to their equivalent MIDI CC parameter and range. Returns a list of the format (CC-NUMBER CC-VALUE), or nil if the key is not a recognized CC key."
    (if-let ((cc-mapping (get-alsa-midi-cc-mapping key)))
      (list (car cc-mapping) (funcall (nth 3 cc-mapping) value))
      (let ((sym-name (symbol-name key)))
        (if (and (>= (length sym-name) 3)
  
negative.code:           nil))))
  
  ;; set default cc mappings
  (mapc (lambda (x) (apply 'alsa-midi-set-cc-mapping x))
        '((1 "Vibrato/Modulation" :vibrato unipolar-1-to-midi)
          (8 "Balance" :balance bipolar-1-to-midi)
          (10 "Pan" :pan bipolar-1-to-midi)
  