+(defun stop-telnet-server (listener)
+ (init/listener listener :stop))
+
+(defun user-authenticated (user-name password users)
+ (some #'(lambda (user-pass)
+ (and (string= user-name (car user-pass))
+ (string= password (cdr user-pass))))
+ users))
+