#-quicklisp
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
                                       (user-homedir-pathname))))
  (when (probe-file quicklisp-init)
    (load quicklisp-init)))
(ql:quickload :loop)
(sb-ext:save-lisp-and-die #P"shell"
                         :toplevel #'loop:shell
                         :executable t
                         :save-runtime-options t)