From d82676ddf0166643d74b10242938e3428b1cb670 Mon Sep 17 00:00:00 2001
From: Jaidyn Lev <jadedctrl@teknik.io>
Date: Sun, 2 Dec 2018 19:17:32 -0600
Subject: [PATCH] Compatibility with facilservil 0.2

---
 src/package.lisp | 1 +
 src/server.lisp  | 8 ++++----
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/package.lisp b/src/package.lisp
index edf4354..0a2c474 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -1,4 +1,5 @@
 (defpackage :qotdd
+  (:use :cl)
   (:export
     :server))
 
diff --git a/src/server.lisp b/src/server.lisp
index 4072f55..f0ea172 100644
--- a/src/server.lisp
+++ b/src/server.lisp
@@ -19,14 +19,14 @@
 
 
 ;; SOCKET NUMBER --> NIL
-(defun main (socket client-id)
+(defun main (socket client)
   "Main function on a connection-- send the QOTD to them."
 
-  (facilservil:client-write socket
+  (facilservil:client-write client
                   (get-quote *qotd-path* (get-universal-time)) 'T)
 
-  (facilservil:client-slaughter socket))
+  (facilservil:client-slaughter client))
 
 
 ;; SOCKET NUMBER [STRING] --> NIL
-(defun blank (socket client-id &optional (input-string nil)))
+(defun blank (socket client &optional (input-string nil)))