Plaster

(defun load-up () (asdf:load-asd "/home/josh/documents/lisp/programs/x-control/x-control-package.asd") (asdf:load-system "X-control")) (load-up) (defun save () (load-up) (save-lisp-and-die "server" :toplevel (lambda () (progn (in-package #:x-control) (x-control:setup-x-control) (x-control:wait-to-play) (#'sb-impl::toplevel-init))) ;(sb-ext:quit :unix-status 0))) :executable t :compression 9))