[nio-cvs] r111 - branches/home/psmith/restructure/src/io

[psmith at common-lisp.net]

Author: psmith
Date: Thu Apr 26 16:34:42 2007
New Revision: 111

Modified:
   branches/home/psmith/restructure/src/io/ip-authorisation.lisp
Log:
log allowed ips

Modified: branches/home/psmith/restructure/src/io/ip-authorisation.lisp
==============================================================================
--- branches/home/psmith/restructure/src/io/ip-authorisation.lisp	(original)
+++ branches/home/psmith/restructure/src/io/ip-authorisation.lisp	Thu Apr 26 16:34:42 2007
@@ -32,7 +32,8 @@
 
 (defun load-ips (filename)
   (with-open-file (stream filename)
-    (setf +ip-list+ (read stream))))
+    (setf +ip-list+ (read stream)))
+  (format t "Loaded allowed ips:~A~% " +ip-list+))
 
 (defun check-ip (async-fd)
   (with-slots (remote-host) (socket async-fd)