anchor.diff:      (error (c)
         (log:warn "Error downloading ~a to ~a: ~a" url target-dir c))))
   
  -(defparameter *download-function* #'download
  +(defparameter *download-function* #'download-and-notify
     "Default download function.")
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
positive.code: (uiop:define-package :next/video        ; TODO: Rename file to video.lisp since there is no mode?
      (:use :common-lisp :next)
    (:export :download
             :download-arguments
             :*download-program*
             :*download-args*
  
negative.code:                   url)
              (download-arguments url target-dir))))
  
  (defun download-and-notify (url &optional target-dir)
    "Download asynchronously and notify on success or failure."
    (handler-case
        (progn
  