SHARE
TWEET

Untitled

a guest Jun 18th, 2019 143 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defmethod 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.                         (merge-pathnames "Downloads/spider-of-destiny.mp3"
  7.                                          (user-homedir-pathname)))))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top