Browse code

Compatibility with facilservil 0.2

Jaidyn Lev authored on 2018-12-03 01:17:32
Showing 2 changed files
... ...
@@ -1,4 +1,5 @@
1 1
 (defpackage :qotdd
2
+  (:use :cl)
2 3
   (:export
3 4
     :server))
4 5
 
... ...
@@ -19,14 +19,14 @@
19 19
 
20 20
 
21 21
 ;; SOCKET NUMBER --> NIL
22
-(defun main (socket client-id)
22
+(defun main (socket client)
23 23
   "Main function on a connection-- send the QOTD to them."
24 24
 
25
-  (facilservil:client-write socket
25
+  (facilservil:client-write client
26 26
                   (get-quote *qotd-path* (get-universal-time)) 'T)
27 27
 
28
-  (facilservil:client-slaughter socket))
28
+  (facilservil:client-slaughter client))
29 29
 
30 30
 
31 31
 ;; SOCKET NUMBER [STRING] --> NIL
32
-(defun blank (socket client-id &optional (input-string nil)))
32
+(defun blank (socket client &optional (input-string nil)))