a guest Jun 18th, 2019 143 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- (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"
RAW Paste Data