(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))