Plaster

common-lisp
(defpackage #:x-control (:use #:usocket #:CL) (:export "wait-to-play" "setup-x-control")) (in-package #:x-control) ;;this is the first file loaded so best have this here. (rename-package 'safe-queue 'safe-queue (list 'sq)) ;;;save-image.lisp (defun load-up () (asdf:load-asd "/home/josh/documents/lisp/programs/x-control/x-control-package.asd") (asdf:load-system "X-control")) (defun save () (load-up) (save-lisp-and-die "server" :toplevel (lambda () (unwind-protect (progn (in-package #:x-control) (x-control:setup-x-control) (x-control:wait-to-play)) (sb-ext:quit 0))) :executable t :compression 9))