anchor.diff:                       (status-stream *standard-output*))
     (let* ((compute-available (make-string-hash-table))
            (host-args (make-string-hash-table))
  -         (work-queue (sort (frame-files directory) #'<
  -                           :key #'frame-number))
  +         (work-queue (sort-frames (frame-files directory)))
            (semaphore (sb-thread:make-semaphore :count 0))
            (n (length work-queue))
            (i 0))
  
positive.code: (defun animate-encode (&key
                           (directory *robray-tmp-directory*)
                           (frames-per-second *frames-per-second*)
                           (output-file "robray.mp4")
                           (video-codec "libx264"))
    ;; avconv -f image2 -r 30 -i frame-%d.png foo.mp4
    (sb-ext:run-program "avconv"
                        (list "-f" "image2"
                              "-r" (write-to-string frames-per-second)
                              "-i" "frame-%d.png"
                              "-codec:v" video-codec
                              "-loglevel" "warning"
                              "-y"
                              output-file)
                        :search t :wait t :directory directory
                        :output *standard-output*))
  
  
  (defun animate-render (&key
  
negative.code: 
  
  (defun frame-number (item)
    (parse-integer (ppcre:regex-replace "^.*-([0-9]+).(pov|png)$" (namestring item) "\\1")))
  
  (defun sort-frames (frames)
    (sort frames #'< :key #'frame-number))
  
  (defun net-render (&key
                       (directory *robray-tmp-directory*)
  