anchor.diff:                       do (make-entry output (event-payload current) stamp
                                       :sequence-number i))))))
   
  -(defun synchronize (&key vicon haptic output)
  +(defun synchronize (&key output haptic vicon)
     (interleave
      (with-default-bag (bag vicon :direction :input))
      (with-vicon-channel (vicon-input bag))
  
positive.code:                               (asdf:component-version system))))
                      (asdf:system-depends-on system)))))
  
  (defun main (&rest noop)
    (declare (ignore noop))
    (let ((args (uiop:command-line-arguments)))
      (case (length args)
        ((0 1 2)
         (print-help))
        (T
         (let ((args (mapcar #'uiop:parse-native-namestring args)))
           (synchronize :vicon (first args)
                        :haptic (second args)
                        :output (third args)))))))
  
negative.code: ~a
  
  Usage:
  synchronizer output [-h haptic-input] [-v vicon-input]
  
    output        Path to the resulting output TIDE file
    vicon-input   Path to a Vicon input file
    haptic-input  Path to a Haptic input file
  
  An input file can be specified multiple times through repeated
  usage of the option. An input file can be a TIDE file, a ZIP
  containing further input files, or a CSV file (the default
  assumption on an unknown file type). In the case of a TIDE file,
  the option can only be specified once.
  
  Project URL:   ~a
  Maintained by: ~a
  