anchor.diff:    "Convert a local-time timestamp into the timestamp format used by cl-collider."
     (+ (local-time:timestamp-to-unix time) (* (local-time:timestamp-microsecond time) 1.0d-6)))
   
  -(defun get-synthdef-controls (name)
  -  (if (typep name 'sc::node)
  -      (get-synthdef-metadata name :controls)))
  -      (get-synthdef-controls (slot-value name 'sc::name))
  -
  -(defun get-synthdef-control-names (name)
  -  (mapcar #'car (get-synthdef-controls name)))
  -
   (defgeneric has-gate-p (item))
   
   (defmethod has-gate-p ((item t))
  -  (position :gate (get-synthdef-control-names item) :test #'string-equal))
  +  (position :gate (sc::get-synthdef-control-names item) :test #'string-equal))
   
   (defmethod has-gate-p ((item sc::node))
     (has-gate-p (sc::name item)))
  
positive.code: 
  (register-backend :cl-collider #'is-sc-event-p #'play-sc #'release #'release-at #'timestamp-to-cl-collider)
  
  (setf *event-output-function* 'play-sc)
  
negative.code:                 (release node))))))))
  
  (defun is-sc-event-p (event)
    (let ((inst (event-value event :instrument)))
      (or (gethash inst sc::*synthdef-metadata*)
          (typep inst 'sc::node))))
  
  (defun timestamp-to-cl-collider (timestamp)
    "Convert a local-time timestamp to the format used by cl-collider."
  