Advertisement
Guest User

Untitled

a guest
Jul 3rd, 2019
164
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.46 KB | None | 0 0
  1. (defmethod ql:quickload :before (systems &key)
  2.   (unless (listp systems)
  3.     (setf systems (list systems)))
  4.   (when (member :hunchentoot systems :test #'string-equal)
  5.     (sb-ext:run-program "/usr/bin/afplay"
  6.                         (list
  7.                          (namestring
  8.                           (merge-pathnames "Downloads/spider-of-destiny.mp3"
  9.                                            (user-homedir-pathname))))
  10.                         :wait nil)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement