Fixed accept-async in startup

src/startup.el

@@ -270,9 +270,9 @@ CONNECT %s:%d HTTP/1.0\r\n\
 
 
 (defun lyskom-accept-async ()
-  (let ((res (blocking-do 'accept-async '(5 7 8 9 11 12 13 14 15 16 17 18))))
-    (when (and (null res)
-               (eq 50 lyskom-errno))
+  (let* ((res (blocking-do 'accept-async '(5 7 8 9 11 12 13 14 15 16 17 18)))
+         (ans (blocking-do 'query-async)))
+    (unless (memq 15 (listify-vector ans))
       (blocking-do 'accept-async '(0 5 7 8 9 11 12 13 14 16 17 18)))))