josh@Gentoo ~/documents/lisp/programs/x-control $ ./server
* (in-package #:x-control)

#<PACKAGE "X-CONTROL">
* *display*

#<XLIB:DISPLAY :0 (The X.Org Foundation R12003000)>
* (move-mouse *display* 100 100)

debugger invoked on a SB-INT:SIMPLE-STREAM-ERROR in thread
#<THREAD "main thread" RUNNING {10005A05B3}>:
  Couldn't write to #<SB-SYS:FD-STREAM for "socket, peer: /tmp/.X11-unix/X0" {1001A6CB23}>:
    Bad file descriptor

Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT] Exit debugger, returning to top level.

(SB-IMPL:ANSI-STREAM-WRITE-SEQUENCE #(41 0 6 0 0 0 0 0 233 1 0 0 ...) #<SB-SYS:FD-STREAM for "socket, peer: /tmp/.X11-unix/X0" {1001A6CB23}> 0 32)
0]