@@ -92,7 +92,7 @@ any). Also contains several slots that handle asynchronous client i/o.")) :socket socket :ip (usocket:get-peer-address socket)))) (client-init client) - (log-message :CLIENT (format nil "New client: ~a" (ip client))) + (log-message :CLIENT "New client: ~a" (ip client)) (bordeaux-threads:with-lock-held ((client-list-lock *server*)) (push client (clients *server*)))))) @@ -102,10 +102,8 @@ any). Also contains several slots that handle asynchronous client i/o.")) (if socket (progn (usocket:socket-close socket)) - (log-message :CLIENT - (format nil - "Tried disconnecting client ~a, but nothing to disconnect." - (ip client)))))) + (log-message :CLIENT + "Tried disconnecting client ~a, but nothing to disconnect." (ip client))))) (defun remove-client (client) "Removes client from the server's client-list." client.lisp a7d91ce65da57f44a853a6ac161124b2cc5691ee Josh sykopomp@sykosomatic.org http://github.com/Ramarren/sykosomatic/commit/1d98ba48cc3c9b8c4fc2b6411ffabe1f7c6fdd8b 1d98ba48cc3c9b8c4fc2b6411ffabe1f7c6fdd8b 2008-08-30T21:08:19-07:00 2008-08-30T21:08:19-07:00 some final little tweaks. 86b7996a22c7b2c8de3ac9bf8a8c732e440875c4 Josh sykopomp@sykosomatic.org