From f944214c1fe09e1c0be53c24ce0e79db3dd58bad Mon Sep 17 00:00:00 2001
From: Avril <flanchan@cumallover.me>
Date: Tue, 14 May 2019 09:18:36 +0100
Subject: [PATCH] update doc

---
 test-server.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test-server.lisp b/test-server.lisp
index 74e142d..18dade0 100644
--- a/test-server.lisp
+++ b/test-server.lisp
@@ -4,7 +4,7 @@
   (ql:quickload :cl-sipc))
 
 (defparameter *socket-file* "sipc.socket")
-(defparameter *respond* t)
+(defparameter *respond* t) ;; should the server echo responses to client?
 
 (when (probe-file *socket-file*)
   (delete-file *socket-file*))
@@ -25,7 +25,7 @@
 			    (when *respond*
 			      (format t
 				      " -> ~a~%"
-				      (sipc:respond 
+				      (sipc:respond ;; send the response as a formatted string
 					(if (eql type :binary)
 					  (format nil "~a" (sipc:pointer-to-array message))
 					  (format nil "~a" message)))))