(defmethod 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"
                        (merge-pathnames "Downloads/spider-of-destiny.mp3"
                                         (user-homedir-pathname)))))