(defmethod ql:quickload :before (systems &key)
  (unless (listp systems)
    (setf systems (list systems)))
  (when (member :hunchentoot systems :test #'string-equal)
    (sb-ext:run-program "/usr/bin/afplay"
                        (list
                         (namestring
                          (merge-pathnames "Downloads/spider-of-destiny.mp3"
                                           (user-homedir-pathname))))
                        :wait nil)))